Çeviri: Ramazan Gülbahar.
ListBox için "lbOwnerDrawFixed" metodunu kullan
Kod: Tümünü seç
procedure TForm1.FormCreate(Sender: TObject) ;
begin
ComboBox1.Style := csOwnerDrawFixed;
{ ListBox için "lbOwnerDrawFixed" metodunu kullan}
end;
Kod: Tümünü seç
{ OnDrawItem olayı}
procedure TForm1.ComboBox1DrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState) ;
var
x: Integer;
txt: String;
begin
with ComboBox1 do
begin
Canvas.FillRect(Rect) ;
txt := Items[Index];
x := Rect.Right - Canvas.TextWidth(txt) - 4;
Canvas.TextOut(x, Rect.Top, txt) ;
end;
end;