Redimensionner une form en gardant les proportions d'une image

Soyez le premier à donner votre avis sur cette source.

Vue 5 043 fois - Téléchargée 392 fois

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.

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Messages postés
209
Date d'inscription
lundi 11 février 2002
Statut
Membre
Dernière intervention
13 décembre 2002

J'ai pigé le prob avec la hauteur, désolé je n'avais pas fais gaffe a ca!
Merci.
Messages postés
209
Date d'inscription
lundi 11 février 2002
Statut
Membre
Dernière intervention
13 décembre 2002

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?!
Messages postés
128
Date d'inscription
mardi 26 juin 2001
Statut
Membre
Dernière intervention
8 février 2005

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.

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.