Changeset 346 for trunk/Forms/FormItem.pas

Timestamp:

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

Author:

chronos

Message:

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

File:

• trunk/Forms/FormItem.pas (modified) (2 diffs)

trunk/Forms/FormItem.pas

@@ -80 +80 @@
   J: Integer;
   Control: TControl;
-  ReferenceList: TItemList<TItem>;
+  ReferenceList: IList<TItem>;
   ReferenceItem: TItem;
 begin
@@ -106 +106 @@
       try
         TComboBox(Control).Items.Clear;
-        ReferenceList := TItemList<TItem>(Item.GetReferenceList(Index));
+        ReferenceList := Item.GetReferenceList(Index);
         if Assigned(ReferenceList) then
           for J := 0 to ReferenceList.Count - 1 do