Mit LineTo() hatte ich es auch schon versucht, mich hat da nur gestört, dass der immer unnötige Linien gemacht hat...
Aber auch mit MoveTo geht das nicht wirklich...
Delphi-Quellcode:
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var pt: TPoint;
begin
Zeichnen := true;
Canvas.MoveTo (pt.X-196, pt.y-145);
end;
procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Zeichnen := false;
end;
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
var
pt: Tpoint;
begin
if Zeichnen = true then
begin
pt := Mouse.CursorPos;
Canvas.LineTo (pt.X-196, pt.y-145);
end;
end;
Wenn ich dann klicke und Maustaste gedrückt halte, passiert noch nichts. Wenn ich dann aber die Maus bewege, zeichnet mein Prog mir immer erst eine senktrechte Linie von unten bis zur Maus...
