Changeset 266 for trunk/Forms/UFormNew.pas

Timestamp:

Jan 15, 2019, 8:41:53 AM (6 years ago)

Author:

chronos

Message:

• Fixed: Show correct win objective parameters in New game window Rules tab.

File:

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

trunk/Forms/UFormNew.pas

@@ -67 +67 @@
     OpenPictureDialog1: TOpenPictureDialog;
     PageControl1: TPageControl;
-    PageControl2: TPageControl;
+    PageControlWinObjective: TPageControl;
     Panel1: TPanel;
     Panel2: TPanel;
@@ -91 +91 @@
     SpinEditVoidPercent: TSpinEdit;
     Splitter1: TSplitter;
+    TabSheetCaptureEntireMap: TTabSheet;
+    TabSheetNone: TTabSheet;
     TabSheetCaptureCells: TTabSheet;
     TabSheetCaptureCities: TTabSheet;
@@ -330 +332 @@
 
 procedure TFormNew.UpdateInterface;
+var
+  WinObjective: TWinObjective;
 begin
   APlayerRemove.Enabled := Assigned(ListViewPlayers.Selected) and (Players.Count > MinPlayerCount);
@@ -344 +348 @@
   AServerAdd.Enabled := RadioButtonModeNetworkClient.Checked;
   AServerModify.Enabled := RadioButtonModeNetworkClient.Checked;
-  PageControl2.TabIndex := ComboBoxWinObjective.ItemIndex;
+  WinObjective := TWinObjective(ComboBoxWinObjective.ItemIndex);
+  case WinObjective of
+    woNone: PageControlWinObjective.TabIndex := PageControlWinObjective.IndexOf(TabSheetNone);
+    woDefeatAllOponents: PageControlWinObjective.TabIndex := PageControlWinObjective.IndexOf(TabSheetDefeatEnemies);
+    woDefeatAllOponentsCities: PageControlWinObjective.TabIndex := PageControlWinObjective.IndexOf(TabSheetCaptureCities);
+    woSpecialCaptureCell: PageControlWinObjective.TabIndex := PageControlWinObjective.IndexOf(TabSheetCaptureCells);
+    woStayAliveForDefinedTurns: PageControlWinObjective.TabIndex := PageControlWinObjective.IndexOf(TabSheetStayAliveTurns);
+    woCaptureEntireMap: PageControlWinObjective.TabIndex := PageControlWinObjective.IndexOf(TabSheetCaptureEntireMap);
+  end;
 end;