Changeset 111

Timestamp:

Nov 27, 2016, 2:34:31 PM (8 years ago)

Author:

chronos

Message:

• Modified: Changed debian packages configuration files to support build on Launchpad.
• Fixed: Wrong zoom calculation in some case.
• Fixed: Set configuration file name explicitly.

Location:

trunk

Files:

• Forms/UFormMain.lfm (modified) (4 diffs)
• Forms/UFormMain.pas (modified) (2 diffs)
• Images/64x64 (added)
• Images/64x64/xtactics.png (added)
• Install/deb/build-deb.sh (deleted)
• Install/deb/xtactics (deleted)
• UCore.lfm (modified) (3 diffs)
• UCore.pas (modified) (1 diff)
• xtactics.ico (modified) ( previous)
• xtactics.lpi (modified) (1 diff)

trunk/Forms/UFormMain.lfm

@@ -5 +5 @@
   Width = 775
   Caption = 'xTactics'
-  ClientHeight = 591
+  ClientHeight = 589
   ClientWidth = 775
   Menu = MainMenu1
@@ -14 +14 @@
   OnKeyUp = FormKeyUp
   OnShow = FormShow
-  LCLVersion = '1.4.4.0'
+  LCLVersion = '1.6.0.4'
   WindowState = wsMaximized
   object StatusBar1: TStatusBar
     Left = 0
     Height = 28
-    Top = 563
+    Top = 561
     Width = 775
     Panels = <    
@@ -35 +35 @@
   object ToolBar1: TToolBar
     Left = 0
-    Height = 563
+    Height = 561
     Top = 0
     Width = 80
@@ -118 +118 @@
   object PaintBox1: TPaintBox
     Left = 80
-    Height = 563
+    Height = 561
     Top = 0
     Width = 695

trunk/Forms/UFormMain.pas

@@ -257 +257 @@
     if Factor.X < Factor.Y then NewZoom := Factor.X
       else NewZoom := Factor.Y;
-    //if NewZoom <> 0 then
+    if NewZoom = 0 then NewZoom := 1;
     Zoom := NewZoom;
     CenterMap;
@@ -330 +330 @@
 procedure TFormMain.FormShow(Sender: TObject);
 begin
+  Core.XMLConfig1.Filename := 'Config.xml';
   LoadConfig(Core.XMLConfig1, 'FormMain');
   Core.PersistentForm.Load(Self, True);

trunk/UCore.lfm

@@ -4 +4 @@
   OldCreateOrder = False
   Height = 542
-  HorizontalOffset = 542
-  VerticalOffset = 222
+  HorizontalOffset = 565
+  VerticalOffset = 329
   Width = 752
   object ActionList1: TActionList
@@ -2018 +2018 @@
   end
   object XMLConfig1: TXMLConfig
-    Filename = 'Config.xml'
     StartEmpty = False
     RootName = 'CONFIG'
+    ReadOnly = False
     left = 209
     top = 360
@@ -2045 +2045 @@
     AuthorsName = 'Chronos'
     AppName = 'xTactics'
-    ReleaseDate = 41908
+    ReleaseDate = 42701
     RegistryKey = '\Software\xTactics'
     RegistryRoot = rrKeyCurrentUser

trunk/UCore.pas

@@ -185 +185 @@
   if (ParamCount > 0) then begin
     FileName := UTF8Encode(ParamStr(1));
-    if FileExistsUTF8(FileName) then begin
+    if FileExists(FileName) then begin
       Game.LoadFromFile(FileName);
       Player := Game.Players.GetFirstHuman;

trunk/xtactics.lpi

@@ -188 +188 @@
         <StackChecks Value="True"/>
       </Checks>
+      <VerifyObjMethodCallValidity Value="True"/>
     </CodeGeneration>
     <Linking>