Changeset 296 for trunk/Forms

Timestamp:

Mar 29, 2019, 12:58:09 PM (6 years ago)

Author:

chronos

Message:

• Added: New enumeration field type in generic TItem classes.

Location:

trunk/Forms

Files:

• UFormItem.lfm (modified) (1 diff)
• UFormItem.pas (modified) (5 diffs)

trunk/Forms/UFormItem.lfm

@@ -28 +28 @@
     Left = 220
     Height = 32
-    Top = 257
+    Top = 260
     Width = 94
     Anchors = [akLeft]

trunk/Forms/UFormItem.pas

@@ -89 +89 @@
   Fields: TItemFields;
   I: Integer;
+  J: Integer;
   Control: TControl;
 begin
@@ -99 +100 @@
     else if DataType = dtColor then TColorBox(Control).Selected := Item.GetValueColor(Index)
     else if DataType = dtBoolean then TCheckBox(Control).Checked := Item.GetValueBoolean(Index)
-    else raise Exception.Create('Unsupported type ' + IntToStr(Integer(DataType)));
+    else if DataType = dtEnumeration then begin
+      TComboBox(Control).Items.BeginUpdate;
+      try
+        TComboBox(Control).Items.Clear;
+        for J := 0 to EnumStates.Count - 1 do
+          TComboBox(Control).Items.Add(EnumStates[J]);
+        TComboBox(Control).ItemIndex := Integer(Item.GetValueEnumeration(Index));
+      finally
+        TComboBox(Control).Items.EndUpdate;
+      end;
+    end
+    else raise Exception.Create(Format(SUnsupportedDataType, [DataTypeStr[DataType]]));
   end;
   Fields.Free;
@@ -118 +130 @@
     else if DataType = dtColor then Item.SetValueColor(Index, TColorBox(Control).Selected)
     else if DataType = dtBoolean then Item.SetValueBoolean(Index, TCheckBox(Control).Checked)
-    else raise Exception.Create('Unsupported type ' + IntToStr(Integer(DataType)));
+    else if DataType = dtEnumeration then Item.SetValueEnumeration(Index, TUndefinedEnum(TComboBox(Control).ItemIndex))
+    else raise Exception.Create(Format(SUnsupportedDataType, [DataTypeStr[DataType]]));
   end;
   Fields.Free;
@@ -145 +158 @@
       NewControl := TSpinEdit.Create(nil);
       NewControl.Width := 100;
+      TSpinEdit(NewControl).MaxValue := High(Integer);
     end else
     if DataType = dtString then begin
@@ -154 +168 @@
       NewControl.Width := 200;
     end else
+    if DataType = dtEnumeration then begin
+      NewControl := TComboBox.Create(nil);
+      NewControl.Width := 200;
+      TComboBox(NewControl).Style := csDropDownList;
+    end else
     if DataType = dtBoolean then begin
       NewControl := TCheckBox.Create(nil);
-    end else raise Exception.Create('Unsupported type ' + IntToStr(Integer(DataType)));
+    end else
+      raise Exception.Create(Format(SUnsupportedDataType, [DataTypeStr[DataType]]));
     NewControl.Left := 150;
     NewControl.Top := Y;