-
Notifications
You must be signed in to change notification settings - Fork 4
/
Copy pathListColumns.inc
112 lines (91 loc) · 3.46 KB
/
ListColumns.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 ListColumns_Create(AOwner: TCustomListView): TListColumns; cdecl;
begin
Result := TListColumns.Create(AOwner);
end;
procedure ListColumns_Free(AObj: TListColumns); cdecl;
begin
AObj.Free;
end;
function ListColumns_Add(AObj: TListColumns): TListColumn; cdecl;
begin
Result := AObj.Add;
end;
function ListColumns_Owner(AObj: TListColumns): TCustomListView; cdecl;
begin
Result := AObj.Owner;
end;
procedure ListColumns_Assign(AObj: TListColumns; Source: TPersistent); cdecl;
begin
AObj.Assign(Source);
end;
procedure ListColumns_BeginUpdate(AObj: TListColumns); cdecl;
begin
AObj.BeginUpdate;
end;
procedure ListColumns_Clear(AObj: TListColumns); cdecl;
begin
AObj.Clear;
end;
procedure ListColumns_Delete(AObj: TListColumns; Index: Integer); cdecl;
begin
AObj.Delete(Index);
end;
procedure ListColumns_EndUpdate(AObj: TListColumns); cdecl;
begin
AObj.EndUpdate;
end;
function ListColumns_GetNamePath(AObj: TListColumns): PWideChar; cdecl;
begin
Result := PWideChar(AObj.GetNamePath);
end;
function ListColumns_Insert(AObj: TListColumns; Index: Integer): TCollectionItem; cdecl;
begin
Result := AObj.Insert(Index);
end;
function ListColumns_ClassName(AObj: TListColumns): PWideChar; cdecl;
begin
Result := ShortstrToPWideChar(AObj.ClassName);
end;
function ListColumns_Equals(AObj: TListColumns; Obj: TObject): LongBool; cdecl;
begin
Result := AObj.Equals(Obj);
end;
function ListColumns_GetHashCode(AObj: TListColumns): Integer; cdecl;
begin
Result := AObj.GetHashCode;
end;
function ListColumns_ToString(AObj: TListColumns): PWideChar; cdecl;
begin
Result := PWideChar(AObj.ToString);
end;
function ListColumns_GetItems(AObj: TListColumns; Index: Integer): TListColumn; cdecl;
begin
Result := AObj.Items[Index];
end;
procedure ListColumns_SetItems(AObj: TListColumns; Index: Integer; AValue: TListColumn); cdecl;
begin
AObj.Items[Index] := AValue;
end;
exports
ListColumns_Create {$IFNDEF MSWINDOWS}name '_ListColumns_Create'{$ENDIF},
ListColumns_Free {$IFNDEF MSWINDOWS}name '_ListColumns_Free'{$ENDIF},
ListColumns_Add {$IFNDEF MSWINDOWS}name '_ListColumns_Add'{$ENDIF},
ListColumns_Owner {$IFNDEF MSWINDOWS}name '_ListColumns_Owner'{$ENDIF},
ListColumns_Assign {$IFNDEF MSWINDOWS}name '_ListColumns_Assign'{$ENDIF},
ListColumns_BeginUpdate {$IFNDEF MSWINDOWS}name '_ListColumns_BeginUpdate'{$ENDIF},
ListColumns_Clear {$IFNDEF MSWINDOWS}name '_ListColumns_Clear'{$ENDIF},
ListColumns_Delete {$IFNDEF MSWINDOWS}name '_ListColumns_Delete'{$ENDIF},
ListColumns_EndUpdate {$IFNDEF MSWINDOWS}name '_ListColumns_EndUpdate'{$ENDIF},
ListColumns_GetNamePath {$IFNDEF MSWINDOWS}name '_ListColumns_GetNamePath'{$ENDIF},
ListColumns_Insert {$IFNDEF MSWINDOWS}name '_ListColumns_Insert'{$ENDIF},
ListColumns_ClassName {$IFNDEF MSWINDOWS}name '_ListColumns_ClassName'{$ENDIF},
ListColumns_Equals {$IFNDEF MSWINDOWS}name '_ListColumns_Equals'{$ENDIF},
ListColumns_GetHashCode {$IFNDEF MSWINDOWS}name '_ListColumns_GetHashCode'{$ENDIF},
ListColumns_ToString {$IFNDEF MSWINDOWS}name '_ListColumns_ToString'{$ENDIF},
ListColumns_GetItems {$IFNDEF MSWINDOWS}name '_ListColumns_GetItems'{$ENDIF},
ListColumns_SetItems {$IFNDEF MSWINDOWS}name '_ListColumns_SetItems'{$ENDIF};