Как в 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]
"Ставь" и "загрузке" - конечно!

Извращенцы, блин... :)

> Как в 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;

Как в Listbox сделать нумерацб? Найти похожие ветки