核心库类之TGraphicControl/TcustomControl 与画布（Canvas）

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属性，对于绘图过程来说，也是非常简单的。

转载于:https://www.cnblogs.com/sideandside/archive/2007/05/08/739239.html