Registriert seit: 15. Jun 2010
Ort: Augsburg Bayern Süddeutschland
3.470 Beiträge
Delphi XE3 Enterprise
|
AW: Rechteck an (unter) Maus-Position malen
29. Jun 2010, 16:05
ohne Zwischenspeicherung und wiederherstellung:
Delphi-Quellcode:
procedure TForm5.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
invalidate;
end;
procedure TForm5.FormPaint(Sender: TObject);
var
p:Tpoint;
begin
p := ScreenToClient(Mouse.CursorPos);
Canvas.rectangle(p.X - 5, p.Y - 5, p.X + 5, p.Y + 5);
end;
Thomas Wassermann H₂♂ Das Problem steckt meistens zwischen den Ohren
DRY DRY KISS
H₂♂ (wenn bei meinen Snipplets nichts anderes angegeben ist Lizenz: WTFPL)
|