组件制作之三(图形控件)

原创 2004年08月05日 14:09:00

VCL中的Shape是个很不错的控件,可以选择几种图形,以满足我们的需求,但有时候就是觉得它的可选图形少了一点,比如我们想要一个三角形,它却没有。于是就想到来扩展一下这个控件,名为ShapeEx。其实扩展的功能不多,只是增加了一些图形。而类也并不是继承自TShape,而是继承自TGraphicControl,这样可以让我们彻底看看图形控件的做法。Tshape也是继承自TGraphicControl。而我们的扩展控件功能是基于Shape的扩展,所以当然里面的代码几乎取之TShape,只是加了一些扩展图形的代码,但又有什么关系呢,VCL源码是最好的学习资源,我们何不取之用之。

 

很多东西我们已经在上面说过了,这里不多说了,我要直入图形控件的重点。图形控件不是封装Windows的控件,而是Delphi自己画出来的,那么它肯定有一个画控件的函数。这个函数就是:

Paint;

 看一下VCL源码,可以知道它定义在TGraphicControl。中:

 procedure Paint; virtual;

这是一个虚函数,那么它的实现是怎么样的呢,点击看它的实现如下:

procedure TGraphicControl.Paint;

begin

end;

里面什么码也没有,这个很容易理解,因为它不可能知道他的子类的图形是什么样子的。所以设为虚函数,由它的子类来覆盖它。

 

那么是谁调用了这个函数来引起画控件呢。Windows有一个WM_PAINT;消息,当一切引起重画的条件发生,则会发送这条消息,再看看TGraphicControl,果然有截获这个消息:

procedure WMPaint(var Message: TWMPaint); message WM_PAINT;

在处理函数里面,调用了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函数,所以消息处理函数调用的实际上是某个子类的Paint方法,这个就是多态的应用了,这里不多说。

 

既然Paint函数可以画图形控件,那么它是以什么来画的呢,VCL有一个Canvas类,它就是用这个来画的,在TGraphicControl果然也定义了这个成员:

FCanvas: TCanvas;

property Canvas: TCanvas read FCanvas;

可以看出这是一个只读的成员,因为它不想外界来影响他。

 

好了,一切已经具备了,现在就可以画上去了。源代码有详细解释,这里不多说。

 

ShapeEx中有两个对象属性,为PenBrush。对应于他的两个对象成员。设置了这两个属性之后,在对象察看器中就可以展开他们来设置他们的属性了。这个也是对象属性的一般用法。

 

似乎没有什么可说的了,下面看源代码吧,其中也有很详细的说明:

unit shapeExUnit;

 

interface

uses

  SysUtils,Classes,Graphics,Controls,ExtCtrls;

 

type

//定义了几种形状:矩形,正方形,圆角矩形,圆角正方形,椭圆形,圆形,

//增加的图形:横线,坚线,上三角形,菱形

 TShapeType = (stRectangle, stSquare, stRoundRect, stRoundSquare,

    stEllipse, stCircle,stHLine,stVLine,stTriangle,stDiamond);

 

  TShapeEx = class(TGraphicControl)

  private

    FPen: TPen;

    FBrush: TBrush;

    FShape: TShapeType;

    procedure SetBrush(Value: TBrush);

    procedure SetPen(Value: TPen);

    procedure SetShape(Value: TShapeType);

  protected

  //最重要的函数,在父类TGraphicControl中定义的一个

  //虚函数,当得到WM_PAINT消息时,调用该函数引起重画

  //父类是一个空函数,以便TGraphicControl的子类复盖它。

    procedure Paint; override;

  public

    constructor Create(AOwner: TComponent); override;

    destructor Destroy; override;

  published

  //这个函数当图形中的画笔和画刷改变时引起重画,在设计器中最为明显

    procedure StyleChanged(Sender: TObject);

    property Align;

    property Anchors;

    property Brush: TBrush read FBrush write SetBrush;

    property DragCursor;

    property DragKind;

    property DragMode;

    property Enabled;

    property Constraints;

    property ParentShowHint;

    property Pen: TPen read FPen write SetPen;

    property Shape: TShapeType read FShape write SetShape default stRectangle;

    property ShowHint;

    property Visible;

    property OnContextPopup;

    property OnDragDrop;

    property OnDragOver;

    property OnEndDock;

    property OnEndDrag;

    property OnMouseDown;

    property OnMouseMove;

    property OnMouseUp;

    property OnStartDock;

    property OnStartDrag;

  end;

 

implementation

 

//构造函数,ControlStyle确定控件的特征,这里是加上csReplicatable

//使该控件可以用PaintTo方法把它画到一个任意的画布中

//另外还指定PenBrush对象的OnChange事件的方法指针给StyleChanged;

constructor TShapeEx.Create(AOwner: TComponent);

begin

  inherited Create(AOwner);

  ControlStyle := ControlStyle + [csReplicatable];

  Width := 65;

  Height := 65;

  FPen := TPen.Create;

  FPen.OnChange := StyleChanged;

  FBrush := TBrush.Create;

  FBrush.OnChange := StyleChanged;

end;

 

destructor TShapeEx.Destroy;

begin

  FPen.Free;

  FBrush.Free;

  inherited Destroy;

end;

//最重要函数,控件就是以这个函数画出来的。

procedure TShapeEx.Paint;

var

//X:左上角X Y:左上角Y W:宽, Y:高  S:宽高中大的值

  X, Y, W, H, S: Integer;

begin

//Canvas是父类TGraphicControl的属性,用于画控件

