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 2684 Messages postés jeudi 15 janvier 2004Date d'inscription 26 juillet 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 

Votre réponse

1 réponse

Meilleure réponse
Caribensila 2684 Messages postés jeudi 15 janvier 2004Date d'inscription 26 juillet 2018 Dernière intervention - 30 sept. 2007 à 23:35
3
Merci
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;
   

Merci Caribensila 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 98 internautes ce mois-ci

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.