Changeset 298 for trunk/Forms/UFormItem.pas

Timestamp:

Jul 10, 2019, 5:35:15 PM (5 years ago)

Author:

chronos

Message:

• Added: New item list type reference. Used in players for reference to selected nation.
• Modified: New game players selection migrated to dynamic item/list forms.

File:

• trunk/Forms/UFormItem.pas (modified) (4 diffs)

trunk/Forms/UFormItem.pas

@@ -91 +91 @@
   J: Integer;
   Control: TControl;
+  ReferenceList: TItemList;
+  ReferenceItem: TItem;
 begin
   Fields := Item.GetFields;
@@ -111 +113 @@
       end;
     end
+    else if DataType = dtReference then begin
+      TComboBox(Control).Items.BeginUpdate;
+      try
+        TComboBox(Control).Items.Clear;
+        ReferenceList := Item.GetReferenceList(Index);
+        if Assigned(ReferenceList) then
+          for J := 0 to ReferenceList.Count - 1 do
+            TComboBox(Control).Items.AddObject(TItem(ReferenceList[J]).Name, ReferenceList[J]);
+        ReferenceItem := TItem(Item.GetValueReference(Index));
+        TComboBox(Control).ItemIndex := TComboBox(Control).Items.IndexOfObject(ReferenceItem);
+      finally
+        TComboBox(Control).Items.EndUpdate;
+      end;
+    end
     else raise Exception.Create(Format(SUnsupportedDataType, [DataTypeStr[DataType]]));
   end;
@@ -131 +147 @@
     else if DataType = dtBoolean then Item.SetValueBoolean(Index, TCheckBox(Control).Checked)
     else if DataType = dtEnumeration then Item.SetValueEnumeration(Index, TUndefinedEnum(TComboBox(Control).ItemIndex))
+    else if DataType = dtReference then begin
+      if TComboBox(Control).ItemIndex <> -1 then
+        Item.SetValueReference(Index, TItem(TComboBox(Control).Items.Objects[TComboBox(Control).ItemIndex]))
+        else Item.SetValueReference(Index, nil);
+    end
     else raise Exception.Create(Format(SUnsupportedDataType, [DataTypeStr[DataType]]));
   end;
@@ -173 +194 @@
       TComboBox(NewControl).Style := csDropDownList;
     end else
+    if DataType = dtReference then begin
+      NewControl := TComboBox.Create(nil);
+      NewControl.Width := 200;
+      TComboBox(NewControl).Style := csDropDownList;
+    end else
     if DataType = dtBoolean then begin
       NewControl := TCheckBox.Create(nil);