Скачать: CL | DM;

Как в 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.028 c