Mehrere Hundert Images (Seitenminiaturen)

[Bjoerk]

Ich habe einen Ergebnislister, der ähnlich wie Adobe pdf Reader Seitenminiaturen anzeigt. Im Beispiel habe ich 316 Seiten, was 316 Images mit Bitmaps 210 x 279 (183 kB) bedeutet.
Das Problem ist, daß nach 188 Images Schluß ist und das Onklick nur bis Seite 94 funktioniert.

Ist das ein Speicherproblem und /oder kann eine Scrollbox nicht ca. 100.000 Pixel hoch sein?

Erzeugen tue ich folgendermaßen:

Delphi-Quellcode:

procedure TViewerForm.FormCreate(Sender: TObject);
var
  I, ATop: integer;
  AImage: TImage;
  ALabel: TLabel;
begin
  FFileName := TStrUtils.ExcludeQuotes(ParamStr(1));

  FViewer := TViewer.Create(FFileName);
  FPlot.CanvasStyle := csDefault;
  SetBounds(50, 50, Min(FPlot.CanvasWidth(210 + 10) + ScrollBox.Left, Screen.WorkAreaWidth - 100),
    Min(FPlot.CanvasHeight(297), Screen.WorkAreaHeight - 100));
  FStretch := FPlot.ppMM / FViewer.ppMM;
  FZoom := 100 * FStretch;
  PaintBox.Width := Round(FStretch * FViewer.Width);
  PaintBox.Height := Round(FStretch * FViewer.Height);

  ThumbPanel.Height := FViewer.Count * (297 + 20 + 30) + 20; // zzgl. je Rand oben/unten;
  ATop := 20;
  for I := 0 to FViewer.Count - 1 do
  begin
    AImage := TImage.Create(ThumbPanel);
    AImage.Name := Format('Image%d', [I]);
    AImage.Parent := ThumbPanel;
    AImage.Tag := I;
    AImage.Left := 10;
    AImage.Width := 210;
    AImage.Height := 297;
    AImage.Top := ATop;
    FViewer.LoadThumbFromFile(I);
    AImage.Picture.Assign(FViewer.Thumb);
    AImage.Cursor := crHandPoint;
    AImage.OnClick := LabelClick;

    ALabel := TLabel.Create(ThumbPanel);
    ALabel.Name := Format('Label%d', [I]);
    ALabel.Parent := ThumbPanel;
    ALabel.Tag := I;
    ALabel.Font.Name := 'Segoe UI';
    ALabel.Font.Size := 8;
    ALabel.Font.Color := clBlack;
    ALabel.Font.Style := [fsUnderline];
    ALabel.Caption := IntToStr(I + 1);
    ALabel.Top := AImage.Top + AImage.Height + 10;
    ALabel.Left := 10 + (AImage.Width - ALabel.Width) div 2;
    ALabel.Cursor := crHandPoint;
    ALabel.OnClick := LabelClick;

    Inc(ATop, 297 + 20 + 30);
  end;
end;

[Mavarik]

Eine Scrollbox hat eine Range... (Da bin ich auch mal drüber gestolpert)

Aber die eigentliche Frage ist... Warum willst Du eine Scrollbox mit fast 400 Images usw. belasten?

100.000 Punkte kannst Du sowieso nicht auf einmal darstellen...

LoadOnView?

Mavarik

[Luckie]

Hm. AImage: TImage; ist lokal deklariert. So bald die Methode verlassen wird, ist das Objekt ungültig. Du hst dir damit also ein riesen großen Spicherleck gebaut. Das ist das eine. Und das andere, da blicke ich aber noch nicht so ganz durch, warum es überhaupt funktioniert, du überschreibst das Objekt immer wieder bis du die Schleife verlässt....

Ich würde die Images auch dynamisch erstellen, abe rin einer Objektliste verwalten.

[Bjoerk]

Versteh ich nicht? AImage ist TImage.Create. Der Owner bzw. das Parent geben es wieder frei.

[DeddyH]

Richtig, da Du sowohl Owner als auch Parent setzt, ist das Image in dessen/deren Components- bzw. Controls-Array abgelegt, also nix Speicherleck.

[Luckie]

Hm. OK. Dann behaupte ich das Gegenteil. :mrgreen:

[Bjoerk]

Ich glaub, es reicht sogar nur der Parent.

Die Idee mit dem LoadOnView von Mavarik gefällt mir. Man könnte so 20 Seitenminiaturen vorhalten. Der Pdf Reader wird es wohl ähnlich machen. Hat jemand eine Idee, wie man so was realisieren könnte?

[DeddyH]

Nur so als Gedankenspiel: Du kannst ja errechnen, wie viele Images gleichzeitig sichtbar sein können. Nehmen wir noch 2 in jede Richtung als Puffer dazu, dann merkst Du beim Scrollen, wann es Zeit wird, neue Images in Scrollrichtung zu erzeugen und zu befüllen. In der anderen Richtung kannst Du dann diejenigen, die weder in den sichtbaren noch im Puffer enthalten sind, wieder freigeben.

[Uwe Raabe]

Kannst du nicht einfach ein Standard TDrawGrid nehmen, ColCount auf 1, RowCount auf Anzahl der Bilder, DefaultRowHeight und DefaultColWidth auf die Bildgröße. Im OnDrawCell-Event dann einfach das Bild auf den TDrawGrid.Canvas malen, in etwa so (angenommen FViewer.Thumb ist ein TGraphic):

Delphi-Quellcode:

procedure TForm137.DrawGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState);
begin
  FViewer.LoadThumbFromFile(ARow);
  (Sender as TDrawGrid).Canvas.Draw(Rect.Left, rect.Top, FViewer.Thumb);
end;

[Medium]

Zitat:

Zitat von Bjoerk (Beitrag 1353413)

Ich glaub, es reicht sogar nur der Parent.

Zwar leicht OT, aber:
Parent = Darstellung (auf wessen Canvas habe ich mich zu zeichnen)
Owner = kaskadierte Freigabe