开发学院软件开发 Delphi 修改XPMenu让ToolButton在Down=True时正确显示阅读

修改XPMenu让ToolButton在Down=True时正确显示

　2006-02-04 14:01:00　来源：WEB开发网　闂傚倸鍊搁崐椋庢濮橆兗缂氱憸宥堢亱闂佸湱铏庨崰鏍不椤栫偞鐓ラ柣鏇炲€圭€氾拷

闂傚倸鍊搁崐椋庣矆娓氣偓楠炲鏁撻悩鎻掔€梺姹囧灩閻忔艾鐣烽弻銉︾厵闁规鍠栭。濂告煕鎼达紕校闁靛洤瀚伴獮鎺楀箣濠靛啫浜鹃柣銏⑶圭壕濠氭煙閻愵剚鐏辨俊鎻掔墛缁绘盯宕卞Δ鍐冣剝绻涘畝濠佺敖缂佽鲸鎹囧畷鎺戭潩閹典焦鐎搁梻浣烘嚀閸ゆ牠骞忛敓锟�

婵犵數濮烽弫鍛婃叏椤撱垹绠柛鎰靛枛瀹告繃銇勯幘瀵哥畼闁硅娲熷缁樼瑹閳ь剙岣胯鐓ら柕鍫濇偪濞差亜惟闁宠桨鑳堕崝锕€顪冮妶鍡楃瑐闁煎啿鐖奸崺濠囧即閵忥紕鍘梺鎼炲劗閺呮稒绂掕缁辨帗娼忛埡浣锋闂佽桨鐒﹂幑鍥极閹剧粯鏅搁柨鐕傛嫹闂傚倸鍊搁崐椋庢濮橆兗缂氱憸宥堢亱闂佸湱铏庨崰鏍不椤栫偞鐓ラ柣鏇炲€圭€氾拷　　闂傚倸鍊搁崐鐑芥嚄閼哥數浠氱紓鍌欒兌缁垶銆冮崨鏉戠厺鐎广儱顦崡鎶芥煏韫囨洖校闁诲寒鍓熷铏圭磼濡搫顫岄梺鍦拡閸嬪棝鎯€椤忓浂妯勯梺鍝勬湰濞叉ḿ鎹㈠┑濠勭杸闁哄洨濮烽悰銉╂⒒娴ｅ搫甯跺鐟帮攻缁傚秴饪伴崼姘ｅ亾閺冨牆绀冩い蹇庣娴滈箖鏌ㄥ┑鍡涱€楀褜鍠栭湁闁绘ɑ鐟ョ€氼喚绮绘ィ鍐╃厱妞ゆ劑鍊曢弸搴ㄦ煟韫囧鍔滈柕鍥у瀵潙螣閸濆嫬袝婵＄偑鍊戦崹娲偡閳哄懎绠栭柍鈺佸暞閸庣喖鏌曢崶褍绨婚柟鍑ゆ嫹

核心提示：XPMenu是一个不错的程序界面效果控件，但它也存在不少不足之处，修改XPMenu让ToolButton在Down=True时正确显示，我最近又对它作了一点修改，原因是我在程序里有一个ToolButton，以及用什么颜色作底色：if (cdsHot in State) then begin if (cdsCheck

XPMenu是一个不错的程序界面效果控件，但它也存在不少不足之处。我最近又对它作了一点修改。
　　原因是我在程序里有一个ToolButton，其Style=tbsButton，当Down=True时，XPMenu绘制的效果效果跟Down=False时一样，也就是说根本看不出它是按下的。当把Style改为tbsCheck后，却能显示效果，但是底色很深。
　　这个按钮来我是用来表示某个面板是否可以显示的，我希望它像OfficeXP的工具按钮那样，当工具条显示时，在按钮上画个边框即可，而不是以很深的底色显示。
　　XPMenu绘制工具栏按钮是由TXPMenu.ToolBarDrawButton函数完成，原型为如下：

PRocedure TXPMenu.ToolBarDrawButton(Sender: TToolBar; Button: TToolButton; State: TCustomDrawState; var DefaultDraw: Boolean);

　　在函数内由以下代码决定按钮是否显示边框，以及用什么颜色作底色：

if (cdsHot in State) then
begin
　 if (cdsChecked in State) or (Button.Down) or (cdsSelected in State) then
　　 ACanvas.Brush.Color := FCheckedAreaSelectColor
　 else
　　 ACanvas.brush.color := FBSelectColor;
　 HasBorder := true;
　 HasBkg := true;
end;

if ((cdsChecked in State) and not (cdsHot in State)) then
begin
　 ACanvas.Brush.Color := FCheckedAreaColor;
　 HasBorder := true;
　 HasBkg := true;
end;

if (cdsIndeterminate in State) and not (cdsHot in State) then
begin
　 ACanvas.Brush.Color := FBSelectColor;
　 HasBkg := true;
end;

　　它忽略掉了非cdsHot、非cdsChecked状态下按钮的Down=True的情况的处理。因此只要加上相应的判断，并让HasBorder=true即可达到我希望的效果。修改后代码如下：

if (cdsHot in State) then
begin
　 if (cdsChecked in State) or (Button.Down) or (cdsSelected in State) then
　　 ACanvas.Brush.Color := FCheckedAreaSelectColor
　 else
　　 ACanvas.brush.color := FBSelectColor;
　 HasBorder := true;
　 HasBkg := true;
end;

if ((cdsChecked in State) and not (cdsHot in State)) then
begin
　 ACanvas.Brush.Color := FCheckedAreaColor;
　 HasBorder := true;
　 HasBkg := true;
end;

{Modify: Conch 2005-3-10 在Down=true的按钮上画出边框}
if (Button.Down) and not (cdsHot in State) then
begin
　 HasBorder := true;
　 HasBkg := false;
end;
//Conch