Problem mit TImage

[HTML04]

Ich hab ein malprgramm, dass in ein Timage feld malt. doch wenn ich beim laufenden programm das fenster vergrößere kann ich nicht auf die erweiterte fläche malen, obwohl ich im Objektinspektor bei Timage alclient eingestellt habe. Warum nicht?

[DeddyH]

Ohne mir jetzt großartig Gedanken gemacht zu haben: wäre es nicht günstiger, statt des Image eine PaintBox zu verwenden?

[bitsetter]

Hi,

du könntest im onResize Ereignis folgenden Code einfügen:

Delphi-Quellcode:

   if Assigned(Image.Picture.Graphic) then
   begin
     Image.Picture.Graphic.Width:= Image.Width;
     Image.Picture.Graphic.Height:= Image.Height;
   end;

[HTML04]

Hey, danke!! :dp:

[Popov]

Nur Vorsicht, wenn das Fenster kleiner wird, wird alles darüber weggeschnitten.

Aber letztendlich ist es das Problem. Bei starten das Programms bekommt die Bitmap die Größe der Image. Vergrößert man das, bleibt die Größe bestehen.

[HTML04]

mit einer einfachen if-Bedingung habe ich das problem denk ich im griff:

Delphi-Quellcode:

if (image1.Picture.Graphic.Width < image1.Width) or (image1.Picture.Graphic.Height < image1.height) then