Zeichenprogramm

[Mystery]

Das habe ich bewusst nicht so gemacht, da bei einer schnelleren Bewegung der Maus keine durchgängige Linie gezeichnet wird.
Der Quelltext den ich habe soll eigentlich so bleiben, auch wenn es nicht die beste Lösung ist

Das Problem ist, was bei deinem Code auch nicht gelöst wird, wenn ich zum Beispiel windowstaste+ d drücke um auf den desktop zu gelangen, danach das Programm wieder öffne, ist das gezeichnete verschwunden, was nicht sein dürfte

und mit einem image habe ich es auch schon versucht:

Jedoch wird erst gezeichnet wenn ich die Maus wieder loslasse, was ebenfalls nicht sein soll

[Luckie]

Zitat von Mystery:

Jedoch wird erst gezeichnet wenn ich die Maus wieder loslasse, was ebenfalls nicht sein soll

Und genau das passiert weil du nicht auf ein Bitmap im speicher zeichnest. Der Canvas hat kein Gedächtnis.

[Mystery]

Wenn ich es direkt auf die form zeiche, zeichnet das Programm sofort mit, wenn ich es über image1.canvas anstatt form1.canvas mache jedoch nicht Böses delphi

[Popov]

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  Image1.Picture.Bitmap.Width := Screen.Width;
  Image1.Picture.Bitmap.Height := Screen.Height;
  Image1.Align := alClient;
end;

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if ssLeft in Shift then
    Image1.Picture.Bitmap.Canvas.LineTo(X, Y);

  Image1.Picture.Bitmap.Canvas.MoveTo(X, Y);
end;

Sorry, ich habe trotzdem mit dem MouseMove Angaben gearbeitet.

[Luckie]

Ein Image ist ja auch nicht zum zeichnen gedacht. Wenn dann nimm eine Paintbox.

[Mystery]

du bist ein GOTT !! Danke vielmals !!!!!

kann deinen beitrag leider nicht liken aber danke Popov :-*

[himitsu]

Etwas, daß ich irgendwie jeden fragen muß.
Warum greifst du auf die globale Variable form1 zu?

[Mystery]

bin anfänger und mag form1 einfach so gern (: