再学GDI+[9]: DrawPolygon

本例效果图:

代码文件:unit Unit1;
interface
uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls;
type
 TForm1 = class(TForm)
  Button1: TButton;
  Button2: TButton;
  procedure FormMouseUp(Sender: TObject; Button: TMouseButton;
   Shift: TShiftState; X, Y: Integer);
  procedure FormPaint(Sender: TObject);
  procedure Button1Click(Sender: TObject);
  procedure Button2Click(Sender: TObject);
 end;
var
 Form1: TForm1;
implementation
{$R *.dfm}
uses GDIPOBJ, GDIPAPI;
var
 PtArr: array of TGPPoint;
 i: Integer = 0;
procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
 Shift: TShiftState; X, Y: Integer);
begin
 Canvas.Ellipse(X-2, Y-2, X+2, Y+2);
 Inc(i);
 SetLength(PtArr, i);
 PtArr[i-1].X := X;
 PtArr[i-1].Y := Y;
 Text := IntToStr(i);
end;
procedure TForm1.FormPaint(Sender: TObject);
var
 g: TGPGraphics;
 p: TGPPen;
begin
 g := TGPGraphics.Create(Canvas.Handle);
 p := TGPPen.Create(aclRed, 2);
 g.Clear(aclWhite);
 {如果是动态数组的话, 需要 @PtArr, 但动态数组本身就是个指针}
 g.DrawPolygon(p, PGPPoint(PtArr), Length(PtArr));
 g.Free;
 p.Free;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
 i := 0;
 SetLength(PtArr, i);
 Repaint;
 Text := IntToStr(i);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
 Repaint;
end;
end.

时间: 2024-09-15 23:01:38

再学GDI+[9]: DrawPolygon的相关文章

再学GDI+[99]: TGPImage(19)

本例效果图: 代码文件:unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class(TForm) OpenDialog1: TOpenDialog; Button1: TButton; Button2: TButton; procedure FormCrea

再学GDI+[97]: TGPImage(17)

获取GDI+所支持的可编码.可解码的图像格式 其实这和 TGPImage 是没有关系的. 本例效果图: 代码文件:unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Memo1: TMemo; procedure FormCreate(Sender: TO

再学GDI+[95]: TGPImage(15)

我通过做此例同时证实了 GDI+ 可以直接显示 png.gif.tif 格式的透明图片. //红色与绿色绕蓝色旋转(r 是弧度) ColorMatrix: TColorMatrix = ( (Cos(r), Sin(r), 0.0, 0.0, 0.0), (-Sin(r), Cos(r), 0.0, 0.0, 0.0), (0.0, 0.0, 1.0, 0.0, 0.0), (0.0, 0.0, 0.0, 1.0, 0.0), (0.0, 0.0, 0.0, 0.0, 1.0)); //绿色与蓝

再学GDI+[81]: TGPImage(1)

已知 GDI+ 可以支持的图像格式: BMP.JPEG.GIF.TIFF.PNG.ICO.WMF.EMF TGPGraphics.DrawImage 函数有太多重载了, 一起列在这吧:function DrawImage(image: TGPImage; const point: TGPPointF): TStatus; overload; function DrawImage(image: TGPImage; x, y: Single): TStatus; overload; function

再学GDI+[76]: 区域(5)

本来这个例子是要获取区域的详细信息的, 但非常遗憾, 这个版本的 GDI+ 的头文件少定义了一个 TRegionData 类! 不过也不要紧, 通过 TRegionData 主要也是获取区域中的矩形数据, GetRegionScans 函数可以完成这个任务! 本例效果图: 代码文件:unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialog

再学GDI+[73]: 区域(2)

Intersect {交集} Union {联合} Xor_ {减去交集} Exclude {减去} Complement {不相交} //GDI+ 的区域能和矩形.路径.另一个区域三种对象进行运算. 本例效果图: 代码文件:unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type T

再学GDI+[72]: 区域(1)

建立 GDI+ 的区域有五种办法: 1.根据一个矩形建立(矩形区域); 2.根据路径建立; 3.根据 GDI 区域的句柄建立; 4.根据从区域中获取的数据建立; 5.无参数建立. 本例演示了前三种建立方法. 本例效果图: 代码文件:unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; typ

再学GDI+[69]: 路径画刷(9)

SetInterpolationColors 与 SetSurroundColors 的区别 本例效果图: 代码文件:unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, StdCtrls, ExtCtrls; type TForm1 = class(TForm) procedure FormPaint(Sen

再学GDI+[65]: 路径画刷(5)

本例效果图: 代码文件: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