Propriété ALIGN d'un TImageRésolu

Question

Bonjour,

J'ai mis un TImage dans mon Form1 et lui ai attribué la propriété Align à alClient.
Dans mon code, je fais entre autre les opérations suivantes :
  With Image.Canvas do begin
    Brush.Color := clwhite;
    FillRect(ClipRect);
  end;
pour effacer, et
  la:=Image.Width; ha:=Image.Height;
pour lire la taille de l'image.
 
Quand je redimensionne mon Form1, la taille de l'image est bien modifié, mais mon canvas reste dimensionné à la taille originale.
Comment faire pour qu'il "suive" la dimension ?
Merci d'avance.  

Jean-Michel

Caribensila · Accepted Answer

Salut,

Dans le OnResize de ta Form:

var BmpTemp : TBitmap;

BmpTemp := TBitmap.Create;
try
   BmpTemp.Width  := Image.Width;
   BmpTemp.Height := Image.Height;
   BmpTemp.Canvas.StretchDraw(BmpTemp.Canvas.ClipRect,Image.Picture.Bitmap);
   Image.Picture.Assign(BmpTemp);
finally; BmpTemp.Free; end;

Propriété ALIGN d'un TImage

1 réponse

Votre réponse

Discussions similaires