Image scale avec Scrallbar ?!!!!

Fermé
MiniProgramer Messages postés 37 Date d'inscription samedi 5 juillet 2008 Statut Membre Dernière intervention 24 juillet 2008 - 10 juil. 2008 à 20:51
 Utilisateur anonyme - 10 juil. 2008 à 21:12
Salut

coment puis je changer les Demonssion de Graphic avec un Scrollbar ?
 
procedure TForm1.ScrollBar1Change(Sender: TObject);
begin

Image1.Width:=Trunc(Image1.Width * Scrollbar1.Position / 100);
Image1.Height:=Trunc(Image1.Height * Scrollbar1.Position / 100);
 
end;

Sa marche pas !

1 réponse

Utilisateur anonyme
10 juil. 2008 à 21:12
Image1.Width:=Image1.Width * Scrollbar1.Position DIV 100;
Image1.Height:=Image1.Height * Scrollbar1.Position DIV 100;





Avec Position qui va de Zéro à 100.
0
Rejoignez-nous