Menambahkan gambar pada combobox delphi

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; 

Sekian...

Posted by Antas Delphi on - Rating: 4.5

Title : Menambahkan gambar pada combobox delphi
Description : Rubah Style Pada Combobox Menjadi csOwnerDrawVariable atau csOwnerDrawFixed