PixelToInkSpaceFromPoints Method (Automation Only)

  • Article

PixelToInkSpaceFromPoints Method (Automation Only)

Converts an array of locations in pixel space coordinates to be an array of locations in ink space coordinates.

Declaration

[C++]

HRESULT PixelToInkSpaceFromPoints (
    [in] long hdcDisplay,
    [in,out] VARIANT* points
);

[Microsoft® Visual Basic® 6.0]

Public Sub PixelToInkSpaceFromPoints( _
    hdcDisplay As Long, _
    points As Variant _
)

Parameters

hdcDisplay

[in] The handle of the device context for the containing control or form.

points

[in, out] The Variant array of points, as alternating Long x and y values of the form x0, y0, x1, y1, x2, y2, etc., to convert from a pixel location to ink space coordinates.

For more information about the VARIANT structure, see Using the Automation Library.

Return Value

HRESULT value Description
S_OK Success.
E_POINTER A parameter contained an invalid pointer.
E_INVALIDARG Invalid display handle.
E_INK_EXCEPTION An exception occurred inside the method.

Remarks

PixelToInkSpaceFromPoints converts from pixel to ink space (1 ink unit = .01mm), applies the inverse of the view transform, and then applies the inverse of the object transform.

Example

[Visual Basic 6.0]

This Visual Basic 6.0 example takes an array of points in pixel space of the form x0, y0, x1, y1, x2, y2, etc. and converts it to ink space, then creates a stroke with the converted array.

Option Explicit
Dim theInkCollector As InkCollector

Private Sub Form_Load()
    Set theInkCollector = New InkCollector
    theInkCollector.hWnd = Me.hWnd
    theInkCollector.Enabled = True

    Dim ptStrokePoints(9) As Long
    ptStrokePoints(0) = 100
    ptStrokePoints(1) = 50
    ptStrokePoints(2) = 50
    ptStrokePoints(3) = 100
    ptStrokePoints(4) = 100
    ptStrokePoints(5) = 150
    ptStrokePoints(6) = 150
    ptStrokePoints(7) = 100
    ptStrokePoints(8) = 100
    ptStrokePoints(9) = 50
    Dim thePointArray As Variant
    thePointArray = ptStrokePoints

    'Convert this array of ink space points to pixels.
    theInkCollector.Renderer.PixelToInkSpaceFromPoints Form1.hDC, thePointArray

    'The description value is an unused placeholder.
    Dim theDescription As Variant
    Dim theStroke As IInkStrokeDisp
    Set theStroke = theInkCollector.Ink.CreateStroke(thePointArray, theDescription)
    theStroke.DrawingAttributes.Color = RGB(0, 255, 0)
    theInkCollector.Ink.Strokes.Add theStroke
End Sub

Applies To