Problem mit Canvas

[Dein_Pate]

hallo leute...hab da so ein mehr oder weniger GROßES problem und hab auch schon auf anderen foren nachgelonzt,hab aber irgendwie nich so das richtige gefunden; Folgendes:
wollte paint nachproggen und da gibt's ja diesen gummibandeffekt,wo die linie dem mauszeiger folgt,bis man loslässt; dat ganze lautet denn ja so:

Delphi-Quellcode:

Procedure ...
  FillRect(ClientRect);
  MoveTo(X,Y)
  LineTo(Mouse.X,Mouse.Y);

so weit so gut,allerdings löcht das programm ja das alte bild,sobald ich beginne,eine neue lini zu ziehen...ich will aber,das er das alte bild behält,wenn ich anfange,eine Neue linie zu ziehen
könnte mir da jemand helfen ???

[Wuaegner]

Das FillRect() weglassen.

[Dein_Pate]

das hat mir der vom anderen forum auch gesagt und dann hab ich aber sozusagen ja ganz viele linien hintereinander gezeichnet...wird ja im prinzip immer ne line gezogen,wenn ich die mouse bewege

[Khabarakh]

Mit einem OffscreenBitmap, in dem das Bild ist, arbeiten, dieses dann ins Image/Paintbox/Form kopieren und dann den Rahmen zeichnen.

[Dein_Pate]

ein OffScreenBitmap...hab noch nie so was davon gehört...könntest dit ma ein bischen erklären...

[Khabarakh]

Einfach ein zur Laufzeit erstelltes TBitmap:

Delphi-Quellcode:

type
  TForm1 = [...]
  private
    Bitmap: TBitmap;
    OldX, OldY: Integer;
 
[...]

// OnCreate
  Bitmap := TBitmap.Create;
  Bitmap.LoadFromFile(...);

// OnMouseDown
  OldX := X;
  OldY := Y;

// OnMouseMove
  if ssLeft in Shift then
  begin
    Canvas.Draw(0, 0, Bitmap);
    Canvas.Rectangle(OldX, OldY, X, Y);
  end;

// OnDestroy
  FreeAndNil(Bitmap);

[Dein_Pate]

hab erst ma dank...werd erst ma n' bischen probieren und wenn wat is,meld ick mich wieder