salut
je voudrais faire le Scrollbar max et le Scrollbar Min comme ça :
scrollbar1.Max:=Image1.Width * 2;
scrollbar1.Min:=trunc(Image1.Width / 2);
C'est Possible ?
j ai essayée comme ça ;
procedure TForm1.ScrollBar1Change(Sender: TObject);
var
ImageWidth0:=Image1.Picture.Width;// La Taille originale
Imageheight0:=Image1.Picture.height;
begin
scrollbar1.Max:=Image1.Width * 2;
scrollbar1.Min:=trunc(Image1.Width / 2);
Image1.Width:=Trunc(ImageWidth0 * scrollbar1.Position / Image1.Width);
Image1.Height:=Trunc(Imageheight0 * scrollbar1.Position / Image1.Width);
end;
sa marche mais il ne marche pas bien !
où doit je changer parce que l'image sa balance en zoom : (
merci bien