Ok, pada kesempatan sore yang indah ini saya akan berbagi tips sederhana tapi tidak murahan tentunya. kita akan membuat Combobox tetapi ada list gambarnya. mungkin banyak yang masih bingung dengan maksud judul ini. jadi biasanya kalau kita taruh combobox yang ada di delphi 7 pasti akan hanya biasa saja tanpa image. jadi sekarang saatnya kalian coba tutorial yang satu ini yang mungkin bisa beri kalian imajinasi baru .. ckkckck (koyo opo ae tutorialku)
masih bingung :? baik saya kasih contohnya :
seperti diatas itu contohnya kawan. .. .. . .
lalu scriptnya .. . .
hahahha jangan buru-buru,,
ni sebelumnya kalian tambahkan Combobox1 dan image List1 dulu..
Combobox stylenya dirubah juga jadi csOwnerDrawFixed
combobox yang di event pada list OnDrawItem dirubah juga ComboBox1DrawItem
Berikut listing Programnya:
#
{$R *.DFM}
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+2,Rect.Top,
ComboBox1.Items[Index]);
end;
end.
Sudah selesai program kita untuk membuat comboboxnya ada gambarnya...
jika masih bingung, silahkan tinggalkan pesan anda dibawah..
