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 ;

       if zzz >  then

       begin

          ScrollBox1.HorzScrollBar.Position :=  zzz;

       end

       else

       begin

          ScrollBox1.HorzScrollBar.Position :=  ;

       end;

       ScrollBox1.VertScrollBar.Range :=  Original_Bmp1.Height;

       zzz :=  (Original_Bmp1.Height - ScrollBox1.Height)  div ;

       if zzz >  then

       begin

          ScrollBox1.VertScrollBar.Position :=  zzz;

       end

       else

       begin

          ScrollBox1.VertScrollBar.Position :=  ;

       end;

end;