-
Notifications
You must be signed in to change notification settings - Fork 1
/
pascal.go
173 lines (127 loc) · 2.95 KB
/
pascal.go
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
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
//----------------------------------------
//
// Copyright © ying32. All Rights Reserved.
//
// Licensed under Apache License 2.0
//
//----------------------------------------
package types
import "fmt"
type TModalResult = int32
// TColor 常用值请见 types/colors 包
type TColor uint32
type THelpEventData = uintptr
type TTabOrder = int16
type PFNLVCOMPARE uintptr
type PFNTVCOMPARE uintptr
type Integer = int32
type Cardinal = uint32
type Single = float32
type Word = uint16
type Byte = uint8
type TFontCharset = uint8
type TSpacingSize int32
// Char Unicode 主要用于keymap, 参见types/keys包
type Char = uint16
type TClass uintptr
type TThreadID = uintptr
type TClipboardFormat = uintptr
type TGridCoord struct {
X int32
Y int32
}
type TCustomData = uintptr
type TGridRect TRect
// 伪造，实际为一个接口类型
type IObjectArray uintptr
type TSysLocale struct {
//Delphi compat fields
DefaultLCID int32
PriLangID int32
SubLangID int32
// win32 names
FarEast bool
MiddleEast bool
// LCL
// real meaning 2: (MBCS: boolean; RightToLeft: Boolean);
}
type TSmallPoint struct {
X int16
Y int16
}
type TGUID struct {
D1 uint32
D2 uint16
D3 uint16
D4 [8]uint8
}
// LibResource
type TLibResource struct {
Name string
Ptr uintptr
}
type TResItem struct {
Name uintptr
Value uintptr
}
// TConstraintSize = 0..MaxInt;
type TConstraintSize int32
type TAlignInfo struct {
AlignList uintptr
ControlIndex int32
Align TAlign
Scratch int32
}
// TCreateParams
//
// Moved from Controls to avoid circles
// Since it is part of the interface now
type TCreateParams struct {
Caption LPCWSTR
Style uint32
ExStyle uint32
X int32
Y int32
Width int32
Height int32
WndParent HWND
Param uintptr
WindowClass TWndClass
WinClassName [64]int8
}
// TColor
func (c TColor) R() byte {
return byte(c)
}
func (c TColor) G() byte {
return byte(c >> 8)
}
func (c TColor) B() byte {
return byte(c >> 16)
}
func (c TColor) RGB(r, g, b byte) TColor {
return TColor(uint32(r) | (uint32(g) << 8) | (uint32(b) << 16))
}
// TGUID
func (g TGUID) FromString(str string) (result TGUID) {
fmt.Sscanf(str, "{%8X-%4X-%4X-%2X%2X-%2X%2X%2X%2X%2X%2X}", &result.D1, &result.D2, &result.D3, &result.D4[0],
&result.D4[1], &result.D4[2], &result.D4[3], &result.D4[4], &result.D4[5], &result.D4[6], &result.D4[7])
return
}
func (g TGUID) ToString() string {
return fmt.Sprintf("{%.8X-%.4X-%.4X-%.2X%.2X-%.2X%.2X%.2X%.2X%.2X%.2X}",
g.D1, g.D2, g.D3, g.D4[0], g.D4[1], g.D4[2], g.D4[3], g.D4[4], g.D4[5], g.D4[6], g.D4[7])
}
func (g TGUID) Empty() TGUID {
return TGUID{}
}
func (g TGUID) IsEqual(val TGUID) bool {
return (g.D1 == val.D1) && (g.D2 == val.D2) && (g.D3 == val.D3) && (g.D4 == val.D4)
}
// TSmallPoint
func (s TSmallPoint) Empty() TSmallPoint {
return TSmallPoint{}
}
func (s TSmallPoint) IsEqual(val TSmallPoint) bool {
return s.X == val.X && s.Y == val.Y
}