請問如果要在statusbar 不同的panel 中有不同的icon 要怎樣呢? |
|
答題得分者是：yorkland
|
|
SamSam1230
中階會員   發表：128 回覆：178 積分：65 註冊：2004-12-23 發送簡訊給我 |
procedure TCCUForm.StatusBar1DrawPanel(StatusBar: TStatusBar; Panel: TStatusPanel; const Rect: TRect);
var
imgIndex, imgwidth, offset : integer;
begin
imgIndex := 0;
imgWidth := 16;
offset := 5; with StatusBar1.Canvas do
begin
FillRect(Rect);
ImageList1.Draw(StatusBar1.Canvas, Rect.Left offset, Rect.Top, imgIndex);
end; 我有三個panel
要怎樣才可以每一個panel 各自有不同的icon 謝謝大大
|
|
yorkland
高階會員 發表：2 回覆：138 積分：108 註冊：2004-12-17 發送簡訊給我 |
有三個Panel的話, 判斷Panel.Index即可。
if Panel.Index=0 then begin FillRect(Rect); ImageList1.Draw(StatusBar1.Canvas, Rect.Left offset, Rect.Top, imgIndex_1); end else if Panel.Index=1 then begin FillRect(Rect); ImageList1.Draw(StatusBar1.Canvas, Rect.Left offset, Rect.Top, imgIndex_2); end else if Panel.Index=2 then begin FillRect(Rect); ImageList1.Draw(StatusBar1.Canvas, Rect.Left offset, Rect.Top, imgIndex_3); end; |
|
SamSam1230
中階會員 發表：128 回覆：178 積分：65 註冊：2004-12-23 發送簡訊給我 |
發表時間：2005-02-23 09:40:30
IP:218.103.xxx.xxx 未訂閱
系統時間：2024-05-19 7:31:36
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |