Zeichenprogramm

[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 (:

[himitsu]

Deswegen ja ... besser gleich am Anfang sich sowas abgewöhnen.