with TJPEGImage(Image1.Picture.Graphic) do
Scale:=TJPEGScale(trackbar1.Position-1); ///0,1,2,3 4个比例缩放
Image1.Top := 0;
Image1.Left := 0;
with TJPEGImage(Image1.Picture.Graphic) do
Scale:=TJPEGScale(trackbar1.Position-1); ///0,1,2,3 4个比例缩放
Image1.Top := 0;
Image1.Left := 0;