67 - CONSERVATION D'UN TIMAGE SUR REDIMENSIONNEMENT

Le petit coin du web de Nono40

http://nono40.developpez.com

SOURCES

PRÉSENTATION : Modifier la taille du TImage lors de son redimensionnement.

ZIP : Téléchargez le zip

APERÇUS :

NOTES : Quand une application dispose d'un TImage servant de base de dessin avec align = alClent. Le Timage est redimensionné quand la fiche change de taille. Or le Bitmap conservé dans le TImage ne change pas de taille. Le programme donné ici permet de recréer le bitmap en conservant la partie d'image déjà créée.

CODE :

Procedure TForm1.FormResize(Sender: TObject);
Var bmp:TBitMap;
Begin
  // Test si le TImage contient bien un dessin
  If Image1.Picture<>Nil Then
  Begin
    // bmp va servir de sauvegarde pour le dessin en cours
    bmp:=TBitMap.Create;
    Try
      // Copie du dessin en cours dans bmp
      bmp.Assign(Image1.Picture.Bitmap);
      // Destruction du bitmap en cours
      Image1.Picture:=Nil;
      // Redessin du bitmap. Le nouveau bitmap
      // sera créé automatiquement avec les nouvelles
      // dimensions du TImage
      Image1.Canvas.Draw(0,0,bmp);
    Finally
      // Libération du bitmap de sauvegarde
      bmp.free;
    End;
  End;
End;

Les sources présentées sur cette page sont libres de droits et vous pouvez les utiliser à votre convenance. Par contre, la page de présentation constitue une œuvre intellectuelle protégée par les droits d'auteur. Copyright © 2003 Bruno Guérangé. Aucune reproduction, même partielle, ne peut être faite de ce site ni de l'ensemble de son contenu : textes, documents, images, etc. sans l'autorisation expresse de l'auteur. Sinon vous encourez selon la loi jusqu'à trois ans de prison et jusqu'à 300 000 € de dommages et intérêts.