| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как в Listbox сделать нумерацб? [D7, WinXP]

Артём ©   (2005-05-04 17:11:00) 

Как в Listbox сделать нумерацию? И еще как открыть сразу несколько файлов через Opendialog?

---

Antonn   (2005-05-05 06:49:00) [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;

---

Profi   (2005-05-04 17:36:00) [2]

Profi ©   (04.05.05 17:34) [1]
"Ставь" и "загрузке" - конечно!

---

Profi   (2005-05-04 17:34:00) [3]

Артём   (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;

Но лучше вставляй номер при хагрузки строк!

---

Наверх