Sabtu, 13 September 2008

COMBOBOX DENGAN WARNA_WARNANYA DI DELPHI

ini sungguh mudah membuat combobox itu menunjukkan warna daftar. kamu perlu menentukan properti "Style" ke "csOwnerDrawFixed". Kasus ini menyebabkan pemanggilan dari

" Ondrawitem" untuk setiap itemdi combobox anda. Drawitem rutin menggambar warna pada bar.

Sourcenya sebagai berikut:

with ComboBox1.Items do

begin

Add(IntToStr(clRed));

Add(IntToStr(clFuchsia));

Add(IntToStr(clBlue));

Add(IntToStr(clGreen));

Add(IntToStr(clYellow));

end;

procedure TForm1.ComboBox1DrawItem(Control: TWinControl;

Index : Integer; Rect: TRect; State: TOwnerDrawState);

begin

with Control as TComboBox,Canvas do

begin

// fill the rectangle first with white

Brush.Color := clWhite;

FillRect(Rect);

// then reduce it and fill it with the color

InflateRect(Rect,-2,-2);

Brush.Color := StrToInt(Items[Index]);

FillRect(Rect);

end;

end;

Tidak ada komentar: