-
Notifications
You must be signed in to change notification settings - Fork 4
/
StatusPanel.inc
130 lines (106 loc) · 4.12 KB
/
StatusPanel.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
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
//----------------------------------------
// ´úÂëÓÉGenlibVcl¹¤¾ß×Ô¶¯Éú³É¡£
// Copyright ? ying32. All Rights Reserved.
//
//----------------------------------------
function StatusPanel_Create(AOwner: TCollection): TStatusPanel; cdecl;
begin
Result := TStatusPanel.Create(AOwner);
end;
procedure StatusPanel_Free(AObj: TStatusPanel); cdecl;
begin
AObj.Free;
end;
procedure StatusPanel_Assign(AObj: TStatusPanel; Source: TPersistent); cdecl;
begin
AObj.Assign(Source);
end;
function StatusPanel_GetNamePath(AObj: TStatusPanel): PWideChar; cdecl;
begin
Result := PWideChar(AObj.GetNamePath);
end;
function StatusPanel_ClassName(AObj: TStatusPanel): PWideChar; cdecl;
begin
Result := ShortstrToPWideChar(AObj.ClassName);
end;
function StatusPanel_Equals(AObj: TStatusPanel; Obj: TObject): LongBool; cdecl;
begin
Result := AObj.Equals(Obj);
end;
function StatusPanel_GetHashCode(AObj: TStatusPanel): Integer; cdecl;
begin
Result := AObj.GetHashCode;
end;
function StatusPanel_ToString(AObj: TStatusPanel): PWideChar; cdecl;
begin
Result := PWideChar(AObj.ToString);
end;
function StatusPanel_GetAlignment(AObj: TStatusPanel): TAlignment; cdecl;
begin
Result := AObj.Alignment;
end;
procedure StatusPanel_SetAlignment(AObj: TStatusPanel; AValue: TAlignment); cdecl;
begin
AObj.Alignment := AValue;
end;
function StatusPanel_GetBiDiMode(AObj: TStatusPanel): TBiDiMode; cdecl;
begin
Result := AObj.BiDiMode;
end;
procedure StatusPanel_SetBiDiMode(AObj: TStatusPanel; AValue: TBiDiMode); cdecl;
begin
AObj.BiDiMode := AValue;
end;
function StatusPanel_GetStyle(AObj: TStatusPanel): TStatusPanelStyle; cdecl;
begin
Result := AObj.Style;
end;
procedure StatusPanel_SetStyle(AObj: TStatusPanel; AValue: TStatusPanelStyle); cdecl;
begin
AObj.Style := AValue;
end;
function StatusPanel_GetText(AObj: TStatusPanel): PWideChar; cdecl;
begin
Result := PWideChar(AObj.Text);
end;
procedure StatusPanel_SetText(AObj: TStatusPanel; AValue: PWideChar); cdecl;
begin
AObj.Text := AValue;
end;
function StatusPanel_GetWidth(AObj: TStatusPanel): Integer; cdecl;
begin
Result := AObj.Width;
end;
procedure StatusPanel_SetWidth(AObj: TStatusPanel; AValue: Integer); cdecl;
begin
AObj.Width := AValue;
end;
function StatusPanel_GetIndex(AObj: TStatusPanel): Integer; cdecl;
begin
Result := AObj.Index;
end;
procedure StatusPanel_SetIndex(AObj: TStatusPanel; AValue: Integer); cdecl;
begin
AObj.Index := AValue;
end;
exports
StatusPanel_Create {$IFNDEF MSWINDOWS}name '_StatusPanel_Create'{$ENDIF},
StatusPanel_Free {$IFNDEF MSWINDOWS}name '_StatusPanel_Free'{$ENDIF},
StatusPanel_Assign {$IFNDEF MSWINDOWS}name '_StatusPanel_Assign'{$ENDIF},
StatusPanel_GetNamePath {$IFNDEF MSWINDOWS}name '_StatusPanel_GetNamePath'{$ENDIF},
StatusPanel_ClassName {$IFNDEF MSWINDOWS}name '_StatusPanel_ClassName'{$ENDIF},
StatusPanel_Equals {$IFNDEF MSWINDOWS}name '_StatusPanel_Equals'{$ENDIF},
StatusPanel_GetHashCode {$IFNDEF MSWINDOWS}name '_StatusPanel_GetHashCode'{$ENDIF},
StatusPanel_ToString {$IFNDEF MSWINDOWS}name '_StatusPanel_ToString'{$ENDIF},
StatusPanel_GetAlignment {$IFNDEF MSWINDOWS}name '_StatusPanel_GetAlignment'{$ENDIF},
StatusPanel_SetAlignment {$IFNDEF MSWINDOWS}name '_StatusPanel_SetAlignment'{$ENDIF},
StatusPanel_GetBiDiMode {$IFNDEF MSWINDOWS}name '_StatusPanel_GetBiDiMode'{$ENDIF},
StatusPanel_SetBiDiMode {$IFNDEF MSWINDOWS}name '_StatusPanel_SetBiDiMode'{$ENDIF},
StatusPanel_GetStyle {$IFNDEF MSWINDOWS}name '_StatusPanel_GetStyle'{$ENDIF},
StatusPanel_SetStyle {$IFNDEF MSWINDOWS}name '_StatusPanel_SetStyle'{$ENDIF},
StatusPanel_GetText {$IFNDEF MSWINDOWS}name '_StatusPanel_GetText'{$ENDIF},
StatusPanel_SetText {$IFNDEF MSWINDOWS}name '_StatusPanel_SetText'{$ENDIF},
StatusPanel_GetWidth {$IFNDEF MSWINDOWS}name '_StatusPanel_GetWidth'{$ENDIF},
StatusPanel_SetWidth {$IFNDEF MSWINDOWS}name '_StatusPanel_SetWidth'{$ENDIF},
StatusPanel_GetIndex {$IFNDEF MSWINDOWS}name '_StatusPanel_GetIndex'{$ENDIF},
StatusPanel_SetIndex {$IFNDEF MSWINDOWS}name '_StatusPanel_SetIndex'{$ENDIF};