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

转载 2004年08月07日 14:03:00
CSDN_Logo.gif
ddd.GIF
01_bg_02.gif
  首 页 | 新 闻 | 技术中心 | 第二书店 | 《程序员》 | 《开发高手》 | 社 区 | 黄 页 | 人 才 menu_1.gif 01_bg_03.gif
移 动专 题SUNIBM微 软微 创精 华Donews人 邮
我的技术中心 
我的分类 我的文档
最新文章 发表文章
专栏管理 使用说明

RSSIcon.gif RSS 订阅 
Windows/.NET
.NET  (rss)    
Visual C++  (rss)    
Delphi  (rss)    
Visual Basic  (rss)    
ASP  (rss)    
JavaScript  (rss)    
Java/Linux
Java  (rss)    
Perl  (rss)    
综合
其他开发语言  (rss)    
文件格式  (rss)    
企业开发
游戏开发  (rss)    
网站制作技术  (rss)    
数据库
数据库开发  (rss)    
软件工程
其他  (rss)    

积极原创作者 
windoze (12)
ngnr (3)
unique001 (2)
duckur (2)
CanvasHat (5)
chensheng913 (132)
yolle (1)
sbf2000 (1)
ycg01 (1)
ezdevelop (29)
CSDN - 文档中心 - Delphi 阅读:163   评论: 0    参与评论
标题   组件制作之三(图形控件)     linzhengqun [原作]
关键字   组件制作之三(图形控件)
出处  

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

<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" />

 

很多东西我们已经在上面说过了,这里不多说了,我要直入图形控件的重点。图形控件不是封装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的源码,你会学到更多的东西。

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


相关文章
对该文的评论


网站简介 - 广告服务 - 网站地图 - 帮助信息 - 联系方式 - English biaoshi.gif
北京百联美达美数码科技有限公司 版权所有 京ICP证020026号
Copyright © CSDN.NET, Inc. All Rights Reserved
pageview1.asp?columnid=4&itemid=11

T-SQL 生成 两个新的真正的公历年历

  datefirst 无关版 2004-09-29:-- playyuer@Microshaoft.com invent-- http://www.Microshaoft.comdeclare @ ...
  • playyuer
  • playyuer
  • 2004-04-07 14:34:00
  • 3033

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

VCL中的Shape是个很不错的控件,可以选择几种图形,以满足我们的需求,但有时候就是觉得它的可选图形少了一点,比如我们想要一个三角形,它却没有。于是就想到来扩展一下这个控件,名为ShapeEx。其实...
  • linzhengqun
  • linzhengqun
  • 2004-08-05 14:09:00
  • 2036

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

很多东西我们已经在上面说过了,这里不多说了,我要直入图形控件的重点。图形控件不是封装Windows的控件,而是Delphi自己画出来的,那么它肯定有一个画控件的函数。这个函数就是:Paint; 看一下...
  • iseekcode
  • iseekcode
  • 2009-10-19 15:04:00
  • 584

HT图形组件设计之道(四)

在《HT图形组件设计之道(二)》我们展示了HT在2D图形矢量的数据绑定功能,这种机制不仅可用于2D图形,HT的通用组件甚至3D引擎都具备这种数据绑定机制,此篇我们将构建一个3D飞机模型,展示如果将数据...
  • u013161495
  • u013161495
  • 2014-10-09 00:05:43
  • 1384

ASP.NET-图形显示类控件

1. Image控件 (1)简介 Image控件用于在页面上显示图像。在使用控件时,可以在设计或运行编程方式为Image对象指定图形控件。 (2)属性 ID AlternateText I...
  • qq_34874791
  • qq_34874791
  • 2017-06-05 10:12:58
  • 117

基于Delphi的组件设计之概念

作为组件制作的开始,应该了解一些概念,我以为这些概念是非常重要的,将可以作为以后实践的理论基础。   一、组件的简要层次结构  一般情况下,VCL的组件可以从Tcomponent为开始。其最明显的特征...
  • SIMONBEN
  • SIMONBEN
  • 2007-10-28 10:27:00
  • 208

WinCE 开发自定义控件

最近项目需要在SmartPhone上实现一个HyperLink的功能,显然win32的控件里没有现成的,只有自己开发一个首先注册一个窗口类   int WINAPI WinMain(HINSTANCE...
  • prince0823
  • prince0823
  • 2007-04-14 19:39:00
  • 2962

多比图形控件(Web版)java 版

  • 2015年10月15日 17:15
  • 30.86MB
  • 下载

Kodak组件

  • 2008年03月06日 10:43
  • 746KB
  • 下载

Qt界面开发(各种控件以及图表)

Qt界面开发(各种控件以及图表) 1.Qt简洁窗体 源代码链接:点击打开链接 2.QT漂亮界面 源代码链接:点击打开链接 3.音乐播放器界面 源代码链接:点击打开链接 4.六宫格界面 源代码链接:...
  • ZhangXiaoyu_sy
  • ZhangXiaoyu_sy
  • 2017-12-28 21:51:56
  • 2280
收藏助手
不良信息举报
您举报文章:组件制作之三(图形控件)
举报原因:
原因补充:

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