Form1.Canvas.Brush.Color:=$00000000+i*$100;

joneqiaolu 2003-10-09 10:35:39

请从类的角度讲解一下form

...全文

40 2 打赏收藏转发到动态举报

写回复

2 条回复

切换为时间正序

请发表友善的回复…

发表回复

joneqiaolu 2003-10-10

打赏
举报

回复

真是一语中的..明白了!!多谢指点.

FrameSniper 2003-10-09

打赏
举报

回复

Form1是类TForm1的一个实例（一般情况如此），对于TForm1这个类有一个属性Canvas直接对应数据成员FCanvas，而数据成员FCanvas有是TCanvas的一个实例，同样Brush和Color也按此类推！很简单的问题，只要记住一天，类的属性对应的数据成员也可能是一个类类型！

Borland 公司的天才设计师们用画布（Tcanvas）对象封装了Windows 的大部分图形输出功能，这使得我们可以通过他以更直观的方式和Windows 的屏幕打交道，而不必关心令人头疼的Windows API 函数。下面的一小段程序就可以实现整个屏幕的图象拷贝了。 var //变量声明 Fullscreen:Tbitmap; FullscreenCanvas:TCanvas; dc:HDC;

Delphi实现窗口的渐变显示特效和图片显示特效，主要实现了界面色彩渐变和图片的整体拉出效果。 sysmenuHandle := GetSystemMenu( handle, false ); //得到系统菜单的handle 　　 If sysmenuHandle <> 0 Then 　　 Begin 　　 itemcount := GetMenuItemcount( sysmenuHandle ); //得到系统菜单的个数　　 for i:= 0 to itemcount - 1 do 　　 begin 　　 itemflags := GetMenuState( sysmenuhandle, i, MF_BYPOSITION ); //得到指定菜单项的当前状态　　 If (itemflags and MF_SEPARATOR) = MF_SEPARATOR Then //如果是横线　　 item := NewLine 　　 Else Begin 　　 GetMenuString( sysmenuhandle, i, buffer, sizeof(buffer),MF_BYPOSITION ); //得到指定菜单项的Caption 　　 itemID := GetMenuItemID( sysmenuhandle, i ); //得到指定菜单的在系统菜单中的ID 　　 j:=Form1.height; //获得表单高度　　 for i:=0 to 255 do //此处设置RGB()中一个颜色值　　 begin 　　 Canvas.Brush.Color:=RGB(255,255,i); //每次画矩形的画刷颜色　　 Dct:=Rect(i*2,0,(i 1)*2,j); //每次刷绘的矩形区域　　 Canvas.FillRect(Dct); //填充颜色

Version 1.7 ----------- - ADD: Delphi/CBuilder 10.2 Tokyo now supported. - ADD: Delphi/CBuilder 10.1 Berlin now supported. - ADD: Delphi/CBuilder 10 Seattle now supported. - ADD: Delphi/CBuilder XE8 now supported. - ADD: Delphi/CBuilder XE7 now supported. - ADD: Delphi/CBuilder XE6 now supported. - ADD: Delphi/CBuilder XE5 now supported. - ADD: Delphi/CBuilder XE4 now supported. - ADD: Delphi/CBuilder XE3 now supported. - ADD: Delphi/CBuilder XE2 now supported. - ADD: Delphi/CBuilder XE now supported. - ADD: Delphi/CBuilder 2010 now supported. - ADD: Delphi/CBuilder 2009 now supported. - ADD: New demo project FlexCADImport. - FIX: The height of the TFlexRegularPolygon object incorrectly changes with its rotation. - FIX: Added division by zero protect in method TFlexControl.MovePathSegment. - FIX: The background beyond docuemnt wasn't filled when TFlexPanel.DocClipping=True. - FIX: In "Windows ClearType" font rendering mode (OS Windows mode) the "garbage" pixels can appear from the right and from the bottom sides of the painted rectangle of the TFlexText object. - FIX: The result rectangle incorrectly calculated in the TFlexText.GetRefreshRect method. - FIX: Added FPaintCache.rcPaint cleanup in the TFlexPanel.WMPaint method. Now it is possible to define is the drawing take place via WMPaint or via the PaintTo direct call (if rcPaint contain non-empty rectangle then WMPaint in progress). - FIX: The TFlexPanel.FPaintCache field moved in the protected class section. Added rcPaint field in FPaintCache that represents drawing rectangle. - ADD: In the text prcise mode (TFlexText.Precise=True) takes into account the rotation angle (TFlexText.Angle). - FIX: Removed FG_NEWTEXTROTATE directive (the TFlexText Precise mode should be used instead). - FIX: The TFlexRegularPolygon object clones incorrectly drawed in case when TFlexRegularPolygon have alternative brush (gradient, texture). - ADD: Add TFlexPanel.InvalidateControl virtual method which calls from TFle

TShape组件的属性,事件和方法 TImage组件的属性,事件和方法 Paintbox组件的属性,事件和方法使用鼠标事件的绘图第 9章图像图形应用编程 9.1 图形应用编程本章主要是讲解图形图像对象的概念以及如何在程序运行时绘制图形图像等内容，主要是通过一些例子来讲解 Delphi 7.0 对图形图像强大的处理功能。在 Delphi 7.0中，专门定义了一组对象和部件用以绘制图形，完

procedure TForm1.Button1Click(Sender: TObject); var OldBkMode : integer; begin with Form1.Canvas do begin Brush.Color := clRed; FillRect(Rect(0, 0, 100, 100)); Brush.Color := ...

5,388

社区成员

262,730

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章