需求分析

在使用Halcon加载图像时，点击Halcon的适应窗口，图像都会按照窗口大小对图像进行拉伸后显示，实际项目中，需要等比例显示图像，体现图像原本的尺寸细节和效果，特别是在Qt或VS中，需要方便调节，这里记录一下等比例显示图像的原理和实现方法。

Halcon显示原理

Halcon显示图像的原理就是去调节视场大小，相当于图像的尺寸大小是固定的，通过调节相机高度和视野去适配图像的大小，这样图像的实际尺寸就不会被缩放。
Halcon中一般使用dev_set_part这个算子，算子四个参数，主要对应的是Halcon视场的左上和右下对应的行列尺寸，比如说图像宽度是500，你想显示的时候左右各留100空余背景，这时列的设置就是（-100，500+100），相当于从-100开始，将图像移动到中间。

显示实现

实际显示的时候，不仅要考虑图像的纵横比，还要考虑控件窗口的纵横比，如果图像的宽高比大于窗口的宽高比，这个时候就把图像的宽度方向靠近边缘，高度方向上下预留空白。

picWHRatio := 1.0 * Width / Height
winWHRatio := 1.0 * winWidth / winHeightif (picWHRatio >= winWHRatio)* 如果图片宽高比 大于 窗口宽高比* 则宽度方向顶格dispWidth := WidthdispHeight := Width / winWHRatiooffset:=(dispHeight-Height)/2dev_set_part (-offset, 0, dispHeight-offset, dispWidth)

如果图像的宽高比小于窗口的宽高比，这个时候就把图像的高度方向靠近边缘，宽度方向左右预留空白。

picWHRatio := 1.0 * Width / Height
winWHRatio := 1.0 * winWidth / winHeight
if (Width > winWidth or Height > winHeight)if (picWHRatio < winWHRatio)* 如果图片宽高比 小于 窗口宽高比* 则高度方向顶格dispWidth := Height * winWHRatiodispHeight := Heightoffset:=(dispWidth-Width)/2dev_set_part (0, -offset, dispHeight, dispWidth-offset)

如果图像的尺寸均小于控件的尺寸，此时将图像的尺寸乘以控件的纵横比之后再像上边进行比较。

    * 如果图片的长和宽都小于窗口if(picWHRatio >= winWHRatio)dispWidth := WidthdispHeight := Width / winWHRatiooffset:=(dispHeight-Height)/2dev_set_part (-offset, 0, dispHeight-offset, Width)elsedispWidth := Height * winWHRatiodispHeight := Heightoffset:=(dispWidth-Width)/2dev_set_part (0, -offset, dispHeight, dispWidth-offset)endif  

具体实现Halcon代码

dev_close_window ()
dev_open_window (0, 0, 400, 400, 'gray', WindowHandle)
dev_clear_window ()
dev_update_window ('off')read_image (Image, 'C:/Users/Administrator/Desktop/lena小尺寸.png')
get_window_extents (WindowHandle, Row, Column, winWidth, winHeight)set_system ('int_zooming', 'false')
get_image_size (Image, Width, Height)
picWHRatio := 1.0 * Width / Height
winWHRatio := 1.0 * winWidth / winHeight
if (Width > winWidth or Height > winHeight)if (picWHRatio >= winWHRatio)* 如果图片宽高比 大于 窗口宽高比* 则宽度方向顶格dispWidth := WidthdispHeight := Width / winWHRatiooffset:=(dispHeight-Height)/2dev_set_part (-offset, 0, dispHeight-offset, dispWidth)else* 如果图片宽高比 小于 窗口宽高比* 则高度方向顶格dispWidth := Height * winWHRatiodispHeight := Heightoffset:=(dispWidth-Width)/2dev_set_part (0, -offset, dispHeight, dispWidth-offset)endif
else* 如果图片的长和宽都小于窗口if(picWHRatio >= winWHRatio)dispWidth := WidthdispHeight := Width / winWHRatiooffset:=(dispHeight-Height)/2dev_set_part (-offset, 0, dispHeight-offset, Width)elsedispWidth := Height * winWHRatiodispHeight := Heightoffset:=(dispWidth-Width)/2dev_set_part (0, -offset, dispHeight, dispWidth-offset)endif  
endif
dev_display (Image)