Changeset 300 for trunk/Forms/UFormItem.pas

Timestamp:

Jul 10, 2019, 10:46:20 PM (5 years ago)

Author:

chronos

Message:

• Added: Hide player options applicatble only for computer player.
• Modified: Better selection of player and nation colors.

File:

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

trunk/Forms/UFormItem.pas

@@ -24 +24 @@
     FItem: TItem;
     DataControls: TFPGObjectList<TControl>;
+    DataLabels: TFPGObjectList<TLabel>;
+    procedure ControlChangeExecute(Sender: TObject);
     procedure SetItem(AValue: TItem);
     procedure LoadData(Item: TItem); virtual;
@@ -29 +31 @@
     procedure InitControls;
   public
+    procedure UpdateInterface;
     property Item: TItem read FItem write SetItem;
   end;
@@ -60 +63 @@
   Core.ThemeManager1.UseTheme(Self);
   DataControls := TFPGObjectList<TControl>.Create;
+  DataLabels := TFPGObjectList<TLabel>.Create;
 end;
 
 procedure TFormItem.FormDestroy(Sender: TObject);
 begin
+  DataLabels.Free;
   DataControls.Free;
 end;
@@ -70 +75 @@
 begin
   Core.PersistentForm.Load(Self);
+end;
+
+procedure TFormItem.ControlChangeExecute(Sender: TObject);
+begin
+  UpdateInterface;
 end;
 
@@ -130 +140 @@
   end;
   Fields.Free;
+  UpdateInterface;
 end;
 
@@ -165 +176 @@
   Y: Integer;
 begin
-  Y := 8;
+  DataControls.Clear;
+  DataLabels.Clear;
+  Y := Scale96ToScreen(8);
   Fields := Item.GetFields;
   for I := 0 to Fields.Count - 1 do
   with TItemField(Fields[I]) do begin
     NewLabel := TLabel.Create(Self);
-    NewLabel.Left := 8;
+    NewLabel.Left := Scale96ToScreen(8);
     NewLabel.Top := Y;
     NewLabel.Parent := Self;
     NewLabel.Caption := Name + ':';
     NewLabel.Visible := True;
+    DataLabels.Add(NewLabel);
 
     if DataType = dtInteger then begin
       NewControl := TSpinEdit.Create(nil);
-      NewControl.Width := 100;
+      NewControl.Width := Scale96ToScreen(100);
       TSpinEdit(NewControl).MaxValue := High(Integer);
     end else
     if DataType = dtString then begin
       NewControl := TEdit.Create(nil);
-      NewControl.Width := 300;
+      NewControl.Width := Scale96ToScreen(300);
     end else
     if DataType = dtColor then begin
       NewControl := TColorBox.Create(nil);
-      NewControl.Width := 200;
+      NewControl.Width := Scale96ToScreen(200);
+      TColorBox(NewControl).Style := [cbStandardColors, cbExtendedColors,
+        cbCustomColor, cbPrettyNames];
     end else
     if DataType = dtEnumeration then begin
       NewControl := TComboBox.Create(nil);
-      NewControl.Width := 200;
+      NewControl.Width := Scale96ToScreen(200);
       TComboBox(NewControl).Style := csDropDownList;
+      TComboBox(NewControl).OnChange := ControlChangeExecute;
     end else
     if DataType = dtReference then begin
       NewControl := TComboBox.Create(nil);
-      NewControl.Width := 200;
+      NewControl.Width := Scale96ToScreen(200);
       TComboBox(NewControl).Style := csDropDownList;
     end else
@@ -203 +220 @@
     end else
       raise Exception.Create(Format(SUnsupportedDataType, [DataTypeStr[DataType]]));
-    NewControl.Left := 150;
+    NewControl.Left := Scale96ToScreen(150);
     NewControl.Top := Y;
     NewControl.Parent := Self;
@@ -210 +227 @@
     NewControl.Visible := True;
     DataControls.Add(NewControl);
-    Y := Y + 40;
+    Y := Y + Scale96ToScreen(30);
   end;
   Fields.Free;
 end;
 
+procedure TFormItem.UpdateInterface;
+var
+  I: Integer;
+  Fields: TItemFields;
+  Condition: Boolean;
+begin
+  Fields := Item.GetFields;
+  try
+    for I := 0 to Fields.Count - 1 do
+    with TItemField(Fields[I]) do begin
+      if VisibleIfIndex > 0 then begin
+        if TItemField(Fields[VisibleIfIndex]).DataType = dtEnumeration then begin
+          Condition := TComboBox(DataControls[VisibleIfIndex]).ItemIndex > 0;
+        end else Condition := False;
+      end;
+      DataControls[I].Visible := (VisibleIfIndex = 0) or ((VisibleIfIndex > 0) and Condition);
+      DataLabels[I].Visible := DataControls[I].Visible;
+    end;
+  finally
+    Fields.Free;
+  end;
+end;
+
 end.