【读书笔记】【delphi高手突破】TCanvas与Windows GDI

TCanvas: 一条为图形组件(基类：TGraphicControl) ， 一条为窗口组件（基类：TWinControl）。

1，TGraphicControl讲解（Tpen和Tbrush原理基本一致，TCanvas）

Windows使用pen绘图过程

     1，获取窗口的“设备上下文句柄”（HDC）。

     2，调用API函数CreatePen()创建一个宽度为2像素、颜色为红色（RGB（255, 0, 0））的笔对象。

     3，调用API函数SelectObject()将所创建的笔对象选择为当前对象。（需要注意的是，此时必须将SelectObject()函数所返回的原先的GDI对象保存起来，在使用完创建的新的GDI对象后，要将它还原回去，否则就会发生GDI资源泄漏。）

     4，调用API函数LineTo()画出一条直线。

     5，收尾工作：。首先选择还原GDI对象，并调用API函数DeleteObject()删除所创建的笔对象。最后不要忘记调用API函数ReleaseDC以释放窗口的HDC。

      那么VCL将Windows GDI的Pen对象抽象为TPen类

工作原理：

     TPen = class(TGraphicsObject)

private

FMode: TPenMode;

procedure GetData(var PenData: TPenData);

procedure SetData(const PenData: TPenData);

protected

function GetColor: TColor;

procedure SetColor(Value: TColor);

function GetHandle: HPen;

procedure SetHandle(Value: HPen);

procedure SetMode(Value: TPenMode);

function GetStyle: TPenStyle;

procedure SetStyle(Value: TPenStyle);

function GetWidth: Integer;

procedure SetWidth(Value: Integer);

public

constructor Create;

destructor Destroy; override;

procedure Assign(Source: TPersistent); override;

property Handle: HPen read GetHandle write SetHandle;

published

property Color: TColor read GetColor write SetColor default clBlack;

property Mode: TPenMode read FMode write SetMode default pmCopy;

property Style: TPenStyle read GetStyle write SetStyle default psSolid;

property Width: Integer read GetWidth write SetWidth default 1;

end;

步骤：

    1，TPen.create构建函数的工作

            constructor TPen.Create;

            begin

               FResource := PenManager.AllocResource(DefPenData);

               FMode := pmCopy;

            end;

          其中PenManager正是TResourceManager类,

          AllocResource()的任务是：

           a，寻找是否已经分配了同类型的Pen

           b，如果有，则增加该类型的Pen的引用计数；

           c，如果没有，则分配一个新的类型的Pen

        （其中：TPen的构造函数其实就是为其实例申请一块内存以存放该Pen的一些属性                 TPenData = record

                      Handle: HPen;

                      Color: TColor;

                      Width: Integer;

                      Style: TPenStyle;

                       end;）

          注意：默认（Handle）句柄=0,当真正需要使用Pen时，就需要将向Windows申请而获得的Pen对象的句柄赋给VCL的Pen对象。这就是通过其Handle属性进行的。

         那么Handle 如何获取的呢？

         答案：property Handle: HPen read GetHandle write SetHandle;

         a:

            SetHandle()方法将句柄传递给TPen实例的那个TPenData记录：

                 procedure TPen.SetHandle(Value: HPen);

                 var

                    PenData: TPenData;

                 begin

                     PenData := DefPenData;

                     PenData.Handle := Value;

                     SetData(PenData);

                 end;

         b:

           GetHandle()方法中，将判断其句柄是否为0。

      如果为0，则说明还没有真正向Windows申请创建过Pen对象，此时会真正地调用API函数CreatePenIndirect()来创建（该函数与CreatePen()差不多，区别只在于通过一个结构参数来指定该Pen的属性）一个GDI的Pen对象，并返回其句柄；如果不为0，则直接返回该句柄。