通过网盘分享的文件：ImageEn_12.0.0_19126+IEVision_7.0.0_16821 D12.rar
链接: https://pan.baidu.com/s/1E1wPImpMHdv9eIIeWrreoA 提取码: 75ty   解压密码 462884906

 支持的格式：

 

1]安装：

将 D:\BaiduNetdiskDownload\ImageEn_12.0.0_19126+IEVision_7.0.0_16821 D12\ImageEn_12.0.0_19126+IEVision_7.0.0_16821 D12\Source

加入

 2]编译安装

 

 例子可以参考自带DEMO：D:\BaiduNetdiskDownload\ImageEn_12.0.0_19126+IEVision_7.0.0_16821 D12\ImageEn_12.0.0_19126+IEVision_7.0.0_16821 D12\Demos

 用OpenImageEnDialog1打开对话框导入图像，可以打开前预览

  if OpenImageEnDialog1.Execute then begin
    ImageEnView1.IO.LoadFromFile( OpenImageEnDialog1.FileName );
    ImageEnView1.Fit();
  end;

 

1、加载文件

ImageEnView1.IO.LoadFromFile(a_strFileName);

2、设置显示背景

ImageEnView1.Background:= clGray;
ImageEnView1.BackgroundStyle := iebsSolid;

3、显示棋盘背景

ImageEnView1.Background:= clWhite;
ImageEnView1.BackgroundStyle := iebsChessboard;

4、设置鼠标拖动

procedure TImageContainer.DoImgMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  FDragging:= False;
  ImageEnView1.Cursor:= crDefault;
end;
procedure TImageContainer.DoImgMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  if ssDouble in Shift then       begin
   if Button = mbLeft then     begin
      if not IsCtrlDown then ImageEnView1.Zoom:= 100;
     end;
        if (Button = mbRight) or IsCtrlDown then  begin
           ImageEnView1.AutoFit:= True;
            ImageEnView1.Repaint;
           ImageEnView1.AutoFit:= False;
       end
  end  else  begin
     FDragging:= True;
   m_CurPos:= Mouse.CursorPos;
   m_StartSize:= Point(ImageEnView1.ViewX,  geEnView1.ViewY);
  end;
end;
procedure TImageContainer.DoImgMouseMove(Sender: TObject; Shift: TShiftState; X,Y: Integer);
var
  l_Pos: TPoint;
  l_x, l_y: Integer;
begin
  if not FDragging then Exit;
    ImageEnView1.Cursor:= crSizeAll;
     //计算偏移量
    l_Pos:= Mouse.CursorPos;
   l_x:= l_Pos.X - m_CurPos.X;
   l_y:= l_Pos.Y - m_CurPos.Y;
     ImageEnView1.ViewX:= m_StartSize.X - l_x;
    ImageEnView1.ViewY:= m_StartSize.Y - l_y;
end;

5、查看显示百分比

Label1.Caption:= Format('Zoom:%f%%', [ImageEnView1.Zoom]);

6、设置缩放时显示不失真

ZoomFilter:= rfNearest;
DelayZoomTime:= 500;

7、打印图片

ImageEnView1.IO.DoPrintPreviewDialog();

 8、显示数据库里的图片

ImageEnDBView1

 

procedure TForm4.DBGrid1CellClick(Column: TColumn);
begin
   ImageEnDBView1.Fit();
end;