TListBox閃爍+文字顏色不正常…… |
|
答題得分者是：ikk
|
|
GrandRURU
站務副站長   發表：240 回覆：1680 積分：1874 註冊：2005-06-21 發送簡訊給我 |
我希望表現出來的是紅黑相間的情況
但出現了三個問題 一、listbox畫面會閃爍 二、游標指的項目會變白色 三、每增加一個items第一個項目會變色 實在搞不清楚程式哪邊寫錯… [code cpp] void __fastcall TfrmMain::ListBox1DrawItem(TWinControl *Control, int Index, TRect &Rect, TOwnerDrawState State) { TListBox *lb = (TListBox*)Control; lb->Canvas->Brush->Color = lb->Color; lb->Canvas->FillRect(Rect); lb->Font->Color = (TColor)lb->Items->Objects[Index]; lb->Canvas->TextOut(Rect.left 2, Rect.top, lb->Items->Strings[Index]); } //------------------------------------------------ void __fastcall TfrmMain::Button1Click(TObject *Sender) { static int i = 0; TColor Color; AnsiString Msg = "A" IntToStr(i); if(i%2) { Color = clBlack; } else { Color = clRed; } ListBox1->Items->AddObject(Msg, (TObject*)Color); ListBox1->ItemIndex = ListBox1->Items->Count - 1; i ; } [/code] |
|
ikk
尊榮會員 發表：4 回覆：413 積分：768 註冊：2003-06-30 發送簡訊給我 |
|
|
GrandRURU
站務副站長 發表：240 回覆：1680 積分：1874 註冊：2005-06-21 發送簡訊給我 |
發表時間：2009-04-07 14:36:53
IP:203.75.xxx.xxx 未訂閱
系統時間：2024-04-27 9:50:54
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |