REDIMENSIONNER UNE FORM EN GARDANT LES PROPORTIONS D'UNE IMAGE

---

Commentaire sur cette source (3)
Ajouter un commentaire et/ou une note

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.  

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; 

Dans le source AutoResizeImg est une fonction, je le modifirais ulterieurement.

Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip

• COMPOSANT STYLE WINDOWS XP
• VERSION DE WINDOWS
• LANCER UNE APPLICATION ET ATTENDRE SA FERMETURE
• TROUVER L'EXECUTABLE ASSOCIÉ A UN FICHIER
• AJOUTER UN COMPOSANT DANS UN AUTRE

• MÉMORISE SIMPLEMENT LA POSITION ET LA TAILLE DE VOS FENÊTRES
• FULLSLIDING
• DÉMONSTRATION DE LA GESTION DES OBJETS EN MÉMOIRE PAR DELPHI LORS DE LEUR CRÉATION/DESTRUCTION
• DESSINE-MOI UNE ETOILE
• TRI DANS LISTBOX/COMBOBOX (TSTRINGS)