Changeset 111 for trunk


Ignore:
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:
2 added
2 deleted
6 edited

Legend:

Unmodified
Added
Removed

  • trunk/Forms/UFormMain.lfm

    r107 r111  
    55  Width = 775
    66  Caption = 'xTactics'
    7   ClientHeight = 591
     7  ClientHeight = 589
    88  ClientWidth = 775
    99  Menu = MainMenu1
    … …  
    1414  OnKeyUp = FormKeyUp
    1515  OnShow = FormShow
    16   LCLVersion = '1.4.4.0'
     16  LCLVersion = '1.6.0.4'
    1717  WindowState = wsMaximized
    1818  object StatusBar1: TStatusBar
    1919    Left = 0
    2020    Height = 28
    21     Top = 563
     21    Top = 561
    2222    Width = 775
    2323    Panels = <   
    … …  
    3535  object ToolBar1: TToolBar
    3636    Left = 0
    37     Height = 563
     37    Height = 561
    3838    Top = 0
    3939    Width = 80
    … …  
    118118  object PaintBox1: TPaintBox
    119119    Left = 80
    120     Height = 563
     120    Height = 561
    121121    Top = 0
    122122    Width = 695

  • trunk/Forms/UFormMain.pas

    r107 r111  
    257257    if Factor.X < Factor.Y then NewZoom := Factor.X
    258258      else NewZoom := Factor.Y;
    259     //if NewZoom <> 0 then
     259    if NewZoom = 0 then NewZoom := 1;
    260260    Zoom := NewZoom;
    261261    CenterMap;
    … …  
    330330procedure TFormMain.FormShow(Sender: TObject);
    331331begin
     332  Core.XMLConfig1.Filename := 'Config.xml';
    332333  LoadConfig(Core.XMLConfig1, 'FormMain');
    333334  Core.PersistentForm.Load(Self, True);

  • trunk/UCore.lfm

    r99 r111  
    44  OldCreateOrder = False
    55  Height = 542
    6   HorizontalOffset = 542
    7   VerticalOffset = 222
     6  HorizontalOffset = 565
     7  VerticalOffset = 329
    88  Width = 752
    99  object ActionList1: TActionList
    … …  
    20182018  end
    20192019  object XMLConfig1: TXMLConfig
    2020     Filename = 'Config.xml'
    20212020    StartEmpty = False
    20222021    RootName = 'CONFIG'
     2022    ReadOnly = False
    20232023    left = 209
    20242024    top = 360
    … …  
    20452045    AuthorsName = 'Chronos'
    20462046    AppName = 'xTactics'
    2047     ReleaseDate = 41908
     2047    ReleaseDate = 42701
    20482048    RegistryKey = '\Software\xTactics'
    20492049    RegistryRoot = rrKeyCurrentUser

  • trunk/UCore.pas

    r110 r111  
    185185  if (ParamCount > 0) then begin
    186186    FileName := UTF8Encode(ParamStr(1));
    187     if FileExistsUTF8(FileName) then begin
     187    if FileExists(FileName) then begin
    188188      Game.LoadFromFile(FileName);
    189189      Player := Game.Players.GetFirstHuman;

  • trunk/xtactics.lpi

    r107 r111  
    188188        <StackChecks Value="True"/>
    189189      </Checks>
     190      <VerifyObjMethodCallValidity Value="True"/>
    190191    </CodeGeneration>
    191192    <Linking>
Note: See TracChangeset for help on using the changeset viewer.