Linien mit Hintergrundfarbe überzeichnen

[Luckie]

Der Code ist mittlerweile etwas an die neuen Angepasst:

Delphi-Quellcode:

procedure TFotoBook.PaintGrid(Page: TImageEnvect; Show: Boolean = True);
var
  i                 : Integer;
  j                 : Integer;
begin
  // alle Layer deselektieren, sonst würden wir nur auf das aktuelle Layer zeichen
  Page.LayersCurrent := 0;
  // Zeichenstiftmodus setzen
  if (Show and not Grid) or (Show and Grid) then
  begin
    Page.Bitmap.Canvas.Pen.Mode := pmCopy;
  end
  else if (Grid and not Show) or (not Grid and not Show) then
  begin
    Page.Bitmap.Canvas.Pen.Mode := pmNotXor;
  end;

  with Page do
  begin
    Page.Bitmap.Canvas.Brush.Style := bsClear;
    // Punkte zeichnen
    for i := 0 to Width div FGridWidth do
    begin
      for j := 0 to Height div FGridWidth do
      begin
        Bitmap.Canvas.Pixels[i * FGridWidth, j * FGridWidth] := clBlack;
      end;
    end;
    Update;
  end;
  // Penmode zurücksetzen
  Page.Bitmap.Canvas.Pen.Mode := pmCopy;
  Self.Grid := Show;
end;

Es gibt nur ein Problem: Wurde das Raster noch nicht gezeichnet (Grid = False) und soll auch nicht gezeichnet werden (Show = False), zeichnet der Code trotzdem das Raster.