Changeset 270 for trunk/Forms

Timestamp:

Jan 28, 2019, 10:38:17 PM (6 years ago)

Author:

chronos

Message:

• Modified: Keep randseed for randomly generated map preview inside New game form.
• Modified: Resize map preview with form resize.

Location:

trunk/Forms

Files:

• UFormNew.lfm (modified) (2 diffs)
• UFormNew.pas (modified) (9 diffs)

trunk/Forms/UFormNew.lfm

@@ -518 +518 @@
           Top = 272
           Width = 359
+          Anchors = [akTop, akLeft, akRight]
+          OnResize = Image1Resize
         end
         object Label15: TLabel
@@ -523 +525 @@
           Height = 26
           Top = 240
-          Width = 147
-          Caption = 'Random preview:'
-          ParentColor = False
+          Width = 71
+          Caption = 'Preview:'
+          ParentColor = False
+        end
+        object ButtonRandomize: TButton
+          Left = 10
+          Height = 38
+          Top = 540
+          Width = 153
+          Caption = 'Randomize'
+          OnClick = ButtonRandomizeClick
+          TabOrder = 17
         end
       end

trunk/Forms/UFormNew.pas

@@ -25 +25 @@
     Button2: TButton;
     Button3: TButton;
+    ButtonRandomize: TButton;
     ButtonCancel: TButton;
     ButtonImageBrowse: TButton;
@@ -115 +116 @@
     procedure AServerRemoveExecute(Sender: TObject);
     procedure ButtonImageBrowseClick(Sender: TObject);
+    procedure ButtonRandomizeClick(Sender: TObject);
     procedure CheckBoxBridgesChange(Sender: TObject);
     procedure CheckBoxCityChange(Sender: TObject);
@@ -128 +130 @@
     procedure FormDestroy(Sender: TObject);
     procedure FormShow(Sender: TObject);
+    procedure Image1Resize(Sender: TObject);
     procedure ListViewPlayersCustomDrawSubItem(Sender: TCustomListView;
       Item: TListItem; SubItem: Integer; State: TCustomDrawState;
@@ -159 +162 @@
     GamePreview: TGame;
     MapPreviewRedrawPending: Boolean;
+    NewRandSeed: Cardinal;
     procedure LoadGame(Game: TGame);
     procedure SaveGame(Game: TGame);
@@ -363 +367 @@
   Game.Players.Assign(Players);
   with Game do begin
+    StoredRandSeed := NewRandSeed;
     SymetricMap := CheckBoxSymetricMap.Checked;
     CyclicMap := CheckBoxCyclicMap.Checked;
@@ -397 +402 @@
   Bitmap: TBitmap;
 begin
+  Image1.Height := Round(Image1.Width * SpinEditMapSizeY.Value / SpinEditMapSizeX.Value);
   GamePreview.GameSystem := Core.GameSystems.First;
   SaveGame(GamePreview);
@@ -508 +514 @@
 procedure TFormNew.FormShow(Sender: TObject);
 begin
+  Randomize;
+  NewRandSeed := RandSeed;
   Core.PersistentForm.Load(Self);
   Core.ThemeManager1.UseTheme(Self);
@@ -517 +525 @@
   TabSheetMode.Enabled := False;
   {$ENDIF}
+end;
+
+procedure TFormNew.Image1Resize(Sender: TObject);
+begin
+  MapPreviewRedraw;
 end;
 
@@ -667 +680 @@
     EditImageFile.Text := OpenPictureDialog1.FileName;
   end;
+end;
+
+procedure TFormNew.ButtonRandomizeClick(Sender: TObject);
+begin
+  Randomize;
+  NewRandSeed := RandSeed;
+  MapPreviewRedraw;
 end;