Soyez le premier à donner votre avis sur cette source.
Vue 5 359 fois - Téléchargée 415 fois
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;
5 mars 2002 à 23:58
Merci.
5 mars 2002 à 22:35
Et retiré la hauteur ca servirai a koi? Je ne te comprend pas?!
5 mars 2002 à 22:09
À 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.