Hallo,
wenn ich Strg + Alt drücke, möchte ich ein Raster zeichnen. Das bekomme ich auch hin. Wenn wieder losgelassen wird, dann soll das raster weg sein. Ich könnte mit ein bisschen aufwand die einzelnen punkte wieder zurückzeichen. also pixelfarbe wieder auf hintergrundfarbe setzen. Geht es aber auch besser?
Delphi-Quellcode:
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
var x, y : Word;
begin
if Shift = [ssCtrl, ssAlt] then
begin
for x:=0 to Form1.ClientWidth div 8 do
begin
for y:=0 to Form1.ClientHeight div 8 do
begin
Form1.Canvas.Pixels[x * 8, y * 8]:=clBlack;
end;
end;
end;
end;