halcon鼠标落在绘制图形上，显示辅助信息

要在Halcon中实现鼠标落在绘制图形上，显示辅助信息的功能，可以使用Halcon的graphical user interface (GUI)库中的相关函数。

下面是一个示例代码，演示了如何在鼠标落在线条上时，显示线条的斜率和截距：

read_image(Image, 'fabrics.png')

open_window(0, 0, 512, 512, 'Mouse Events', '', 'black', WindowHandle)

dev_display(Image)

lines_gauss(Image, Lines, 7, 1, 'lines_canny')

for i := 1 to tuple_length(Lines)/4 by 4
    line_orientation(Lines[i,i+1,i+2,i+3], Orientation)
    disp_line(Lines[i,i+1,i+2,i+3], WindowHandle)
    add_mouse_callback(WindowHandle, 'move', 'mouse_move_callback', [i, Orientation[1], Orientation[2]])
endfor

stop ()

procedure mouse_move_callback(WindowHandle, X, Y, Button, Ctrl, Shift, CallbackData)
    i := CallbackData[0]
    A := CallbackData[1]
    B := CallbackData[2]
    Row := Y
    Col := X
    LineRow1 := Lines[i]
    LineCol1 := Lines[i+1]
    LineRow2 := Lines[i+2]
    LineCol2 := Lines[i+3]
    Distance := abs((Row - LineRow1) * (LineCol2 - LineCol1) - (Col - LineCol1) * (LineRow2 - LineRow1)) / sqrt((LineCol2 - LineCol1)^2 + (LineRow2 - LineRow1)^2)
    if Distance < 5
        Slope := -1 / A
        Intercept := B / A
        Message := 'Slope: ' + Slope.TupleString('0.2f') + ' Intercept: ' + Intercept.TupleString('0.2f')
        dev_set_color('black')
        dev_set_font('Arial-Bold-24')
        dev_set_paint('fill')
        dev_disp_text(Message, Row, Col, -1)
    endif
endprocedure

在此示例中，我们首先读取了一张图像，并打开了一个窗口。接着，我们使用线性高斯滤波器将图像中的边缘转换为直线，并在窗口中绘制了这些直线。然后，我们使用add_mouse_callback函数为每条直线添加了一个鼠标移动事件回调函数。当鼠标移动到直线附近时，回调函数会计算直线的斜率和截距，并在鼠标附近显示这些信息。

在代码中，我们使用了Halcon的dev_disp_text函数来绘制文本信息。该函数可以在指定的位置绘制文本，并支持多种字体、颜色和大小等选项。