Arsip: Menambahkan skrolbar horisonal pada listbox


by LuriDarmawan in Articles more 17 years ago 2116
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