Цитата(Proxin @ 31.8.2010, 19:18  ) | | Да, можно покрасить и listbox, но он не рассчитан на работу с большими списками, будет подтормаживать |
И всего надо перевести ListBox в виртуальный режим - будет летать
| Код |
procedure TForm1.FormCreate(Sender: TObject);
begin
lst1.Style := lbVirtual;
lst1.Count := MaxInt - 1;
end;
procedure TForm1.lst1Data(Control: TWinControl; Index: Integer;
var Data: string);
begin
Data := IntToStr(Index)
end;
|
Тут другая проблема, ограничение в MAXWORD записей из-за глюков прокрутки, ну и еще что-то, уже не помню.
| Цитата(Proxin @ 31.8.2010, 19:18 ) | | virtualdrawtree |
+1 |