1. Accueil
  2. Delphi / Pascal
  3. Sources Delphi / Pascal
  4. Sources Trucs & Astuces
  5. Redimensionner une form en gardant les proportions d'une image

Redimensionner une form en gardant les proportions d'une image

Soyez le premier à donner votre avis sur cette source.

Vue 5 359 fois - Téléchargée 415 fois

Télécharger le projet
Commenter

Description

Ce code-source permet de garder les proportions d'une image quelque soit les dimensions de la Form.
Enfin bref ouvrer le zip comprendrer mieu...

Le code a ete transforme en procedure, ainsi dans un evenement OnResize par exemple appellez AutoResizeImage(Image1, Form1.ClientWidth, Form1.ClientHeight) pour avoir l'image aux dimensions de la forme.

Source / Exemple : 


procedure AutoResizeImg(Image: TImage; W,H: Integer);
var R: Variant;
begin
  with Image do begin
    if H>0 then
    begin
      R:= Picture.Width / Picture.Height;
      if (W / H)>=R

      then begin Height:=H; Width:=H*R; end
      else begin Width:=W; Height:=W / R; end;
      Stretch:=True;
    end;
  end;
end;

Conclusion :


Dans le source AutoResizeImg est une fonction, je le modifirais ulterieurement.
Télécharger le projet

Codes Sources

A voir également

Ajouter un commentaire Commentaires
cs_Gysmo Messages postés 209 Date d'inscription lundi 11 février 2002 Statut Membre Dernière intervention 13 décembre 2002
5 mars 2002 à 23:58
J'ai pigé le prob avec la hauteur, désolé je n'avais pas fais gaffe a ca!
Merci.
cs_Gysmo Messages postés 209 Date d'inscription lundi 11 février 2002 Statut Membre Dernière intervention 13 décembre 2002
5 mars 2002 à 22:35
L'image n'est kun jpeg, je ne vois pa ou tu ve en venir sinon.
Et retiré la hauteur ca servirai a koi? Je ne te comprend pas?!
cs_Jos Messages postés 128 Date d'inscription mardi 26 juin 2001 Statut Membre Dernière intervention 8 février 2005
5 mars 2002 à 22:09
C'est bien, comme principe!! S'agit-il d'une image vectorielle, car je n'ai pas remarqué de pixelisation apparente...?

À noter que si tu élimines la hauteur, tu obtiens une erreur de division par zéro, alors tu devrais peut-être apporter un léger correctif à ton code.
S'inscrire maintenant

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.

Du même auteur (cs_Gysmo)