Propriété ALIGN d'un TImage [Résolu]

jnmchl 67 Messages postés dimanche 16 octobre 2005Date d'inscription 13 novembre 2009 Dernière intervention - 30 sept. 2007 à 18:29 - Dernière réponse : Caribensila 2671 Messages postés jeudi 15 janvier 2004Date d'inscription 18 janvier 2018 Dernière intervention
- 30 sept. 2007 à 23:35
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
Afficher la suite 

1 réponse

Répondre au sujet
Caribensila 2671 Messages postés jeudi 15 janvier 2004Date d'inscription 18 janvier 2018 Dernière intervention - 30 sept. 2007 à 23:35
+3
Utile
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;
   
Cette réponse vous a-t-elle aidé ?  
Commenter la réponse de Caribensila

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.