Changeset 346 for trunk/ItemList.pas

Timestamp:

Dec 25, 2024, 11:04:56 AM (28 hours ago)

Author:

chronos

Message:

• Fixed: Build on Linux.
• Modified: Improved internal code structure.

File:

• trunk/ItemList.pas (modified) (3 diffs)

trunk/ItemList.pas

@@ -184 +184 @@
   while Count < Source.Count do AddItem('');
   for I := 0 to Count - 1 do
-    TItem(Items[I]).Assign(Source.Items[I]);
+    Items[I].Assign(Source.Items[I]);
 end;
 
@@ -201 +201 @@
 function TItemList<T>.AddItem(Name: string): T;
 begin
-  Result := T.Create;
-  Result.Name := Name;
+  Result := CreateItem(Name);
   Result.Id := GetNewId;
   Add(Result);
@@ -253 +252 @@
 end;
 
-function TItemList<T>.QueryInterface(constref iid: tguid; out obj): LongInt;
-  stdcall;
+function TItemList<T>.QueryInterface({$IFDEF FPC_HAS_CONSTREF}constref{$ELSE}const{$ENDIF} iid: tguid; out obj): LongInt;
+  {$IFNDEF WINDOWS}cdecl{$ELSE}stdcall{$ENDIF};
 begin
   Result := 0;
 end;
 
-function TItemList<T>._AddRef: LongInt; stdcall;
+function TItemList<T>._AddRef: LongInt; {$IFNDEF WINDOWS}cdecl{$ELSE}stdcall{$ENDIF};
 begin
   Result := 0;
 end;
 
-function TItemList<T>._Release: LongInt; stdcall;
+function TItemList<T>._Release: LongInt; {$IFNDEF WINDOWS}cdecl{$ELSE}stdcall{$ENDIF};
 begin
   Result := 0;