Das geheimnissvolle Controll

[Delbor]

Hi zusammen

Nachdem ich die Wertzuweisungen an Left & Co wieder zurückgestellt habe (inkusive des Bereichs 0 bis 4) sieht das ganze so aus:

Delphi-Quellcode:

procedure TRSPdfFrame.PdfViewCreate;
  var i, iCount, iLeft, iHeight,
      iTop, iWidth : Integer;
begin
  if FPdfList.Count = 0 then
  begin
    iCount := 5; // Statt 0 bis 4 - 1 bis 5, damit kann man später besser weiterrechnen.
    iLeft := (ScrollBox1.ClientWidth - iWidth) div 2;
    iHeight :=  120;
    iTop := iHeight + 8;
    iWidth := Scrollbox1.ClientWidth - 40;
    Scrollbox1.AutoScroll := False;
    Scrollbox1.VertScrollBar.Range := iTop * ICount;
    for i := 0 to 4 do
    begin
      FPDFView := TPdfView.Create(Self);
      FPdfView.Parent := Scrollbox1;
      FPdfView.Name := 'PdfView'+intToStr(i);
      FPdfView.Color := clyellow;

      FPdfView.Height := 120;  //iHeight;
      FPdfView.Top := i * (FPdfView.Height + 8);
      FPdfView.Width := Scrollbox1.ClientWidth - 40;
      FPdfView.Left := (ScrollBox1.ClientWidth - FPdfView.Width) div 2;;
      FPdfView.Visible := true;
      FPdfList.Add(FPdfView);
     end;
  end
  else
    Showmessage('Die Seiten sind bereits vorhanden');
end;

Wieso mir allerdings unter Verwendung der i-Variablen nichts angrzeigt wirde, ist mir Schleierhaft...

Gruss
Delbor