GdiPlus[17]: IGPLinearGradientBrush 的其他方法和属性
GdiPlus[17]: IGPLinearGradientBrush 的其他方法和属性
涂孟超 发表于3年前
GdiPlus[17]: IGPLinearGradientBrush 的其他方法和属性
  • 发表于 3年前
  • 阅读 1
  • 收藏 0
  • 点赞 0
  • 评论 0

LinearColors //属性; 获取或设置渐变的起始色和结束色.
Rectangle    //属性; 获取定义渐变的起始点和终结点的矩形区域.

WrapMode     //属性; 获取或设置 WrapMode 枚举, 指定画刷环绕模式; 感觉它没有存在的必要.

TranslateTransform //方法; 平移.
ScaleTransform     //方法; 放缩.
RotateTransform    //方法; 旋转.
Transform          //属性; 矩阵变换.
MultiplyTransform  //方法: 矩阵变换.

 
 
 
 
 

 

 

  

下面是仅就 RotateTransform 方法做的一个测试:



测试代码:

uses GdiPlus;

procedure TForm1.FormPaint(Sender: TObject);
const
  C1 = $FF000000;
  C2 = $FFFF0000;
  C3 = $FFFFFF00;
  C4 = $FFFF0000;
  C5 = $FF000000;
var
  Graphics: IGPGraphics;
  Rect: TGPRect;
  Brush: IGPLinearGradientBrush;
  ColorBlend: IGPColorBlend;
begin
  Graphics := TGPGraphics.Create(Canvas.Handle);
  Rect.Initialize(ClientRect);
  Brush := TGPLinearGradientBrush.Create(Rect, 0, 0, 0);

  ColorBlend := TGPColorBlend.Create([C1, C2, C3, C4, C5], [0, 0.25, 0.5, 0.75, 1]);
  Brush.InterpolationColors := ColorBlend;

  Brush.RotateTransform(30);
  
  Graphics.FillRectangle(Brush, Rect);
end;

procedure TForm1.FormResize(Sender: TObject);
begin
  Repaint;
end;

 
 
 
 
 

 

 

  
共有 人打赏支持
粉丝 13
博文 2004
码字总数 14107
×
涂孟超
如果觉得我的文章对您有用,请随意打赏。您的支持将鼓励我继续创作!
* 金额(元)
¥1 ¥5 ¥10 ¥20 其他金额
打赏人
留言
* 支付类型
微信扫码支付
打赏金额:
已支付成功
打赏金额: