• 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    公众号

Delphi中编写OwnerDraw方式按钮的方法以及注意点

原作者: [db:作者] 来自: [db:来源] 收藏 邀请

{在Win32标准控件库中(comctl32.dll)的控件绝大部分的控件都支持自画(OwnerDraw)功能的
设置,这里以按钮为例子说说此类控件在delphi中的编写方式以及应该注意的问题!由于标
准的按钮都有一套规定的外观标准(由windows的comctl32.dll中的代码绘制),为了给用户
一个自己绘制控件的机会,多数的控件都支持在创建的时候设置一个标志来告诉系统这个控
件需要自己绘制,例如按钮中有:BS_OWNERDRAW,菜单的有:MF_OWNERDRAW等等(还有诸如:
ComboBox,ListBox都有这方面的特性),在delphi中设置这个标志不需要按Win32的方式那样
在窗口类中定义,只要在CreateParams方法中处理就可以了,虽然内部实现方式是一样的,
但毕竟我们写起来方便许多,不是吗?当你在窗口类中的Style中设置了这些旗标的话,系统
会在控件需要绘制的时候先发送一个WM_MEASUREITEM消息给当此控件的父窗体(注意这里要
注意,这是由于标准Win32开发方式决定的,由于原来大多数的控件都是在接收到主窗体的W
M_CREATE消息时候创建的,一个窗口过程是当时程序员可以编写代码唯一的机会,所有的消
息都发送到主线程的消息循环中,所以控件的消息自然发到这里来了!可没有这么频繁使用
子类化或者超类化的方式)来确定控件的绘制范围,然后接着发送WM_DRAWITEM给此控件的父
窗体,而我们要做一个独立的组件,它怎么知道什么时候该绘制呢?代码本来应该写在窗体
中才对啊!好在delphi在库中意见考虑到这个需求,只要你的控件是在delphi中使用的,那
么TForm窗体会将所有接收的消息发送给相应的窗口过程处理,TWinControl.WMDrawItem相关
代码如下(经过处理):}

procedure TWinControl.WMDrawItem(var Message: TWMDrawItem);
begin
if not DoControlMsg(Message.DrawItemStruct^.CtlID, Message) then iherited;
end;
而DoControlMsg的实现很简单:
function DoControlMsg(ControlHandle: HWnd; var Message): Boolean;
var Control: TWinControl;
begin
DoControlMsg := False;
Control := FindControl(ControlHandle);
if Control <> nil then
with TMessage(Message) do
begin
Result := Control.Perform(Msg + CN_BASE, WParam, LParam);
DoControlMsg := True;
end;
end;

{找到控件后将该消息的标识加上CN_BASE发送给相应窗口就是了(CN_DRAWITEM=CN_BASE+WM_
DRAWITEM),所以这里是第二个注意点:在组件中截获WM_DRAWITEM消息是没有效果的,事实
上根本没有这个消息传送到组件的窗口过程,而应该截获的是CN_DRAWITEM,WM_MEASUREITE
M的消息处理过程是一样的,组件中应该截取CN_MEASUREITEM消息!注意了这些我们就可以由
TButton来派生一个组件了,代码如下:}

TSundyButton = class(TButton)
private
FCanvas: TCanvas;
IsFocused: Boolean;
IsDown: boolean;
protected
procedure WMMOUSEDOWN(var message: TWMLButtonDown); message WM_LButtonDown;
procedure WMMOUSEUP(var message: TWMLButtonUp); message WM_LButtonUp; procedure CNDRAWITEM(var message: TWMDRAWITEM); message CN_DRAWITEM; procedure CNMEASUREITEM(var message: TWMMEASUREITEM); message CN_MEASUREITEM;
procedure CreateParams(var Params: TCreateParams); override;
procedure CMEnabledChanged(var Message: TMessage); message CM_ENABLEDCHANGED;
procedure CMFontChanged(var Message: TMessage); message CM_FONTCHANGED;
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
procedure SetButtonStyle(ADefault: Boolean); override;
procedure DrawItem(const DrawItemStruct: TDrawItemStruct);
end;

implementation

procedure TSundyButton.CNDRAWITEM(var message: TWMDRAWITEM);
begin
DrawItem(message.DrawItemStruct^);
end;

procedure TSundyButton.CNMEASUREITEM(var message: TWMMEASUREITEM);
begin
message.MeasureItemStruct^.itemWidth := Width;
message.MeasureItemStruct^.itemHeigh
t := Height;
end;

constructor TSundyButton.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
ControlStyle := ControlStyle + [csReflector];
FCanvas := TCanvas.Create;
Width := 85;
Height := 30;
end;

procedure TSundyButton.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
with Params do
Style := Style or BS_OWNERDRAW;
end;

destructor TSundyButton.Destroy;
begin
FreeAndNil(FCanvas);
inherited Destroy;
end;

//你可以在下面的方法中按你喜欢的方式画出各种效果,这里只是简单的示例,没有什么
//炫目的效果^_^
procedure TSundyButton.DrawItem(const DrawItemStruct: TDrawItemStruct);
var Rec: TRect;
begin
FCanvas.Handle := DrawItemStruct.hDC;
Rec := ClientRect;
with FCanvas do
begin
Pen.Style := psSolid;
Brush := Parent.Brush;
RoundRect(Rec.Left, Rec.Top, Rec.Right, Rec.Bottom, 4, 4); Brush.Color := clBtnFace;
Pen.Color := clBlack;
SetBkMode(FCanvas.Handle, Transparent);
if IsDown then
begin
Rec.Left := Rec.Left + 3;
Rec.Top := Rec.Top + 1;
Font.Color := clBlack;
DrawText(Handle, PChar(Caption), Length(Caption), Rec, DT_CENTER or DT_VCENT
ER or DT_SINGLELINE);
end
else if not IsDown then
begin
Font.Color := clRed;
DrawText(Handle, PChar(Caption), Length(Caption), Rec, DT_CENTER or DT_VCENTER or DT_SINGLELINE);
end;
if Enabled then
begin
if IsFocused then
DrawFocusRect(Rec);
end;
end;
FCanvas.Handle := 0;
end;

procedure TSundyButton.CMEnabledChanged(var Message: TMessage);
begin
inherited;
Invalidate;
end;

procedure TSundyButton.CMFontChanged(var Message: TMessage);
begin
inherited;
Invalidate;
end;

//这个方法要改写,且不能调用inherited去调用上层方法
procedure TSundyButton.SetButtonStyle(ADefault: Boolean);
begin
if (ADefault <> IsFocused) then
begin
IsFocused := ADefault;
Invalidate;
end;
end;

procedure TSundyButton.WMMOUSEDOWN(var message: TWMLBUTTONDOWN);
begin
inherited;
IsDown := True;
Invalidate;
end;

procedure WMMOUSEUP(var message: TWMLButtonUp);
begin
inherited;
IsDown := False;
Invalidate;
end;

{这里还有一个小的问题不知道大家做按钮组件的时候发现没有,我开始做的按钮完全注意到
上述的两点,但效果出来后一点击按钮,按钮又恢复了原来的样子,为了找到这个原因,我
试着跟踪它,发现只是在开始的时候CN_DRAWITEM会发送到我的组件窗口,当按钮或者焦点后
就再也没有这个消息发送过来了,经过很久的寻找终于在TButton的CM_FOCUSCHANGED消息中
发现了原因: }

procedure TButton.CMFocusChanged(var Message: TCMFocusChanged);
begin
with Message do
if Sender is TButton then
FActive := Sender = Self
else
FActive := FDefault;
SetButtonStyle(FActive);
inherited;
end;
//而SetButtonStyle(FActive)在或者焦点的时候会执行SetButtonStyle(True);

procedure TButton.SetButtonStyle(ADefault: Boolean);
const BS_MASK = $000F;
var
Style: Word;
begin
if HandleAllocated then
begin
if ADefault then
Style := BS_DEFPUSHBUTTON
else
Style := BS_PUSHBUTTON;
if GetWindowLong(Handle, GWL_STYLE) and BS_MASK <> Style then
SendMessage(Handle, BM_SETSTYLE, Style, 1);
end;
end;
{当我的ADefault为True或者False的时候,Style就变成标准的按钮样式了,所以这个方法我
们一定要改写并且不能在组件中调用上层的方法!这里简单总结一下此类组件开发的3个注意
点: 1.自画消息是系统发送到父窗口的,所以不能在组件的窗口过程中去截获这些消息,如
果是使用delphi开发的话,你可以在组件中截获相应的CN_BASE+WM_XXXXX消息,因为父窗口
对此类消息一般不处理,只是改变一下然后交给组件本身来处理! 2.你应该在CreateParam
s中设置好相应的属性,如:BS_OWNERDRAW,SS_OWNERDRAW等等(设置方式可以看源代码相应
部分)! 3.应该注意delphi中的一些默认的处理是否会改变组件的行为,如果会的话,你应
该改写它或者通过其他方式避免它,如此例中按钮的SetButtonStyle方法无论在何时都会将
我们设置好的属性改变为默认属性,所以要改写它(幸好它是个虚方法,给了我们一次机会
^_^)}!


鲜花

握手

雷人

路过

鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

专题导读
热门推荐
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服(服务时间 9:00~18:00)

在线QQ客服
地址:深圳市南山区西丽大学城创智工业园
电邮:jeky_zhao#qq.com
移动电话:139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap