Zeichenfläche bei Image

[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.