Doppelte Buchseiten aus einer Liste darstellen

[marabu]

Hallo Michael,

wenn ich deinen Code richtig interpretiere, dann würde ich ihn eher so schreiben:

Delphi-Quellcode:

procedure TForm1.DisplayDoublePage(PageIndex: Integer);
begin
  if Assigned(LeftPage) then
    LeftPage.Visible := False;
  if PageIndex < 0
    then LeftPage := nil
    else LeftPage := FPageCollection.Items[PageIndex];
  if Assigned(LeftPage) then
  begin
    LeftPage.Left := PageParent.Width div 2 - LeftPage.Width - PAGEGAP div 2;
    LeftPage.Top := PageParent.Height div 2 - LeftPage.Height div 2;
    LeftPage.Visible := True;
  end;

  Inc(PageIndex);

  if Assigned(RightPage) then
    RightPage.Visible := False;
  if PageIndex < FPageCollection.Count
    then RightPage := FPageCollection.Items[PageIndex]
    else RightPage := nil;
  if Assigned(RightPage) then
  begin
    RightPage.Left := PageParent.Width div 2 + PAGEGAP div 2;
    RightPage.Top := PageParent.Height div 2 - RightPage.Height div 2;
    RightPage.Visible := True;
  end;
end;

Vielleicht ist der Fehler dann auch schon weg...

Freundliche Grüße