Delphi_的绘图功能.doc

Graphics 单元中的类

//Graphics 单元中的类

TGraphicsObject

TFont

TPen

TBrush

TFontRecall

TPenRecall

TMetafile

TBitmapImage

TBitmap

TIconImage

TIcon

TResourceManager

TBrushResourceManager

TFileFormatsList

Delphi 的绘图功能 [1] - TCanvas 的类成员

//过程:

Ellipse

Ellipse

FillRect

FloodFill

FrameRect

LineTo

Lock

MoveTo

Pie

Polygon

RoundRect

StretchDraw

TextOut

TextRect

TextRect

Unlock

//函数:

HandleAllocated

TextExtent

TextHeight

CanvasOrientation

PenPos

Pixels

TextFlags

Brush

CopyMode

Font

Pen

//事件

OnChange

OnChanging

{绘制直线}

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;

{矩形填充}

Delphi 的绘图功能 [3] - 矩形类图形

unit Unit1;

interface

uses

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

Forms,

Dialogs, StdCtrls;

type

TForm1 = class(TForm)

Button1: TButton;

Button2: TButton;

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

var

btn: TButton;

Canvas.Pen.Width := 4;

Canvas.Pen.Color := clRed;

Canvas.Brush.Color := clWhite;

end;

{给出左上角和右下角的坐标就可以绘制矩形}

procedure TForm1.Button1Click(Sender: TObject);

begin

btn := TButton(Sender);

Canvas.Rectangle(btn.Left, y1, btn.Left+btn.Width, y2);

{给出一个矩形结构做参数也可以绘制矩形}

procedure TForm1.Button2Click(Sender: TObject);

var

R: TRect; {定义一个矩形结构}

begin

begin

btn := TButton(Sender);

Canvas.RoundRect(btn.Left, y1, btn.Left+btn.Width, y2, 20,20);

end;

{绘制焦点矩形; 它不受画笔的影响; 它的颜色是和画刷的颜色进行某种运算得来的}

procedure TForm1.Button4Click(Sender: TObject);

var

R: TRect;

begin

btn := TButton(Sender);