delphi 图像处理 图像放大缩小

procedure TDR_QM_ZP_Form.btn_FDClick(Sender: TObject);
//图像放大
begin

       my_int1 := Trunc( my_int1 * 1.1);
       my_int2 := Trunc( my_int2 * 1.1);

       FL_ZoomInOut(

                   Original_Bmp,                //原始图
                   image1.Picture.Bitmap,          //输出图
                   my_int1,       //输出图宽
                   My_int2       //输出图高
                    ) ;

       //图形二值化
       Image_EZH(  Image1.Picture.Bitmap  );
       Original_Bmp1.Assign( Image1.Picture.Bitmap );

       ScrollBox1.HorzScrollBar.Range :=  Original_Bmp1.Width;

       zzz :=  (Original_Bmp1.Width - ScrollBox1.Width)  div 2;
       if zzz > 0 then
       begin
          ScrollBox1.HorzScrollBar.Position :=  zzz;
       end
       else
       begin
          ScrollBox1.HorzScrollBar.Position :=  0;
       end;

       ScrollBox1.VertScrollBar.Range :=  Original_Bmp1.Height;
       zzz :=  (Original_Bmp1.Height - ScrollBox1.Height)  div 2;
       if zzz > 0 then
       begin
          ScrollBox1.VertScrollBar.Position :=  zzz;
       end
       else
       begin
          ScrollBox1.VertScrollBar.Position :=  0;
       end;



end;

改变系数的大小（1.1）
实现图片的放大缩小

转载于:https://www.cnblogs.com/lllzy/p/4702257.html