资源描述:
《delphi 的绘图功能》由会员上传分享,免费在线阅读,更多相关内容在行业资料-天天文库。
1、Graphics单元中的类//Graphics单元中的类TGraphicsObjectTFontTPenTBrushTFontRecallTPenRecallTBrushRecallTCanvasTGraphicTPictureTMetafileCanvasTMetafileImageTMetafileTBitmapImageTBitmapTIconImageTIconTResourceManagerTBrushResourceManagerTFileFormatsListDelphi的绘图功能
2、[1]-TCanvas的类成员//过程:ArcBrushCopyChordCopyRectDrawDrawFocusRectEllipseEllipseFillRectFloodFillFrameRectLineToLockMoveToPiePolygonPolylinePolyBezierPolyBezierToRectangleRectangleRefreshRoundRectStretchDrawTextOutTextRectTextRectUnlock//函数:HandleAllocat
3、edTextExtentTextHeightTextWidthTryLock//属性:ClipRectHandleLockCountCanvasOrientationPenPosPixelsTextFlagsBrushCopyModeFontPen//事件OnChangeOnChangingDelphi的绘图功能[2]-入门绘图需要有纸、画笔、画刷;Delphi有Canvas、Pen、Brush.Canvas就是画布,譬如窗体的Canvas属性,就是窗体的画布;Pen是画笔,可以设置笔色、笔宽等
4、等;Brush是画刷,可以设置颜色等等.//举例:{绘制直线}procedureTForm1.Button1Click(Sender:TObject);beginCanvas.Pen.Color:=clRed;{设置画笔颜色}Canvas.Pen.Width:=2;{设置画笔宽度}Canvas.MoveTo(10,10);{直线起点}Canvas.LineTo(100,100);{直线终点}{这里的Canvas是简写,也可以写做:Self.Canvas或Form1.Canvas}end;{矩形填
5、充}procedureTForm1.Button2Click(Sender:TObject);beginCanvas.Brush.Color:=clYellow;{设置画刷颜色,也就是填充色}Canvas.FillRect(ClientRect);{填充窗体客户区}end;//效果图:Delphi的绘图功能[3]-矩形类图形unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,For
6、ms,Dialogs,StdCtrls;typeTForm1=class(TForm)Button1:TButton;Button2:TButton;Button3:TButton;Button4:TButton;Button5:TButton;procedureFormCreate(Sender:TObject);procedureButton1Click(Sender:TObject);procedureButton2Click(Sender:TObject);procedureButton
7、3Click(Sender:TObject);procedureButton4Click(Sender:TObject);procedureButton5Click(Sender:TObject);end;varForm1:TForm1;implementation{$R*.dfm}varbtn:TButton;consty1=10;y2=80;{先设置画笔画刷}procedureTForm1.FormCreate(Sender:TObject);beginCanvas.Pen.Width:=4
8、;Canvas.Pen.Color:=clRed;Canvas.Brush.Color:=clWhite;end;{给出左上角和右下角的坐标就可以绘制矩形}procedureTForm1.Button1Click(Sender:TObject);beginbtn:=TButton(Sender);Canvas.Rectangle(btn.Left,y1,btn.Left+btn.Width,y2);end;{给出一个矩形结构做参数也可以绘制矩形}procedureTForm1.Button2Cl