Mega Code Archive

 

Categories / Delphi / VCL

 

Combobox içeriğini sağa hizalama

procedure TForm1.FormCreate(Sender: TObject) ; begin ComboBox1.Style := csOwnerDrawFixed; //for a ListBox use "lbOwnerDrawFixed" end; //The OnDrawItem event handler 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;