快捷搜索:  as  2018  FtCWSyGV  С˵  test  xxx  Ψһ  w3viyKQx

齐发国际游戏新_再学GDI+66 路径画刷(6)SetInterpolationColors、GetRecta



本例效果图:

代码文件:unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs;

type

TForm1 = class(TForm)

procedure FormPaint(Sender: TObject);

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

uses GDIPOBJ, GDIPAPI;

procedure TFo齐发国际游戏新rm1.FormPaint(Sender: TObject);

var

g : TGPGraphics;

path: TGPGraphicsPath;

pb: TGPPathGradientBrush;

rt: TGPRect;

con齐发国际游戏新st

pts: array[0..2] of TGPPoint = ((X:90; Y:10), (X:10; Y:160), (X:160; Y:160));

colors: array[0..2] of TGPColor = (aclGreen, aclAqua, aclBlue);

pos: array[0..2] of Single = (0.0, 0.25, 1.0); {颜色位置必要 >=0、

窗体文件:object Form1: TForm1

Left = 0

Top =齐发国际游戏新 0

Caption = 'Form1'

ClientHeight = 164

ClientWidth = 491

Color = clBtnFace

Font.Charset = DEFAULT_CHARSET

Font.Color = clWindowText

Font.Height = -11

Font.Name = 'Tahoma'

Font.Style = []

OldCreateOrder = F齐发国际游戏新a齐发国际游戏新lse

Position = poDesktopCenter

OnPaint = FormPaint

PixelsPerInch = 96

TextHeight = 13

end

您可能还会对下面的文章感兴趣: