想做Combobox與ListBox使其背景顏色
因Index的不同給予不同的顏色
而現在是有實做出來
但卡在一個問題
當用Mouse去拉Scroll Bar 時，整個顏色
會亂掉，去測試懷疑為Indexitem實際上
沒有跟著Scroll Bar跑，所以導致顏色沒
有重新分配。
想問問各位大大，有什麼方式去改可以
改進Combobox使其顏色可以重新的分配好。
而ListBox的問題跟Combobox一樣，另它更
是產生另一個畫面會一直閃爍的問題..Orz

Combobox程式碼

[code delphi]
procedure TForm1.ComboBox1DrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
var
TempData:String;
begin
TempData := (Control as TComboBox).Items[index];
With (Control as TComboBox) Do
BEGIN
case (index mod 4) of
0:Color :=clblack;
1:Color :=clBlue;
2:Color :=clRed;
3:Color :=clWindow;
Else
Color :=clWindow;
end;
End;
With (Control as TComboBox).Canvas DO
BEGIN
FillRect(Rect);
font.Color := clyellow;
TextOut(Rect.Left,Rect.Top,LeftStr(TempData,Length(TempData)-1));
TextOut(PenPos.X,Rect.Top,RightStr(TempData,1));
END;
end;
[/code]

ListBox程式碼

[code delphi]
procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
var
TempData:String;
begin
TempData := (Control as TListBox).Items[index];
With (Control as TListBox) Do
BEGIN
case (index mod 4) of
0:Color :=clblack;
1:Color :=clBlue;
2:Color :=clRed;
3:Color :=clWindow;
Else
Color :=clWindow;
end;
End;
With (Control as TListBox).Canvas DO
BEGIN
FillRect(Rect);
font.Color := clyellow;
TextOut(Rect.Left,Rect.Top,LeftStr(TempData,Length(TempData)-1));
TextOut(PenPos.X,Rect.Top,RightStr(TempData,1));
END;
end;
[/code]

------
初學、初學、學了很久...還是在初學階段..Orz

附加檔案：47c66bbb91707_Combobox與ListBox背景.rar

//Combobox.Style := csOwnerDrawFixed;
procedure TForm1.ComboBox1DrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
begin
with ComboBox1 do //TCombobox oder T.....box
begin
case (index mod 4) of
0:Canvas.Brush.color :=clblack;
1:Canvas.Brush.color :=clBlue;
2:Canvas.Brush.color :=clRed;
3:Canvas.Brush.color :=clWindow;
end;
Canvas.FillRect(Rect);
Canvas.Font.Color := clyellow;;
Canvas.TextOut(Rect.Left,Rect.Top,Items[Index]);
end;
end;

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
var
TempData:String;
begin
TempData := (Control as TListBox).Items[index];
Canvas.Brush.Color :=clblack;
1: With (Control as TListBox).Canvas DO
BEGIN
FillRect(Rect);
font.Color := clyellow;
TextOut(Rect.Left,Rect.Top,LeftStr(TempData,Length(TempData)-1));
TextOut(PenPos.X,Rect.Top,RightStr(TempData,1));
END;
end;

------
努力會更接近成功

編輯記錄

感謝大大，讓我了解兩個方式差異

------
初學、初學、學了很久...還是在初學階段..Orz