TListBox Yatay Kaydırma Çubuğu Eklemek

[RamazanG]

Makale: Zarko Gajic.
Çeviri: Ramazan Gülbahar.

Kod: Tümünü seç

procedure SetHorizontalScrollBar(lb : TListBox) ;
var
  j, MaxWidth: integer;
begin
  MaxWidth := 0;
  for j := 0 to lb.Items.Count - 1 do
  if MaxWidth < lb.Canvas.TextWidth(lb.Items[j]) then
    MaxWidth := lb.Canvas.TextWidth(lb.Items[j]) ;

  SendMessage(lb.Handle, LB_SETHORIZONTALEXTENT,
                         MaxWidth + 5, 0) ;
end;

{ Kullanılışı: }
SetHorizontalScrollBar(ListBox1) ;