万一 - 博客园

2009年12月15日

摘要： uses ExtCtrls;procedure TForm1.FormPaint(Sender: TObject);var R1, R2: TRect;begin R1 := Rect(10, 10, 150, 50); Frame3D(Canvas, R1, clBlack, clSilver, 1); R2 := Bounds(10, 80, 140, 40); Frame3D(Ca... 阅读全文

posted @ 2009-12-15 10:08 万一阅读(2291) 评论(1) 推荐(0) 编辑

2009年12月14日

GdiPlus[17]: IGPLinearGradientBrush 的其他方法和属性

摘要： LinearColors //属性; 获取或设置渐变的起始色和结束色.Rectangle //属性; 获取定义渐变的起始点和终结点的矩形区域.WrapMode //属性; 获取或设置 WrapMode 枚举, 指定画刷环绕模式; 感觉它没有存在的必要.TranslateTransform //方法; 平移.ScaleTransform //方法; 放缩.RotateTransform //方法; ... 阅读全文

posted @ 2009-12-14 22:53 万一阅读(1956) 评论(0) 推荐(0) 编辑

GdiPlus[16]: IGPLinearGradientBrush 之 SetBlendBellShape、SetBlendTriangularShape

摘要： SetBlendBellShape 方法: 创建基于钟形曲线的渐变过渡过程;SetBlendTriangularShape 方法: 创建一个从中心色向两端单个颜色线性过渡的线性渐变过程.两个方法好像区别不大.SetBlendBellShape 测试效果图:SetBlendTriangularShape 测试效果图:SetBlendBellShape 测试代码:uses GdiPlus;proced... 阅读全文

posted @ 2009-12-14 22:19 万一阅读(2112) 评论(3) 推荐(0) 编辑

GdiPlus[15]: IGPLinearGradientBrush 之 GammaCorrection

摘要： GammaCorrection 属性是一个 Boolean 值, 默认 False; 为 True 表示启用了灰度校正.测试图中的第二个图形使用了灰度校正:测试代码:uses GdiPlus;procedure TForm1.FormPaint(Sender: TObject);var Graphics: IGPGraphics; Rect: TGPRectF; Brush: IGPLine... 阅读全文

posted @ 2009-12-14 21:54 万一阅读(1667) 评论(0) 推荐(0) 编辑

GdiPlus[14]: IGPLinearGradientBrush 之 Blend

摘要： IGPLinearGradientBrush.Blend 属性对应一个 IGPBlend 对象;TGPBlend.Create(Factors, Positions); 中的两个参数都是 Single 类型的数组, Factors 颜色强度因子, Positions 是位置偏移比例.对于两种颜色的渐变, 上面两个数组都应是三个元素构成; 默认效果是 [0, 0.5, 1].测试效果图:测试代码:u... 阅读全文

posted @ 2009-12-14 21:35 万一阅读(2027) 评论(4) 推荐(0) 编辑

GdiPlus[13]: IGPLinearGradientBrush 之多色渐变

摘要：多色渐变需要: 一个 "颜色数组" 和一个 "位置数组" (0-1 之间的位置比例);IGPLinearGradientBrush.InterpolationColors 属性对应一个 IGPColorBlend 对象, 此对象专门用于装载上面两个数组.IGPColorBlend 的 Colors 和 Positions 两个属性分别对应这两个数组.下面的三个示例的结果都是一样的.测试效果图:测试... 阅读全文

posted @ 2009-12-14 19:48 万一阅读(2516) 评论(5) 推荐(0) 编辑

GdiPlus[12]: IGPLinearGradientBrush 的其他构建方式

摘要：第二种构建方式: TGPLinearGradientBrush.Create(矩形, 颜色1, 颜色2, 渐变模式);第三种构建方式: TGPLinearGradientBrush.Create(矩形, 颜色1, 颜色2, 角度);第三种构建方式中的 "角度"(X 轴, 顺时针)相当于是对渐变模式的自定义, 下面两段测试代码的结果是一样的.另外, 第三种构建方式还有一个默认为 False 的 Bo... 阅读全文

posted @ 2009-12-14 16:51 万一阅读(1750) 评论(0) 推荐(0) 编辑

GdiPlus[11]: IGPLinearGradientBrush 的第一种构建方式

摘要：第一种构建方式: TGPLinearGradientBrush.Create(点1, 点2, 颜色1, 颜色2);本例测试效果图:为了方便测试, 在 Unit2 单元从 TShape 继承了一个 TMyShape 类, 用来模拟一个可活动的颜色点.其主要功能: 1、可用鼠标左键拖动; 2、可用鼠标右键改变颜色.Unit2 的代码:unit Unit2;interfaceuses Class... 阅读全文

posted @ 2009-12-14 15:43 万一阅读(1789) 评论(1) 推荐(0) 编辑

GdiPlus[10]: IGPTextureBrush 的构建参数

摘要： IGPTextureBrush 对应的 TGPTextureBrush 类的 Create 方法有很多重载.参数中可有 TGPWrapMode 和 IGPImageAttributes, 但测试中发现 IGPImageAttributes 在这里并不好用.比较有意义是: 可以从建立参数中指定原始图片的范围.测试效果图:uses GdiPlus;procedure TForm1.FormPaint(... 阅读全文

posted @ 2009-12-14 01:49 万一阅读(1810) 评论(1) 推荐(0) 编辑

GdiPlus[9]: IGPTextureBrush 变换

摘要： TranslateTransform: 平移;ScaleTransform: 放缩;RotateTransform: 旋转;通过 MultiplyTransform 方法和 Transform 属性, 能完成包括上述变换在内的更多变换.ResetTransform 方法是重置变换.这些方法和属性, 在 IGPGraphics 中都有, 在 IGPGraphics 中详细学习更合适些.测试效果图:代... 阅读全文

posted @ 2009-12-14 00:19 万一阅读(2131) 评论(1) 推荐(0) 编辑