Annotation Screen Position

[ahmad1987]

Hi,

Can you please tell me how can i get the top left position of annotation in respect to screen, i tried the following but didn't work correctly:

Code: Select all

Dim imgHorResolution As Int32 = gdPicEdit.HorizontalResolution
            Dim imgVerResolution As Int32 = gdPicEdit.VerticalResolution
            Dim TopLeftXPoint As Decimal = (_SelectedObject.Left - _SelectedObject.Width / 2) * imgHorResolution
            Dim TopLeftYPoint As Decimal = (_SelectedObject.Top - _SelectedObject.Height / 2) * imgVerResolution
            Dim p As New Point(TopLeftXPoint, TopLeftYPoint)
            Return Me.gdPicEdit.PointToScreen(New Point(p.X, p.Y))

where gdPicEdit is a GDViewer and _SelectedObject is the selected annotation

[Loïc]

Hello,

You have to use the CoordDocumentToViewer to translate coordinate from document to control.

Kind regards,

Loïc

[ahmad1987]

Hello,
Can you please explain in it in an example with respect to the code above

[Loïc]

You already have a demo code and explanations in the reference guide, this is very basic.

See: https://www.gdpicture.com/guides/gdpicture/v8/html/con ... teger.html

[ahmad1987]

i have already checked it, and tried the following code, but still didn't get the result i want

Code: Select all

  Dim imgHorResolution As Int32 = gdPicEdit.HorizontalResolution
            Dim imgVerResolution As Int32 = gdPicEdit.VerticalResolution
            Dim TopLeftXPoint As Decimal = (_SelectedObject.Left - _SelectedObject.Width / 2) *imgHorResolution 
            Dim TopLeftYPoint As Decimal = (_SelectedObject.Top - _SelectedObject.Height / 2) *imgVerResolution
            gdPicEdit.CoordDocumentToViewer(0, 0, TopLeftXPoint, TopLeftYPoint)
            Dim p As New Point(TopLeftXPoint, TopLeftYPoint)
            Return Me.gdPicEdit.PointToScreen(p)

what i am trying to do, is to show some kind of a floating control on point p, but the positions returned from the above are incorrect, i tried it also with removing the multiplication with the resolution, with no successful result.

[ahmad1987]

never mind sir, i found my mistake,
i changed it to the following
Dim vwLeft As Int32
Dim vwTop As Int32
gdPicEdit.CoordDocumentToViewer(TopLeftXPoint, TopLeftYPoint, vwLeft, vwTop)

thank you for your help

[Loïc]

ok perfect, thank you for the update.