Arsip: Menambahkan skrolbar horisonal pada listbox


by LuriDarmawan in Articles more 14 years ago 1732
Pada kondisi default, listbox tidak memiliki skrolbar horisontal.

Jika ingin menambahkan skrolbar horisonal pada suatu komponen listbox,
bisa digunakan prosedur berikut:
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;
Syntax Highlighted with https://pascal-id.org/syntax


Penggunaan:

SetHorizontalScrollBar(ListBox1) ;
Syntax Highlighted with https://pascal-id.org/syntax


Selamat Mencoba.
Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com