-
Notifications
You must be signed in to change notification settings - Fork 4
/
ListGroups.inc
112 lines (91 loc) · 3.38 KB
/
ListGroups.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
//----------------------------------------
// ´úÂëÓÉGenlibVcl¹¤¾ß×Ô¶¯Éú³É¡£
// Copyright ? ying32. All Rights Reserved.
//
//----------------------------------------
function ListGroups_Create(AOwner: TCustomListView): TListGroups; cdecl;
begin
Result := TListGroups.Create(AOwner);
end;
procedure ListGroups_Free(AObj: TListGroups); cdecl;
begin
AObj.Free;
end;
function ListGroups_Add(AObj: TListGroups): TListGroup; cdecl;
begin
Result := AObj.Add;
end;
function ListGroups_Owner(AObj: TListGroups): TCustomListView; cdecl;
begin
Result := AObj.Owner;
end;
procedure ListGroups_Assign(AObj: TListGroups; Source: TPersistent); cdecl;
begin
AObj.Assign(Source);
end;
procedure ListGroups_BeginUpdate(AObj: TListGroups); cdecl;
begin
AObj.BeginUpdate;
end;
procedure ListGroups_Clear(AObj: TListGroups); cdecl;
begin
AObj.Clear;
end;
procedure ListGroups_Delete(AObj: TListGroups; Index: Integer); cdecl;
begin
AObj.Delete(Index);
end;
procedure ListGroups_EndUpdate(AObj: TListGroups); cdecl;
begin
AObj.EndUpdate;
end;
function ListGroups_GetNamePath(AObj: TListGroups): PWideChar; cdecl;
begin
Result := PWideChar(AObj.GetNamePath);
end;
function ListGroups_Insert(AObj: TListGroups; Index: Integer): TCollectionItem; cdecl;
begin
Result := AObj.Insert(Index);
end;
function ListGroups_ClassName(AObj: TListGroups): PWideChar; cdecl;
begin
Result := PWideChar(AObj.ClassName);
end;
function ListGroups_Equals(AObj: TListGroups; Obj: TObject): LongBool; cdecl;
begin
Result := AObj.Equals(Obj);
end;
function ListGroups_GetHashCode(AObj: TListGroups): Integer; cdecl;
begin
Result := AObj.GetHashCode;
end;
function ListGroups_ToString(AObj: TListGroups): PWideChar; cdecl;
begin
Result := PWideChar(AObj.ToString);
end;
function ListGroups_GetItems(AObj: TListGroups; Index: Integer): TListGroup; cdecl;
begin
Result := AObj.Items[Index];
end;
procedure ListGroups_SetItems(AObj: TListGroups; Index: Integer; AValue: TListGroup); cdecl;
begin
AObj.Items[Index] := AValue;
end;
exports
ListGroups_Create {$IFNDEF MSWINDOWS}name '_ListGroups_Create'{$ENDIF},
ListGroups_Free {$IFNDEF MSWINDOWS}name '_ListGroups_Free'{$ENDIF},
ListGroups_Add {$IFNDEF MSWINDOWS}name '_ListGroups_Add'{$ENDIF},
ListGroups_Owner {$IFNDEF MSWINDOWS}name '_ListGroups_Owner'{$ENDIF},
ListGroups_Assign {$IFNDEF MSWINDOWS}name '_ListGroups_Assign'{$ENDIF},
ListGroups_BeginUpdate {$IFNDEF MSWINDOWS}name '_ListGroups_BeginUpdate'{$ENDIF},
ListGroups_Clear {$IFNDEF MSWINDOWS}name '_ListGroups_Clear'{$ENDIF},
ListGroups_Delete {$IFNDEF MSWINDOWS}name '_ListGroups_Delete'{$ENDIF},
ListGroups_EndUpdate {$IFNDEF MSWINDOWS}name '_ListGroups_EndUpdate'{$ENDIF},
ListGroups_GetNamePath {$IFNDEF MSWINDOWS}name '_ListGroups_GetNamePath'{$ENDIF},
ListGroups_Insert {$IFNDEF MSWINDOWS}name '_ListGroups_Insert'{$ENDIF},
ListGroups_ClassName {$IFNDEF MSWINDOWS}name '_ListGroups_ClassName'{$ENDIF},
ListGroups_Equals {$IFNDEF MSWINDOWS}name '_ListGroups_Equals'{$ENDIF},
ListGroups_GetHashCode {$IFNDEF MSWINDOWS}name '_ListGroups_GetHashCode'{$ENDIF},
ListGroups_ToString {$IFNDEF MSWINDOWS}name '_ListGroups_ToString'{$ENDIF},
ListGroups_GetItems {$IFNDEF MSWINDOWS}name '_ListGroups_GetItems'{$ENDIF},
ListGroups_SetItems {$IFNDEF MSWINDOWS}name '_ListGroups_SetItems'{$ENDIF};