-
Notifications
You must be signed in to change notification settings - Fork 4
/
Copy pathMonitor.inc
106 lines (86 loc) · 3.05 KB
/
Monitor.inc
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
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
//----------------------------------------
// ´úÂëÓÉGenlibVcl¹¤¾ß×Ô¶¯Éú³É¡£
// Copyright ? ying32. All Rights Reserved.
//
//----------------------------------------
function Monitor_Create: TMonitor; cdecl;
begin
Result := TMonitor.Create;
end;
procedure Monitor_Free(AObj: TMonitor); cdecl;
begin
AObj.Free;
end;
function Monitor_ClassName(AObj: TMonitor): PWideChar; cdecl;
begin
Result := ShortstrToPWideChar(AObj.ClassName);
end;
function Monitor_Equals(AObj: TMonitor; Obj: TObject): LongBool; cdecl;
begin
Result := AObj.Equals(Obj);
end;
function Monitor_GetHashCode(AObj: TMonitor): Integer; cdecl;
begin
Result := AObj.GetHashCode;
end;
function Monitor_ToString(AObj: TMonitor): PWideChar; cdecl;
begin
Result := PWideChar(AObj.ToString);
end;
function Monitor_GetHandle(AObj: TMonitor): HMONITOR; cdecl;
begin
Result := AObj.Handle;
end;
function Monitor_GetMonitorNum(AObj: TMonitor): Integer; cdecl;
begin
Result := AObj.MonitorNum;
end;
function Monitor_GetLeft(AObj: TMonitor): Integer; cdecl;
begin
Result := AObj.Left;
end;
function Monitor_GetHeight(AObj: TMonitor): Integer; cdecl;
begin
Result := AObj.Height;
end;
function Monitor_GetTop(AObj: TMonitor): Integer; cdecl;
begin
Result := AObj.Top;
end;
function Monitor_GetWidth(AObj: TMonitor): Integer; cdecl;
begin
Result := AObj.Width;
end;
procedure Monitor_GetBoundsRect(AObj: TMonitor; var Result: TRect); cdecl;
begin
Result := AObj.BoundsRect;
end;
procedure Monitor_GetWorkareaRect(AObj: TMonitor; var Result: TRect); cdecl;
begin
Result := AObj.WorkareaRect;
end;
function Monitor_GetPrimary(AObj: TMonitor): LongBool; cdecl;
begin
Result := AObj.Primary;
end;
function Monitor_GetPixelsPerInch(AObj: TMonitor): Integer; cdecl;
begin
Result := AObj.PixelsPerInch;
end;
exports
Monitor_Create {$IFNDEF MSWINDOWS}name '_Monitor_Create'{$ENDIF},
Monitor_Free {$IFNDEF MSWINDOWS}name '_Monitor_Free'{$ENDIF},
Monitor_ClassName {$IFNDEF MSWINDOWS}name '_Monitor_ClassName'{$ENDIF},
Monitor_Equals {$IFNDEF MSWINDOWS}name '_Monitor_Equals'{$ENDIF},
Monitor_GetHashCode {$IFNDEF MSWINDOWS}name '_Monitor_GetHashCode'{$ENDIF},
Monitor_ToString {$IFNDEF MSWINDOWS}name '_Monitor_ToString'{$ENDIF},
Monitor_GetHandle {$IFNDEF MSWINDOWS}name '_Monitor_GetHandle'{$ENDIF},
Monitor_GetMonitorNum {$IFNDEF MSWINDOWS}name '_Monitor_GetMonitorNum'{$ENDIF},
Monitor_GetLeft {$IFNDEF MSWINDOWS}name '_Monitor_GetLeft'{$ENDIF},
Monitor_GetHeight {$IFNDEF MSWINDOWS}name '_Monitor_GetHeight'{$ENDIF},
Monitor_GetTop {$IFNDEF MSWINDOWS}name '_Monitor_GetTop'{$ENDIF},
Monitor_GetWidth {$IFNDEF MSWINDOWS}name '_Monitor_GetWidth'{$ENDIF},
Monitor_GetBoundsRect {$IFNDEF MSWINDOWS}name '_Monitor_GetBoundsRect'{$ENDIF},
Monitor_GetWorkareaRect {$IFNDEF MSWINDOWS}name '_Monitor_GetWorkareaRect'{$ENDIF},
Monitor_GetPrimary {$IFNDEF MSWINDOWS}name '_Monitor_GetPrimary'{$ENDIF},
Monitor_GetPixelsPerInch {$IFNDEF MSWINDOWS}name '_Monitor_GetPixelsPerInch'{$ENDIF};