Ich zeichne mit folgendem Code eine Raster auf ein Bitmap:
Delphi-Quellcode:
procedure TDWFotoBook.PaintGrid(GridWidth: Integer);
var
i : Integer;
begin
with FImageEnVect do
begin
for i := 0 to Width div GridWidth do
begin
Bitmap.Canvas.MoveTo(i * GridWidth, 0);
Bitmap.Canvas.LineTo(i * GridWidth, Height);
end;
for i := 0 to Height div GridWidth do
begin
Bitmap.Canvas.MoveTo(0, i * GridWidth);
Bitmap.Canvas.LineTo(Width, i * GridWidth);
end;
Update;
end;
Self.FShowGrid := True;
end;
Jetzt will ich das aber auch wieder wegbekommen. Da der Hintergrund aber nicht unbedingt weiß sein muss, muss ich die Linien des Rasters mit der Hintergrundfarbe übermalen. Nur wie mache ich das? Genauer, welchen Pen Mode brauche ich?