1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:

// Images aus Scrollbox löschen
  if Length(ImgArray) > 0 then
    for i := 0 to Length(ImgArray) - 1 do
      ImgArray[i].Free;
  // Labels aus Scrollbox löschen
  if Length(PageLabelArray) > 0 then
    for i := 0 to Length(PageLabelArray) - 1 do
      PageLabelArray[i].Free;
  // Images und Labels in Scrollbox erstellen
  Setlength(ImgArray, FotoBook.PageCollection.Count);
  Setlength(PageLabelArray, FotoBook.PageCollection.Count);
  for i := 0 to FotoBook.PageCollection.Count - 1 do
  begin
    Img := TImage.Create(ScrollBox1);
    PageLabel := TLabel.Create(ScrollBox1);
    with Img do
    begin
      Parent := ScrollBox1;
      Tag := i;
      OnClick := OnImageClick;

      Width := Round(FotoBook.PageWidth * PAGELISTZOOMFACTOR); //(ScrollBox1.Width - 50) div 2;
      Height := Round(FotoBook.PageHeight * PAGELISTZOOMFACTOR);

      if GetAlignment(i) = plaLeft then
      begin
        Left := 12;
      end
      else
      begin
        Left := 14 + Width;
      end;

      if i = 0 then
        j := 0;
      if i > 0 then
      begin
        if Odd(i) then
          j := i div 2 + 1
        else
          j := i div 2;
      end;
      Top := (Height + 28) * j;

      Canvas.Brush.Color := clWhite;
      Canvas.Pen.Color := clBlack;
      rect.Left := 0;
      rect.Top := 0;
      rect.Bottom := Height;
      rect.Right := Width;
      Canvas.Rectangle(rect);
      //Canvas.TextOut(5, 5, FotoBook.PageCollection.Items[i].Name);

      Canvas.Brush.Color := clGray;
      Canvas.Pen.Color := clBlack;
      with FotoBook.PageCollection.Items[i] do
      begin
        ThumbBitmap := TBitmap.Create;
        for k := 1 to LayersCount - 1 do
        begin
          rect.Left := Round(Layers[k].PosX * PAGELISTZOOMFACTOR);
          rect.Top := Round(Layers[k].PosY * PAGELISTZOOMFACTOR);
          rect.Bottom := Round((Layers[k].PosY + Layers[k].Height) * PAGELISTZOOMFACTOR);
          rect.Right := Round((Layers[k].PosX + Layers[k].Width) * PAGELISTZOOMFACTOR);
          ThumbBitmap.SetSize(rect.Right, rect.Bottom);
          SetStretchBltMode(ThumbBitmap.Canvas.Handle, HALFTONE);
          ThumbBitmap.Canvas.CopyRect(rect, Layers[k].Bitmap.Canvas, Layers[k].Bitmap.Canvas.ClipRect);
          Img.Canvas.CopyRect(rect, ThumbBitmap.Canvas, rect);
        end;
        ThumbBitmap.Free;
      end;
    end;
    s := FotoBook.PageListCaption(i);
    if not Odd(i) then
    begin
    with PageLabel do
      begin
        Parent := ScrollBox1;
        Name := 'PageLabel' + IntToStr(i);
        AutoSize := False;
        Alignment := taCenter;
        Left := 12;
        Width := Img.Width * 2;
        Top := Img.Top + Img.Height + 5;
        Caption := s
      end;
    end;
    ImgArray[i] := Img;
    PageLabelArray[i] := PageLabel;
  end;