Форум: "Media";
Текущий архив: 2005.09.18;
Скачать: [xml.tar.bz2];
Вниз
Как в Listbox сделать нумерацб? Найти похожие ветки
← →
Артём (2005-05-04 17:11) [0]Как в Listbox сделать нумерацию? И еще как открыть сразу несколько файлов через Opendialog?
← →
Profi © (2005-05-04 17:34) [1]Артём (04.05.05 17:11)
У OpenDialog"а есть свойство multiselect. Став true. А с нумерацией легко (код если строки уже загружены):var s:string;
i:integer;
For i:=0 to listbox1.items.count-1 do begin
s:=listbox1.items[i];
s:=inttostr(i+1)+". "+s;
listbox1.items[i]:=s;
end;
Но лучше вставляй номер при хагрузки строк!
← →
Profi © (2005-05-04 17:36) [2]Profi © (04.05.05 17:34) [1]
"Ставь" и "загрузке" - конечно!
← →
Antonn © (2005-05-05 06:49) [3]Извращенцы, блин... :)
> Как в Listbox сделать нумерацию?
procedure TFormConf.ListboxDrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
begin
With ( Control As TListbox ).Canvas Do Begin
FillRect(Rect);
TextOut(Rect.Left, Rect.Top,inttostr(Index+1)+" "+( Control As TListbox).Items.Strings[index] );
End;
end;
Страницы: 1 вся ветка
Форум: "Media";
Текущий архив: 2005.09.18;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.011 c
