TComboBox Metni Sağa Hizalamak

[RamazanG]

Makale: Zarko Gajic.
Ç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;

OnDrawItem olayı

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;