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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
|
Private Declare Function ScreenToClient Lib "user32" (ByVal hWnd As Long, cPoint As POINTAPI) As Long
Private Declare Function ClientToScreen Lib "user32" (ByVal hWnd As Long, cPoint As POINTAPI) As Long
Private Declare Function DPtoLP Lib "gdi32" (ByVal hDC As Long, cPoint As POINTAPI, ByVal Ncount As Long) As Long
Private Declare Function LPtoDP Lib "gdi32" (ByVal hDC As Long, cPoint As POINTAPI, ByVal Ncount As Long) As Long
Private Declare Function GetCurrentPositionEx Lib "gdi32" (ByVal hDC As Long, cPoint As POINTAPI) As Long
Private Declare Function SetMapMode Lib "gdi32" (ByVal hDC As Long, fnMapMode As Long) As Long
Private Declare Function GetViewportExtEx Lib "gdi32" (ByVal hDC As Long, cPoint As TAGSIZE) As Long
Private Declare Function GetViewportOrgEx Lib "gdi32" (ByVal hDC As Long, cPoint As POINTAPI) As Long
Private Declare Function GetWindowExtEx Lib "gdi32" (ByVal hDC As Long, cPoint As TAGSIZE) As Long
Private Declare Function GetWindowOrgEx Lib "gdi32" (ByVal hDC As Long, cPoint As POINTAPI) As Long
Private Declare Function SetViewportExtEx Lib "gdi32" (ByVal hDC As Long, cX As Long, cY As Long, cPoint As TAGSIZE) As Long
Private Declare Function SetWindowExtEx Lib "gdi32" (ByVal hDC As Long, cX As Long, cY As Long, cPoint As TAGSIZE) As Long
Private Declare Function MoveToEx Lib "gdi32" ( _
ByVal hDC As Long, _
ByVal X As Long, _
ByVal Y As Long, _
ByVal lppoint As Long) As Long 'lpPoint wird nicht benötigt
Private Declare Function LineTo Lib "gdi32" ( _
ByVal hDC As Long, _
ByVal X As Long, _
ByVal Y As Long) As Long
Private Declare Function Rectangle Lib "gdi32" ( _
ByVal hDC As Long, _
ByVal nLeftRect As Long, _
ByVal nTopRect As Long, _
ByVal nRightRect As Long, _
ByVal nBottomRect As Long) As Long
Private Declare Function Ellipse Lib "gdi32" ( _
ByVal hDC As Long, _
ByVal nLeftRect As Long, _
ByVal nTopRect As Long, _
ByVal nRightRect As Long, _
ByVal nBottomRect As Long) As Long
Private Declare Function Polygon Lib "gdi32" ( _
ByVal hDC As Long, _
ByRef lppoint As POINTAPI, _
ByVal Ncount As Long) As Long
Private Declare Function PolyBezier Lib "gdi32" ( _
ByVal hDC As Long, _
ByRef lppoint As POINTAPI, _
ByVal cPoints As Long) As Long
|