Changeset 363

Timestamp:

Dec 31, 2024, 1:23:10 PM (6 days ago)

Author:

chronos

Message:

• Modified: Do not paint new game preview bellow form height.

Location:

trunk

Files:

• Forms/FormNew.lfm (modified) (23 diffs)
• Forms/FormNew.pas (modified) (1 diff)
• Packages/Common/Languages/FormList.cs.po (added)
• Packages/Common/Languages/ItemList.cs.po (added)

trunk/Forms/FormNew.lfm

@@ -1 +1 @@
 object FormNew: TFormNew
-  Left = 470
+  Left = 412
   Height = 662
-  Top = 353
-  Width = 913
+  Top = 155
+  Width = 1015
   Caption = 'New game'
   ClientHeight = 662
-  ClientWidth = 913
+  ClientWidth = 1015
   Constraints.MinHeight = 418
   Constraints.MinWidth = 556
@@ -19 +19 @@
     Height = 564
     Top = 50
-    Width = 576
+    Width = 678
     ActivePage = TabSheetMap
     Align = alClient
@@ -30 +30 @@
       Caption = 'Mode'
       ClientHeight = 531
-      ClientWidth = 568
+      ClientWidth = 670
       ParentFont = False
       object Panel3: TPanel
@@ -36 +36 @@
         Height = 531
         Top = 0
-        Width = 568
+        Width = 670
         Align = alClient
         BevelOuter = bvNone
         ClientHeight = 531
-        ClientWidth = 568
+        ClientWidth = 670
         ParentFont = False
         TabOrder = 0
@@ -173 +173 @@
       Caption = 'Players'
       ClientHeight = 531
-      ClientWidth = 568
+      ClientWidth = 670
       ParentFont = False
       object Panel2: TPanel
@@ -179 +179 @@
         Height = 531
         Top = 0
-        Width = 568
+        Width = 670
         Align = alClient
         BevelOuter = bvNone
@@ -189 +189 @@
       Caption = 'Map'
       ClientHeight = 531
-      ClientWidth = 568
+      ClientWidth = 670
       OnShow = TabSheetMapShow
       ParentFont = False
@@ -196 +196 @@
         Height = 531
         Top = 0
-        Width = 568
+        Width = 670
         Align = alClient
         BevelOuter = bvNone
         ClientHeight = 531
-        ClientWidth = 568
+        ClientWidth = 670
         ParentFont = False
         TabOrder = 0
@@ -247 +247 @@
           Height = 48
           Top = 7
-          Width = 359
+          Width = 461
           Max = 100
           Min = 2
@@ -261 +261 @@
           Height = 48
           Top = 41
-          Width = 359
+          Width = 461
           Max = 100
           Min = 2
@@ -418 +418 @@
           Height = 28
           Top = 153
-          Width = 345
+          Width = 447
           Anchors = [akTop, akLeft, akRight]
           ParentFont = False
@@ -425 +425 @@
         end
         object ButtonImageBrowse: TButton
-          Left = 472
+          Left = 574
           Height = 32
           Top = 152
@@ -487 +487 @@
         object Image1: TImage
           Left = 349
-          Height = 263
+          Height = 301
           Top = 227
-          Width = 211
-          Anchors = [akTop, akLeft, akRight]
+          Width = 313
+          Anchors = [akTop, akLeft, akRight, akBottom]
           OnResize = Image1Resize
         end
@@ -517 +517 @@
       Caption = 'Rules'
       ClientHeight = 531
-      ClientWidth = 568
+      ClientWidth = 670
       ParentFont = False
       object Panel4: TPanel
@@ -523 +523 @@
         Height = 531
         Top = 0
-        Width = 568
+        Width = 670
         Align = alClient
         BevelOuter = bvNone
         ClientHeight = 531
-        ClientWidth = 568
+        ClientWidth = 670
         ParentFont = False
         TabOrder = 0
@@ -616 +616 @@
           Height = 92
           Top = 262
-          Width = 549
+          Width = 651
           ActivePage = TabSheetCaptureEntireMap
           Anchors = [akTop, akLeft, akRight]
@@ -631 +631 @@
           object TabSheetCaptureCells: TTabSheet
             ClientHeight = 84
-            ClientWidth = 541
+            ClientWidth = 643
             ParentFont = False
             object Label14: TLabel
@@ -656 +656 @@
           object TabSheetStayAliveTurns: TTabSheet
             ClientHeight = 84
-            ClientWidth = 541
+            ClientWidth = 643
             ParentFont = False
             object Label13: TLabel
@@ -693 +693 @@
     Height = 45
     Top = 617
-    Width = 913
+    Width = 1015
     Align = alBottom
     BevelOuter = bvNone
     ClientHeight = 45
-    ClientWidth = 913
+    ClientWidth = 1015
     ParentFont = False
     TabOrder = 1
     object ButtonOk: TButton
-      Left = 813
+      Left = 915
       Height = 32
       Top = 6
@@ -713 +713 @@
     end
     object ButtonCancel: TButton
-      Left = 704
+      Left = 806
       Height = 32
       Top = 6
@@ -725 +725 @@
   end
   object PanelChat: TPanel
-    Left = 587
+    Left = 689
     Height = 570
     Top = 47
@@ -735 +735 @@
   end
   object Splitter1: TSplitter
-    Left = 582
+    Left = 684
     Height = 570
     Top = 47
@@ -746 +746 @@
     Height = 47
     Top = 0
-    Width = 913
+    Width = 1015
     Align = alTop
     BevelOuter = bvNone
     ClientHeight = 47
-    ClientWidth = 913
+    ClientWidth = 1015
     ParentFont = False
     TabOrder = 4

trunk/Forms/FormNew.pas

@@ -382 +382 @@
   Bitmap: TBitmap;
 begin
-  Image1.Height := Round(Image1.Width * SpinEditMapSizeY.Value / SpinEditMapSizeX.Value);
   GamePreview.GameSystem.Assign(FServer.Game.GameSystem);
   SaveGame(GamePreview);