Problem mit Canvas

[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);