Redimensionner une form en gardant les proportions d'une image

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

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)