Halcon显示图片自适应窗口控件中心 缩放平移图像

图像自适应窗口控件显示，以窗口中心为基准

read_image (Image,'tooth_rim.png')

winWidth:=640
winHeight:=880
dev_resize_window_fit_size (0, 0, winWidth, winHeight, -1, -1)

get_image_size (Image, imgWidth, imgHeight)

ScaleWidth:=imgWidth/(winWidth*1.0)
ScaleHeight:=imgHeight/(winHeight*1.0)

if(ScaleWidth>=ScaleHeight)
    row1:= -(1.0) * ((winHeight * ScaleWidth) - imgHeight) / 2
    column1 := 0                    
    row2 := row1 + winHeight * ScaleWidth
    column2:= column1 + winWidth * ScaleWidth      
else
    row1:= 0
    column1 := -(1.0) * ((winWidth * ScaleHeight) - imgWidth) / 2                    
    row2 := row1 + winHeight * ScaleHeight
    column2:= column1 + winWidth * ScaleHeight
endif   
dev_clear_window ()
dev_set_part (row1, column1, row2, column2)
dev_display (Image)

                                                  &nb