ListBox
2 отговора
87 прегледа
ListBox
Hi, ot skoro se zanimavam s Delphi5 i imam edin problem. Izpolzvam componenta ListBox za edin spisuc no zapisite v spisaca sa razli4ni po dul}|{ina, a ListBox niama horizontalen ScrollBar. Po kakuv na4in mo}|{e da se re6i tozi problem. S dve dymi nepokazva celia tecst na otdelnite zapisi.
Predvaritelno vi blagodaria.
Predvaritelno vi blagodaria.
Re: ListBox
Malko dopalnenie kam posta na Pechenia
procedure TForm1.Button1Click(Sender: TObject);
var
si, maxw, space: integer;
begin
maxw := 0;
space := 5; /// ili tam kolkoto iskash da imash "vazduh" sled naj-dalgia element
for si := 0 to ListBox1.Items.Count - 1 do
if maxw < ListBox1.Canvas.TextWidth(ListBox1.Items.Strings[ si ]) then
maxw := ListBox1.Canvas.TextWidth(ListBox1.Items.Strings[ si ]);
SendMessage(ListBox1.Handle, LB_SETHORIZONTALEXTENT, maxw + space, 0);
end;
Щом не върви от първия път, значи има шанс
procedure TForm1.Button1Click(Sender: TObject);
var
si, maxw, space: integer;
begin
maxw := 0;
space := 5; /// ili tam kolkoto iskash da imash "vazduh" sled naj-dalgia element
for si := 0 to ListBox1.Items.Count - 1 do
if maxw < ListBox1.Canvas.TextWidth(ListBox1.Items.Strings[ si ]) then
maxw := ListBox1.Canvas.TextWidth(ListBox1.Items.Strings[ si ]);
SendMessage(ListBox1.Handle, LB_SETHORIZONTALEXTENT, maxw + space, 0);
end;
Щом не върви от първия път, значи има шанс
Редактирано от LongJohn на