Rahmen wieder löschen

[Luckie]

Ok, dann will ich wieder einen weißen Rahmen:

Delphi-Quellcode:

procedure TFotoBook.DrawBorder;
begin
  // erst Rahmen entfernen
  if Assigned(LeftPage) then
  begin
    with LeftPage do
    begin
      IEBitmap.Canvas.Pen.Width := 3;
      IEBitmap.Canvas.Pen.Style := psSolid;
      IEBitmap.Canvas.Pen.Color := clWhite;
      IEBitmap.Canvas.Rectangle(0, 0, Width, Height);
    end;
  end;
  if Assigned(Rightpage) then
  begin
    with RightPage do
    begin
      IEBitmap.Canvas.Pen.Width := 3;
      IEBitmap.Canvas.Pen.Style := psSolid;
      IEBitmap.Canvas.Pen.Color := clWhite;
      IEBitmap.Canvas.Rectangle(0, 0, Width, Height);
    end;
  end;

  with CurrentPage.IEBitmap do
  begin
    Canvas.Pen.Width := 3;
    Canvas.Pen.Style := psSolid;
    Canvas.Pen.Color := clBlue;
    Canvas.Rectangle(0, 0, CurrentPage.Width, CurrentPage.Height);
  end;
end;

Aber da habe ich den gleichen "Zwinker"-Effekt, wie oben beschrieben.