Есть ли компонент - аналог listbox позволяющий листать, отображать, работать с 150 тыс. строк?

[Suny-o]

В моем словаре вышеприведенная процедура позволяет без задержки отображать, 129 тыс. строк словаря, но ползунок по прежнему не позволяет листать весь словарь полностью, а только половину. Что бы пролистать все нужно использовать PageUp, PageDown.

[ReportCube]

Измените под себя

unit Unit1;

interface

uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
TForm1 = class(TForm)
ListBox1: TListBox;
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure ListBox1Data(Control: TWinControl; Index: Integer;
var Data: string);
private
S: TStringList;
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
i: Integer;
begin
ListBox1.Count := 0;
S.Clear;
S.BeginUpdate;
for i := 0 to 150000 do
S.Add(IntToStr(i));
S.EndUpdate;
ListBox1.Count := S.Count;
ListBox1.Repaint;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
S := TStringList.Create(True);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
S.Free;
end;

procedure TForm1.ListBox1Data(Control: TWinControl; Index: Integer;
var Data: string);
begin
if (Index > -1) and (Index < S.Count) then
Data := S[Index];
end;

end.

[Suny-o]

Измените под себя

Эта вариция не отличается от ниже приведенной и от приведенных ранее.

Что бы понять о чем речь нужно использовать 500 тыс. элементов.
Тогда дальше 41249 элемента ползунком листаться listbox не будет.

unit prob1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    Button1: TButton;
    Button2: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure ListBox1Data(Control: TWinControl; Index: Integer; var Data: String);
  private
    tstr:TStrings;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var n:integer;
begin
  tstr:=TStringList.Create;
  for n:=1 to 500000 do
  begin
    tstr.Add(inttostr(n));
  end;
  ListBox1.Style:=lbVirtual;
  ListBox1.Count:=tstr.Count;
end;

procedure TForm1.Button1Click(Sender: TObject);
var n:integer;
begin
for n:=1 to 500000 do
 begin
 ListBox1.Items.Add(inttostr(n));
 end;
end;

procedure TForm1.ListBox1Data(Control: TWinControl; Index: Integer;
  var Data: String);
begin
  Data:=tstr[Index];
end;

procedure TForm1.Button2Click(Sender: TObject);
var n:integer;
begin
 ListBox1.Style:=lbVirtual;
 ListBox1.OnData:=ListBox1Data;
 Listbox1.Repaint;
end;

end.

[Suny-o]

Сообщение от beegl

можно и с этим компонентом TLMDExtListBox, lmd.de

LMDExtListBox и LMDListBox обладают теми же пороками - листаются ползунком до 41248 элемента (из 500 тыс.) а дальше листаются толко PageUp-ом и PageDown-ом.
кстити вышеприведенная фишка:

 LMDListBox1.Style:=lbVirtual;
 LMDListBox1.OnData:=ListBox1Data;
 LMDListbox1.Repaint;

Работает только с LMDListBox а с LMDextListBox не работает, поскольку у него нет Style.

[ReportCube]

Посмотрите исходники, может после полутора миллионов опять начнёт? Бедные пользователи...