Changeset 270 for trunk/Forms/UFormNew.pas

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.

File:

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

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;