Rubah Style Pada Combobox Menjadi csOwnerDrawVariable atau csOwnerDrawFixed
procedure TForm1.ComboBox1DrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
begin
ComboBox1.Canvas.FillRect(rect);
ImageList1.Draw(ComboBox1.Canvas,Rect.Left,rect.Top,Index);
ComboBox1.Canvas.TextOut(rect.Left+ImageList1.Width+1,rect.Top,ComboBox1.Items[index])
end;
0 comments:
Post a Comment
Jangan Lupa Memberikan Komentar, Namun Tolong Agar Menggunakan Bahasa Yang BAIK dan SOPAN Terima Kasih...