Zeichenfläche bei Image

[Yheeky]

Hi,

vorab, bevor wieder Beschwerden kommen: Ich habe diese Frage zusätzlich auch noch im DelphiForum gepostet.
ich habe eine Image-Komponente auf meiner Form und ich zeichne über die Canvas auf das Image. Das Image hat die Eigenschaft alClient bei Align. Wenn ich die Form nun vergrößere, steht mir trotzdem nur die Ursprungsgröße zum Zeichnen zur Verfügung. Wieso ist das so und wie kann ich das beheben?

[mkinzler]

Nur indem du den canvas zerstörst und manuell einen in der neuen Größe anlegst.

[Yheeky]

Und wie mache ich das den Canvas zerstören? ;-)

[Tormentor32]

Geht das nicht auch über Image1.Picture.Graphic.Width/Heigth? bin mir nicht sicher!

[mkinzler]

In dem du in freigibst (.Free)

[bitsetter]

Hi,

im onResize Event des Formulars, habe ich mal test weise folgenden Code eingefügt:

Delphi-Quellcode:

procedure TForm1.FormResize(Sender: TObject);
begin
  if Assigned(image1.Canvas) then
  begin
   image1.Picture.Graphic.Width := image1.Width;
   image1.Picture.Graphic.Height := image1.Height;
  end;
end;

Damit geht es bei mir.

[Yheeky]

Super! Klappt auch bei mir! :-D
Danke! :thumb: