如何改變MainMenu的顏色 |
|
尚未結案
|
|
suntao008
一般會員   發表：70 回覆：38 積分：21 註冊：2003-10-19 發送簡訊給我 |
|
|
meta
中階會員  發表：3 回覆：60 積分：57 註冊：2004-06-09 發送簡訊給我 |
|
|
suntao008
一般會員 發表：70 回覆：38 積分：21 註冊：2003-10-19 發送簡訊給我 |
|
|
meta
中階會員 發表：3 回覆：60 積分：57 註冊：2004-06-09 發送簡訊給我 |
//以下是參考http://delphi.ktop.com.tw/topic.php?TOPIC_ID=73059.
修改.在D5下..ok..
1.MainMenu1.OwnerDraw:=true;
2.
procedure TForm1.test1DrawItem(Sender: TObject; ACanvas: TCanvas;
ARect: TRect; Selected: Boolean);
var
dwCheck : Integer;
MenuColor : TColor;
begin
// Get the checkmark dimensions.
dwCheck := GetSystemMetrics(SM_CXMENUCHECK);
ARect.Left := ARect.Left LoWord(dwCheck);
MenuColor :=StringToColor('clRed');//暫設為紅色
ACanvas.Brush.Color := MenuColor;
ACanvas.Pen.Style := psClear;
ACanvas.Rectangle(ARect.Left, ARect.Top,
ARect.Right, ARect.Bottom);//改變Left,Right->改變畫出的範圍
end;
|
|
pillar62
資深會員 發表：9 回覆：324 積分：271 註冊：2002-04-15 發送簡訊給我 |
|
|
meta
中階會員 發表：3 回覆：60 積分：57 註冊：2004-06-09 發送簡訊給我 |
|
|
Fishman
尊榮會員  發表：120 回覆：1949 積分：2163 註冊：2006-10-28 發送簡訊給我 |
Hi suntao008, 參考先前幾位大大所述連結，並修改如下範例： http://delphi.ktop.com.tw/loadfile.php?TOPICID=22900345&CC=512155
------
Fishman |
發表時間：2005-06-13 09:24:54
IP:61.155.xxx.xxx 未訂閱
系統時間：2024-05-19 13:59:18
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |