.CalibrateX() As Integer

This method returns the calibrated X position. It calls upon the XPosition property of the control to obtain the original uncalibrated X position data, which must be set prior to invoking this method.

Example:

Dim aX As Integer

Dim aY As Integer

Dim XPos As Integer

Dim YPos As Integer

For aIndex = 0 To SigPlus1.GetNumberOfStrokes - 1

      For bIndex = 0 To SigPlus1.GetNumPointsForStroke(aIndex) - 1

            aX = SigPlus1.GetPointXValue(aIndex, bIndex)

            aY = SigPlus1.GetPointYValue(aIndex, bIndex)

            ‘Set the SigCalibrate XPosition and YPosition prior to invoking calibration methods

            SigCalibrate1.XPosition = aX

            SigCalibrate1.YPosition = aY

            ‘Call CalibrateX and CalibrateY methods to obtain the calibrated X and Y point data

            XPos = SigCalibrate1.CalibrateX

            YPos = SigCalibrate1.CalibrateY

            ‘Put code here to do what is necessary with the calibrated point data as it comes

        Next bIndex

  Next aIndex

Copyright 1995 - 2005, Topaz Systems, Inc. All Rights Reserved

Topaz products are covered under US patents 5,120,908 5,122,623 6,307,955 - "Electronic Signature Management System", and patents pending

Topaz Systems, Inc., 650 Cochran Street, Unit 6, Simi Valley, CA, USA, 93065 Phone: 805 520-8282 Fax: 805 520-0867 www.topazsystems.