前两天有人在qq群里询问如何制作自己的2d人物组件，由于这个问题一两句话说不清楚，当时没有回复。好在3d basecampe 2008的全部视频我还留着，有一节讲座正好讲了这段内容。
这段视频前面一段详细讲解了如何利用一张现有的照片制作2D人物组件，后面讲解了组件的用法。虽然是英文，但是大家只要耐心看下去还是能学习到不少东西的。
在线交流QQ群
紫天1号交流群(2000人)：
紫天2号交流群(2000人)：
紫天3号交流群(2000人)：
请注意：为防止恶意骚扰，加群时请正确回答问题才能通过验证，且紫天群会不定期清理长期不发言者。
欢迎对紫天进行捐赠，捐赠渠道支付宝：
参数化城市规划插件Modelur
紫天公众微信号SuBlog
- 255,545 views - 242,566 views - 239,123 views - 227,938 views - 217,081 views - 209,478 views - 152,712 views - 152,208 views - 139,519 views - 119,569 views
2017年二月
13141516171819
20212223242526
This site is protected by如何制作新武将组件（如头部身体这类）_太阁立志传5吧_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名：今日本吧第个签到，本吧因你更精彩，明天继续来努力！
本吧签到人数：0可签7级以上的吧50个
本月漏签0次！成为超级会员，赠送8张补签卡连续签到：天&&累计签到：天超级会员单次开通12个月以上，赠送连续签到卡3张
关注：45,323贴子：
如何制作新武将组件（如头部身体这类）
我打算自己制作一个明国组件包
刚刚手一个哆嗦 不小心...
不谢叫我红领巾，你们上...
或者说是。。。。。娘？
交易完成送图中的画或者...
吧里的做图高手们 行动...
自行车加盟,投资成本低,轻松盈利,小本创业,万元代理.
嘿！没人么？
贴吧热议榜
使用签名档&&
保存至快速回贴组件制作之三（图形控件）-Delphi教程
当前位置：&>&&>& &
组件制作之三（图形控件）
组件制作之三（图形控件）
|　来源:网络 | 关键字：
VCL中的Shape是个很不错的控件，可以选择几种图形，以满足我们的需求，但有时候就是觉得它的可选图形少了一点，比如我们想要一个三角形，它却没有。于是就想到来扩展一下这个控件，名为ShapeEx。其实扩展的功能不多，只是增加了一些图形。而类也并不是继承自TShape，而是继承自TGraphicControl，这样可以让我们彻底看看图形控件的做法。Tshape也是继承自TGraphicControl。
VCL中的Shape是个很不错的控件，可以选择几种图形，以满足我们的需求，但有时候就是觉得它的可选图形少了一点，比如我们想要一个三角形，它却没有。于是就想到来扩展一下这个控件，名为ShapeEx。其实扩展的功能不多，只是增加了一些图形。而类也并不是继承自TShape，而是继承自TGraphicControl，这样可以让我们彻底看看图形控件的做法。Tshape也是继承自TGraphicControl。而我们的扩展控件功能是基于Shape的扩展，所以当然里面的代码几乎取之TShape，只是加了一些扩展图形的代码，但又有什么关系呢，VCL源码是最好的学习资源，我们何不取之用之。
&xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /&
很多东西我们已经在上面说过了，这里不多说了，我要直入图形控件的重点。图形控件不是封装Windows的控件，而是Delphi自己画出来的，那么它肯定有一个画控件的函数。这个函数就是:
看一下VCL源码，可以知道它定义在TGraphicControl。中：
procedure P
这是一个虚函数，那么它的实现是怎么样的呢，点击看它的实现如下：
procedure TGraphicControl.P
里面什么码也没有，这个很容易理解，因为它不可能知道他的子类的图形是什么样子的。所以设为虚函数，由它的子类来覆盖它。
那么是谁调用了这个函数来引起画控件呢。Windows有一个WM_PAINT;消息，当一切引起重画的条件发生，则会发送这条消息，再看看TGraphicControl，果然有截获这个消息：
procedure WMPaint(var Message: TWMPaint); message WM_PAINT;
在处理函数里面，调用了Paint方法，从而实现了画图形控件可能：
procedure TGraphicControl.WMPaint(var Message: TWMPaint);
if Message.DC && 0 then
Canvas.Handle := Message.DC;
P //调用了这个函数来画图形控件
Canvas.Handle := 0;
而它的子类覆盖了Paint函数，所以消息处理函数调用的实际上是某个子类的Paint方法，这个就是多态的应用了，这里不多说。
既然Paint函数可以画图形控件，那么它是以什么来画的呢，VCL有一个Canvas类，它就是用这个来画的，在TGraphicControl果然也定义了这个成员：
FCanvas: TC
property Canvas: TCanvas read FC
可以看出这是一个只读的成员，因为它不想外界来影响他。
好了，一切已经具备了，现在就可以画上去了。源代码有详细解释，这里不多说。
在ShapeEx中有两个对象属性，为Pen和Brush。对应于他的两个对象成员。设置了这两个属性之后，在对象察看器中就可以展开他们来设置他们的属性了。这个也是对象属性的一般用法。
似乎没有什么可说的了，下面看源代码吧，其中也有很详细的说明：
unit shapeExU
SysUtils,Classes,Graphics,Controls,ExtC
//定义了几种形状：矩形，正方形，圆角矩形，圆角正方形，椭圆形，圆形，
//增加的图形：横线，坚线，上三角形，菱形
TShapeType = (stRectangle, stSquare, stRoundRect, stRoundSquare,
stEllipse, stCircle,stHLine,stVLine,stTriangle,stDiamond);
TShapeEx = class(TGraphicControl)
FBrush: TB
FShape: TShapeT
procedure SetBrush(Value: TBrush);
procedure SetPen(Value: TPen);
procedure SetShape(Value: TShapeType);
//最重要的函数，在父类TGraphicControl中定义的一个
//虚函数，当得到WM_PAINT消息时，调用该函数引起重画
//父类是一个空函数，以便TGraphicControl的子类复盖它。
procedure P
constructor Create(AOwner: TComponent);
destructor D
//这个函数当图形中的画笔和画刷改变时引起重画，在设计器中最为明显
procedure StyleChanged(Sender: TObject);
property A
property A
property Brush: TBrush read FBrush write SetB
property DragC
property DragK
property DragM
property E
property C
property ParentShowH
property Pen: TPen read FPen write SetP
property Shape: TShapeType read FShape write SetShape default stR
property ShowH
property V
property OnContextP
property OnDragD
property OnDragO
property OnEndD
property OnEndD
property OnMouseD
property OnMouseM
property OnMouseUp;
property OnStartD
property OnStartD
implementation
//构造函数，ControlStyle确定控件的特征，这里是加上csReplicatable
//使该控件可以用PaintTo方法把它画到一个任意的画布中
//另外还指定Pen和Brush对象的OnChange事件的方法指针给StyleC
constructor TShapeEx.Create(AOwner: TComponent);
inherited Create(AOwner);
ControlStyle := ControlStyle + [csReplicatable];
Width := 65;
Height := 65;
FPen := TPen.C
FPen.OnChange := StyleC
FBrush := TBrush.C
FBrush.OnChange := StyleC
destructor TShapeEx.D
inherited D
//最重要函数，控件就是以这个函数画出来的。
procedure TShapeEx.P
//X:左上角X， Y：左上角Y， W：宽， Y：高 S：宽高中大的值
X, Y, W, H, S: I
//Canvas是父类TGraphicControl的属性，用于画控件
//在画图之前，要进行一些坐标点的确定，
with Canvas do
//如果以控件的四个角来画图形，当Pen太大时，图形的边线
//将比Pen的宽要小一些，所以要进行点的重定位。
Brush := FB
X := Pen.Width div 2;
W := Width - Pen.Width + 1;
H := Height - Pen.Width + 1;
//Pen.width的值为0和为1时是一样的等于一个象素
//如果上面Pen.width等于1，则图形的宽高刚好等于控件的宽高
//如果为0，则图形宽高要大于控件宽高一个象素了，所以有了下面的语句
if Pen.Width = 0 then
if W & H then S := W else S := H;
//当图形为正方类型的图形时，需要对图形的位置进行一些调整
if FShape in [stSquare, stRoundSquare, stCircle] then
Inc(X, (W - S) div 2);
Inc(Y, (H - S) div 2);
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);
//以下是增加的部分。
MoveTo(X, Height div 2);
LineTo(X+W,Height div 2);
MoveTo(Width div 2,Y);
LineTo(Width div 2,Y+H);
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)]);
//Invalidate这个函数将使系统发送WM_PAINT给TGraphicControl
//TGraphicControl的处理函数将调用Paint，而它的子类覆盖了它
//所以实际就调用了ShapeEx的Paint函数，从而达到了重画的效果
procedure TShapeEx.StyleChanged(Sender: TObject);
procedure TShapeEx.SetBrush(Value: TBrush);
FBrush.Assign(Value);
procedure TShapeEx.SetPen(Value: TPen);
FPen.Assign(Value);
//设置图形，同时引起重画，以达到图形变化，
//最明显的效果是在设计器时改变Shape属性时看到的变化
procedure TShapeEx.SetShape(Value: TShapeType);
if FShape && Value then
FShape := V
安装等方法在上一章已经说过了，这里不多说。这一次知道了图形控件的大概做法，其实无非就是覆盖Paint来画自己的图形控件，而其他，则和我们上一章的说过的一样。其实也很简单。
以上两个控件算是比较简单，但已经讲清了很多组件制作的概念和技巧，看不看得懂就由你了，我也没有办法。有一个有用的技巧就是多看看VCL的源码，你会学到更多的东西。
接下来，应该要做一个难一点了吧。想知道是什么，且听下回分解。
网友评论仅供其表达个人看法，并不表明网易立场。【菜鸟新人求解救】求大哥叫我如何制作311新武将的3D造型！_三国志11威力加强版吧_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名：今日本吧第个签到，本吧因你更精彩，明天继续来努力！
本吧签到人数：0可签7级以上的吧50个
本月漏签0次！成为超级会员，赠送8张补签卡连续签到：天&&累计签到：天超级会员单次开通12个月以上，赠送连续签到卡3张
关注：76,652贴子：
【菜鸟新人求解救】求大哥叫我如何制作311新武将的3D造型！
求解脱！！
加Ｑ７５８７４３０７７
如题，女神镇
纯手绘，4个小时作品，...
新人没玩过御龙在天，第...
我是新人 大家多多照顾...
[三国志11威力加强版] _三国志11威力加强版全新改编游戏--37攻城,带你进入三国天下!!点击三国志11威力加强版全新官网.进三国志11威力加强版官网5秒极速开始三国之旅.
要不我发个帖子说下3D怎么做？各位吧友怎么看？
用VAN修改器编辑随便一个剧本，在游戏里你看上哪个人物的模型就去VAN点开它的，记住了以后VAN修改新武将（makedata），导入新武将的3D模型里。
这是我找到的一些图，如果会RPGviewer你自己看着改好了，抱歉实在有点懒，不想写教程了……
已会，谢谢大家.我是直接用修改器修改的
贴吧热议榜
使用签名档&&
保存至快速回贴}