再学 GDI+[18] FillEllipse、TGPHatchBrush(阴影画刷)

最新推荐文章于 2023-02-14 10:32:18 发布

weixin_30872671

最新推荐文章于 2023-02-14 10:32:18 发布

阅读量173

点赞数

原文链接：http://www.cnblogs.com/keyvip/archive/2010/12/31/1922827.html

版权

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, TeCanvas, ExtCtrls;

type
  TForm1 = class(TForm)
    ComboBox1: TComboBox;
    ColorBox1: TColorBox;
    ColorBox2: TColorBox;
    procedure FormCreate(Sender: TObject);
    procedure FormPaint(Sender: TObject);
    procedure ColorBox1Change(Sender: TObject);
    procedure ColorBox2Change(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
uses
  GDIPOBJ,GDIPAPI,TypInfo;
procedure TForm1.ColorBox1Change(Sender: TObject);
begin
  Repaint;
end;

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

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

procedure TForm1.FormCreate(Sender: TObject);
var
  i:Integer;
begin
  for I := 0 to Integer(HatchStyleTotal) - 1 do
  begin
    ComboBox1.Items.Add(GetEnumName(TypeInfo(hatchstyle),i));
  end;
  ComboBox1.ItemIndex:=0;
  ColorBox1.ItemIndex:=16;
  ColorBox2.ItemIndex:=3;
  Self.Position:=poDesktopCenter;
end;

procedure TForm1.FormPaint(Sender: TObject);
var
  g:TGPGraphics;
  hb:TGPHatchBrush;
  R:TGPRect;
  fcolor,bcolor:TGPColor;
  hbstype:HatchStyle;
begin
  g:=TGPGraphics.Create(Canvas.Handle);
  g.Clear(aclWhite);
  R:=MakeRect(20,50,ClientWidth - 40,ClientHeight - 70);
  fcolor:=ColorRefToARGB(ColorBox1.Selected);
  bcolor:=ColorRefToARGB(ColorBox2.Selected);
  hbstype:=hatchstyle(ComboBox1.ItemIndex);

  hb:=TGPHatchBrush.Create(hbstype,fcolor,bcolor);
  g.FillEllipse(hb,r);

  hb.Free;
  g.Free;
end;

end.

转载于:https://www.cnblogs.com/keyvip/archive/2010/12/31/1922827.html