Verständnisproblem: Image.Picture.Assign()

[Popov]

Sowas sollte aber klappen (ungeprüft):

Delphi-Quellcode:

var
  Bmp: TBitmap;
begin
  Bmp := MyImage.Picture.Bitmap;
  Bmp.Width := 200;
  Bmp.Height := 300;
  Bmp.Canvas.Ellipse(Bmp.Canvas.ClipRect);
end;

[himitsu]

Und wenn vorher in dem Image/Picture kein Bitmap war, dann hast du dieses nun gelöscht.

Darum wurde ja auch empfohlen auf Image.Canvas zu malen (oder eben auf Image.Picure.Graphic.Canvas)

[Popov]

Ich kann mich täuschen, aber wird nicht, wenn auf Image.Canvas gezeichnet wird, in Wahrheit auf Image.Picture.Bitmap.Canvas gezeichnet?

[Bummi]

@Popov

Doch, beim ersten Zugriff wird es wenn nicht vorhanden (bzw. keine TGraphic vorhanden) mit den Dimensionen von TImage erzeugt. Von daher ist Deine nachträgliche Dimensionsänderung zumindest interessant.

[sx2008]

Wenn man eine Klasse hat, die sich auf ein Bitmap oder Image zeichnen soll, dann ist es am Besten das Bitmap komplett ausserhalb der Klasse zu halten.
Stattdessen braucht man nur einen Canvas zu übergeben.
Das ergibt maximale Flexibilität, denn es ist dann egal ob man auf ein Bitmap zeichnet oder direkt auf das Bitmap eines TImage oder sogar auf den Canvas eines TPaintBox.

Delphi-Quellcode:

TRaumschiff=class(TObject)
public
  procedure DrawToCanvas(canvas:TCanvas);  // der Knackpunkt - Canvas-Objekt übergeben
 
  property Farbe:TColor;
  property Position:TPoint;         // x,y-Position auf dem Canvas
  property Style:TRaumschiffStyle;  // normal oder klingonisch
  property ScaleFactor:Double;      // zum vergrössern oder verkleinern
...
end;