Linien mit Hintergrundfarbe überzeichnen

[Luckie]

An meine gute alte D6 Hilfe hab eich dann auch gedacht. Ich habe es mittlerweile mit Punkten gelöst, das sieht auch besser aus:

Delphi-Quellcode:

procedure TDWFotoBook.PaintGrid(GridWidth: Integer; Show: Boolean = True);
var
  i                 : Integer;
  j: Integer;
begin
  // deselect all layers, otherwise we would also draw on the selected layers
  FImageEnVect.LayersCurrent := 0;
  // set pen mode
  if Show then
    begin
      FImageEnVect.Bitmap.Canvas.Pen.Mode := pmBlack
    end
    else
      FImageEnVect.Bitmap.Canvas.Pen.Mode := pmNotXor;

  with FImageEnVect do
  begin
    // draw dots
    for i := 0 to Width div GridWidth do
    begin
      for j := 0 to Height div GridWidth do
      begin
         Bitmap.Canvas.Pixels[i * GridWidth, j * GridWidth] := clBlack;
      end;
    end;
    Update;
  end;
  Self.FShowGrid := True;
end;

Da gibt es nichts, was sich überschneidet, so können auch keine Reste zurückbleiben.