1.TGraphicControl/TcustomControl 与画布(Canvas) VCL中,TCotnrol之下的组件分两条路各行其道。一条为图形组件,这类组件并非窗口,职责只在于显示图形、图像,其基类是TGraphicControl;另一条为窗口组件,这类组件本身是一个Windows窗口(有窗口句柄),其基类是TWinControl。 TGraphicControl作为显示图形、图像的组件分支,从其开始就提供了一个TCanvas类型的Canvas属性,以便在组件上绘制图形、显示图像。 对于窗口组件的分支,TWinControl并没有提供Canvas属性,而在其派生类TCustomControl才开始提供Canvas属性。 控件类分支 TGraphicControl与TCustomControl的实现都在Controls.pas单元中,它们的声明看上去也是如此相似:
TGraphicControl = class(TControl) private FCanvas: TCanvas; procedure WMPaint(var Message: TWMPaint); message WM_PAINT; protected procedure Paint; virtual; property Canvas: TCanvas read FCanvas; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; end ; TCustomControl = class(TWinControl) private FCanvas: TCanvas; procedure WMPaint(var Message: TWMPaint); message WM_PAINT; protected procedure Paint; virtual; procedure PaintWindow(DC: HDC); override; property Canvas: TCanvas read FCanvas; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; end ;
它们提供了Canvas属性,只不过此时Canvas属性被隐藏在protected节中,它们的派生类可以选择性地将其publish。 由于TGraphicControl与TCustomControl在有关Canvas熟悉的实现上也非常相似,在此只以TGraphicControl的实现来讲解“画布”属性。 由TGraphicControl的声明中的 property Canvas: TCanvas read FCanvas; 可知Canvas是一个只读属性,其载体是private的成员对象FCanvas。FCanvas在TGraphicControl的构造函数中被创建:
{ TGraphicControl } constructor TGraphicControl.Create(AOwner: TComponent); begin inherited Create(AOwner); FCanvas : = TControlCanvas.Create; TControlCanvas(FCanvas).Control : = Self; end ; destructor TGraphicControl.Destroy; begin if CaptureControl = Self then SetCaptureControl(nil); FCanvas.Free; inherited Destroy; end ; procedure TGraphicControl.WMPaint(var Message: TWMPaint); begin if Message.DC <> 0 then begin Canvas.Lock; try Canvas.Handle := Message.DC; try Paint; finally Canvas.Handle : = 0 ; end ; finally Canvas.Unlock; end ; end ; end ; procedure TGraphicControl.Paint; begin end ;
在此需要注意的是,FCanvas在声明时,是被声明为TCanvas类型的,而在创建时,却创建了TControlCanvas的示例。其实,TControlCanvas是TCanvas的派生类,它提供了一些额外的属性和事件来辅助在Control(控件)上提供“画布”属性。 这里暂停一下,先来看一下TcontrolCanvas:
TControlCanvas = class(TCanvas) private FControl: TControl; FDeviceContext: HDC; FWindowHandle: HWnd; procedure SetControl(AControl: TControl); protected procedure CreateHandle; override; public destructor Destroy; override; procedure FreeHandle; procedure UpdateTextFlags; property Control: TControl read FControl write SetControl; end ;
TControlCanvas将Canvas绑定到一个TControl实例上,其内部的FControl指针即指向Canvas所属的TControl实例。 TCanvas提供了一个空的虚方法CreateHandle()。这个虚方法在TControlCanvas中被覆盖重新实现:
procedure TControlCanvas.CreateHandle; begin if FControl = nil then inherited CreateHandle else begin if FDeviceContext = 0 then begin with CanvasList.LockList do try if Count >= CanvasListCacheSize then FreeDeviceContext; FDeviceContext : = FControl.GetDeviceContext(FWindowHandle); Add(Self); finally CanvasList.UnlockList; end ; end ; Handle : = FDeviceContext; UpdateTextFlags; end ; end ;
在CreateHandle()方法中,如果FControl是TWinControl或其派生类的实例,即控件本身是窗口,则取得该窗口的设备上下文句柄赋给Handle属性;如果FControl非TWinControl或其派生类的实例,即控件本身并非窗口,则将其父窗口的设备上下文句柄赋给Handle。这些都是通过TControl声明的虚函数GetDeviceContext()实现的,因为TWinControl覆盖重新实现了GetDeviceContext()。 说完TControlCanvas,下面继续刚才的话题。TGraphicControl的构造函数中创建了TControlCanvas实例并赋给FCanvas。构造函数的最后一行代码 TControlCanvas(FCanvas).Control := Self; 将Canvas属性绑定到了控件本身。 然后,TGraphicControl定义了一个处理WM_PAINT Windows消息的消息处理函数: procedure WMPaint(var Message: TWMPaint); message WM_PAINT; 在WMPaint()方法中,根据接受到的消息的参数所给出的窗口的设备上下文句柄,给Canvas属性的Handle重新赋值,并且调用虚方法Paint():
procedure TGraphicControl.WMPaint(var Message: TWMPaint); begin if Message.DC <> 0 then begin Canvas.Lock; try Canvas.Handle := Message.DC; try Paint; finally Canvas.Handle : = 0 ; end ; finally Canvas.Unlock; end ; end ; end ;
虚方法Paint()可以被TGraphicCotnrol的派生类所覆盖,重新定义并实现绘制图形、图像的方法,并且TGraphicControl的派生的实例总是可以放心使用其Canvas属性,而不必自行获得窗口的设备上下文句柄。而虚方法Paint()在TGraphicControl中的实现也只是一个空方法而已。 2.TCustomPanel与窗口重绘 TCustomPanel派生自TCustomControl,是所有Panel类组件的基类。TCustomPanel与4.8节中所述的TGraphicControl非常类似,只是TCustomControl派生自TWinControl,所以它的实例是一个窗口。 TCustomControl与TGraphicControl一样,拥有一个空的虚方法Paint(),以便让派生类决定如何重绘窗口。 现在就来看一下TcustomPanel。它从TCustomControl派生,并且覆盖重新实现了Paint()方法。在此,我们不关心TCustomPanel所实现的其他特性,而只关注其实现的Paint()方法。TCustomPanel实现的Paint()方法负责将组件窗口绘制出一个Panel效果(边框、背景和标题)。先来看一下Paint()方法:
procedure TCustomPanel.Paint; const Alignments: array [TAlignment] of Longint = (DT_LEFT, DT_RIGHT, DT_CENTER); var Rect: TRect; TopColor, BottomColor: TColor; FontHeight: Integer ; Flags: Longint; procedure AdjustColors(Bevel: TPanelBevel); begin TopColor : = clBtnHighlight; if Bevel = bvLowered then TopColor : = clBtnShadow; BottomColor : = clBtnShadow; if Bevel = bvLowered then BottomColor : = clBtnHighlight; end ; begin Rect : = GetClientRect; // 画边框 if BevelOuter <> bvNone then begin AdjustColors(BevelOuter); Frame3D(Canvas, Rect, TopColor, BottomColor, BevelWidth); end ; Frame3D(Canvas, Rect, Color, Color, BorderWidth); if BevelInner <> bvNone then begin AdjustColors(BevelInner); Frame3D(Canvas, Rect, TopColor, BottomColor, BevelWidth); end ; with Canvas do begin // 画背景 Brush.Color := Color; FillRect(Rect); Brush.Style : = bsClear; // 写标题 Font : = Self.Font; FontHeight : = TextHeight( ' W'); with Rect do begin Top := ((Bottom + Top) - FontHeight) div 2 ; Bottom : = Top + FontHeight; end ; Flags : = DT_EXPANDTABS or DT_VCENTER or Alignments[FAlignment]; Flags : = DrawTextBiDiModeFlags(Flags); DrawText(Handle, PChar(Caption), - 1 , Rect, Flags); end ; end ;
Paint()方法含有一个内嵌函数AdjustColors(),其作用是确定边框的上下线条颜色(一条边框由两个像素宽度的直线构成,形成立体效果)。 TCustomPanel使用其基类(TCustomControl)提供的Canvas属性,覆盖其基类定义的虚方法Paint(),完成了窗口重绘过程。 在自己编写组件时,如果需要在组件表面绘制图形、图像的话,就可以如同TCustomPanel一样,覆盖重新实现Paint()方法。同时,使用基类提供的Canvas属性,对于绘图过程来说,也是非常简单的。