ViDock/PointHelper.bas at master · lee-soft/ViDock · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Attribute VB_Name = "PointHelper"
'--------------------------------------------------------------------------------
'    Component  : PointHelper
'    Project    : ViDock
'
'    Description: Provides functions that quickly create pointers and pointerfs
'
'--------------------------------------------------------------------------------
Option Explicit

Public Function CreatePoint(X As Long, Y As Long) As gdiplus.POINTL

    Dim newPoint As gdiplus.POINTL

    With newPoint
        .X = X
        .Y = Y
    End With

    CreatePoint = newPoint
End Function

Public Function CreatePointF(X As Long, Y As Long) As gdiplus.POINTF

    Dim newPoint As gdiplus.POINTF

    With newPoint
        .X = X
        .Y = Y
    End With

    CreatePointF = newPoint
End Function