Delphi的绘图功能

Graphics 单元中的类 //Graphics 单元中的类 TGraphicsObject TFont TPen TBrush TFontRecall TPenRecall TBrushRecall TCanvas TGraphic TPicture TMetafileCanvas TMetafileImage TMetafile TBitmapImage TBitmap TIconImage TIcon TResourceManager TBrushResourceManager TFileFormatsList Delphi 的绘图功能[1] - TCanvas 的类成员 //过程: Arc BrushCopy Chord CopyRect Draw DrawFocusRect Ellipse Ellipse FillRect FloodFill FrameRect LineTo Lock MoveTo Pie Polygon Polyline PolyBezier PolyBezierTo Rectangle Rectangle Refresh RoundRect StretchDraw TextOut TextRect TextRect Unlock //函数: HandleAllocated TextExtent TextHeight TextWidth TryLock //属性: ClipRect Handle LockCount CanvasOrientation PenPos Pixels TextFlags Brush CopyMode Font Pen //事件 OnChange OnChanging Delp hi 的绘图功能[2] - 入门 绘图需要有纸、画笔、画刷; Delphi 有 Canvas、Pen、Brush. Canvas 就是画布, 譬如窗体的 Canvas 属性, 就是窗体的画布; Pen 是画笔, 可以设置笔色、笔宽等等; Brush 是画刷, 可以设置颜色等等. //举例: {绘制直线} procedure TForm1.Button1Click(Sender: TObject); begin Canvas.Pen.Color := clRed; {设置画笔颜色} Canvas.Pen.Width := 2; {设置画笔宽度 } Canvas.MoveTo( 10,10); {直线起点 } Canvas.LineTo( 100,100); {直线终点 } {这里的 Canvas 是简写, 也可以写做: Self.Canvas 或 Form1.Canvas } end; {矩形填充} procedure TForm1.Button2Click(Sender: TObject); begin Canvas.Brush.Color := clYellow; {设置画刷颜色, 也就是填充色} Canvas.FillRect(ClientRect); {填充窗体客户区} end; //效果图: Delp hi 的绘图功能[3] - 矩形类图形 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TButton; Button3: TButton; Button4: TButton; Button5: TButton; procedure FormCreate(Sender: TObject); procedure Button1Click(Sender: TObject); procedure But...