bitmap Größe ändern

[Danny92]

Ich habe eine Bitmap in einem Image1 geladen, wird auch angezeigt. Aber die Größe zu ändern:

Delphi-Quellcode:

procedure TForm1.FormResize(Sender: TObject);
begin
  image1.Picture.Bitmap.SetSize(22,22);
  image1.Canvas.StretchDraw(Rect(0,0,22,22),image1.Picture.Bitmap);
end;

...funktioniert nicht. Warum? Ich werd da irgendwie nie draus schlau werden...

[Aviator]

Ich habe kein Delphi 6 und weiß daher nicht ob es dort schon verfügbar ist, aber würde es nicht reichen die property Stretched und evtl. property Proportional auf True zu setzen? Dann noch die Anchors der Komponente setzen und fertig.

[Danny92]

Naja Streched ist schon auf true. Dann das ändert mir nur die Größe bei der Entwicklung. Ich möchte die Größe aber zur Laufzeit ändern.
Proportional ist egal...die Seitenverhältnisse bleiben eh immer gleich. Mir geht's nur um das reine Ändern der Größe in der Laufzeit.
ps. Habe inzwischen Delphi 10.2^^

[DeddyH]

Wie Aviator schon sagte, setze mal die Anchors des TImage auf alle 4 Seiten. Ist es das, was Du erreichen willst?

[Danny92]

Ufff, ja. Danke. Man muss ja nicht immer so kompliziert denken...