//在画图之前,要进行一些坐标点的确定,

  with Canvas do

  begin

  //如果以控件的四个角来画图形,当Pen太大时,图形的边线

  //将比Pen的宽要小一些,所以要进行点的重定位。

    Pen := FPen;

    Brush := FBrush;

    X := Pen.Width div 2;

    Y := X;

    W := Width - Pen.Width + 1;

    H := Height - Pen.Width + 1;

    //Pen.width的值为0和为1时是一样的等于一个象素

    //如果上面Pen.width等于1,则图形的宽高刚好等于控件的宽高

    //如果为0,则图形宽高要大于控件宽高一个象素了,所以有了下面的语句

    if Pen.Width = 0 then

    begin

      Dec(W);

      Dec(H);

    end;

    if W < H then S := W else S := H;

    //当图形为正方类型的图形时,需要对图形的位置进行一些调整

    if FShape in [stSquare, stRoundSquare, stCircle] then

    begin

      Inc(X, (W - S) div 2);

      Inc(Y, (H - S) div 2);

      W := S;

      H := S;

    end;

    case FShape of

      stRectangle, stSquare:

        Rectangle(X, Y, X + W, Y + H);

      stRoundRect, stRoundSquare:

        RoundRect(X, Y, X + W, Y + H, S div 4, S div 4);

      stCircle, stEllipse:

        Ellipse(X, Y, X + W, Y + H);

      //以下是增加的部分。

      stHLine:

      begin

        MoveTo(X, Height div 2);

        LineTo(X+W,Height div 2);

      end;

      stVLine:

      begin

        MoveTo(Width div 2,Y);

        LineTo(Width div 2,Y+H);

      end;

      stTriangle:

        Polygon([Point(X,Y+H-1),Point(X+W-1,Y+H-1),Point(Width div 2,Y)]);

      stDiamond:

        Polygon([Point(Width div 2,Y),Point(X,Height div 2),

                 Point(Width div 2,Y+H-1),Point(X+W-1, Height div 2)]);

    end;

  end;

end;

//Invalidate这个函数将使系统发送WM_PAINTTGraphicControl

//TGraphicControl的处理函数将调用Paint,而它的子类覆盖了它

//所以实际就调用了ShapeExPaint函数,从而达到了重画的效果

procedure TShapeEx.StyleChanged(Sender: TObject);

begin

  Invalidate;

end;

 

procedure TShapeEx.SetBrush(Value: TBrush);

begin

  FBrush.Assign(Value);

end;

 

procedure TShapeEx.SetPen(Value: TPen);

begin

  FPen.Assign(Value);

end;

//设置图形,同时引起重画,以达到图形变化,

//最明显的效果是在设计器时改变Shape属性时看到的变化

procedure TShapeEx.SetShape(Value: TShapeType);

begin

  if FShape <> Value then

  begin

    FShape := Value;

    Invalidate;

  end;

end;

 

end.

 

安装等方法在上一章已经说过了,这里不多说。这一次知道了图形控件的大概做法,其实无非就是覆盖Paint来画自己的图形控件,而其他,则和我们上一章的说过的一样。其实也很简单。

以上两个控件算是比较简单,但已经讲清了很多组件制作的概念和技巧,看不看得懂就由你了,我也没有办法。有一个有用的技巧就是多看看VCL的源码,你会学到更多的东西。

接下来,应该要做一个难一点了吧。想知道是什么,且听下回分解。

MFC中利用TeeChart控件完成三维图形绘制

(如需交流,请关注公众号:神马观止) MFC中利用TeeChart控件完成三维图形绘制               前一段时间由于帮一个朋友处理一些数据,需要编写一个最简单的界面,实现数据显示。中间遇...
  • dejingqianshen
  • dejingqianshen
  • 2014年01月18日 22:40
  • 4747

汇总Delphi第三方控件—报表、图表、界面、数据库

有网友问我常用的Delphi第三方控件及功能。我先大概整理一下,以后会在文章里面碰到时再仔细介绍。 报表图表: TeeChart Pro 在 delphi 的图形显示方面目前唯一的选择,虽然从de...
  • dyllove98
  • dyllove98
  • 2013年03月19日 16:19
  • 5625

3D-MAX真实三维地形制作过程

3DMAX三维地形图效果演示 工具准备      1、BIGEMAP地图下载器      2、3DMAX软件       3、global mapper     Global mepper ...
  • bigemap
  • bigemap
  • 2016年09月13日 11:43
  • 42549

RichEdit控件基础知识之三

  • 2011年08月20日 21:42
  • 34KB
  • 下载

.net控件集-之三

  • 2013年09月05日 16:07
  • 38.1MB
  • 下载

[Android]如何做一个崩溃率少于千分之三噶应用app(18)-组件化与插件化优化

以下是我这个系列的相关文章,有兴趣可以参考一下,可以给个喜欢或者关注我的文章。 [Android]如何做一个崩溃率少于千分之三噶应用app--章节列表 记得我之前有介绍了一...
  • hongchengling2
  • hongchengling2
  • 2017年06月24日 12:53
  • 367

[Android]如何做一个崩溃率少于千分之三噶应用app(23)-组件化&模块化&插件化演进

大家好,我系苍王。 以下是我这个系列的相关文章,有兴趣可以参考一下,可以给个喜欢或者关注我的文章。 [Android]如何做一个崩溃率少于千分之三噶应用app--章节列表 ...
  • hongchengling2
  • hongchengling2
  • 2017年06月24日 12:58
  • 296

VisualC_图形图像编程之三_处理图片

  • 2011年10月17日 21:59
  • 3.78MB
  • 下载

Qt OpenGL:学习现代3D图形编程之三,移动三角形 源码

  • 2016年04月03日 09:39
  • 2.48MB
  • 下载

VisualC_图形图像编程之三_处理图片

  • 2009年01月07日 22:06
  • 3.67MB
  • 下载
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:组件制作之三(图形控件)
举报原因:
原因补充:

(最多只允许输入30个字)