Changeset 145
- Timestamp:
- Nov 12, 2017, 1:47:20 PM (7 years ago)
- Location:
- trunk
- Files:
-
- 14 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Forms/UFormCharts.lfm
r128 r145 9 9 OnClose = FormClose 10 10 OnShow = FormShow 11 LCLVersion = '1. 6.4.0'11 LCLVersion = '1.8.0.4' 12 12 object Chart1: TChart 13 13 Left = 8 … … 35 35 object ComboBox1: TComboBox 36 36 Left = 24 37 Height = 3 437 Height = 36 38 38 Top = 8 39 39 Width = 392 -
trunk/Forms/UFormCharts.pas
r130 r145 7 7 uses 8 8 Classes, SysUtils, FileUtil, TAGraph, TASeries, Forms, Controls, Graphics, 9 Dialogs, StdCtrls , LMessages;9 Dialogs, StdCtrls; 10 10 11 11 type -
trunk/Forms/UFormMain.lfm
r132 r145 5 5 Width = 775 6 6 Caption = 'xTactics' 7 ClientHeight = 5 967 ClientHeight = 587 8 8 ClientWidth = 775 9 9 Menu = MainMenu1 … … 13 13 OnKeyUp = FormKeyUp 14 14 OnShow = FormShow 15 LCLVersion = '1. 6.2.0'15 LCLVersion = '1.8.0.4' 16 16 WindowState = wsMaximized 17 17 object StatusBar1: TStatusBar 18 18 Left = 0 19 Height = 2820 Top = 5 6819 Height = 30 20 Top = 557 21 21 Width = 775 22 22 Panels = < … … 34 34 object ToolBar1: TToolBar 35 35 Left = 0 36 Height = 5 6836 Height = 557 37 37 Top = 0 38 38 Width = 80 … … 72 72 object ToolButton6: TToolButton 73 73 Left = 1 74 Top = 1 9474 Top = 170 75 75 Action = AZoomIn 76 76 end 77 77 object ToolButton7: TToolButton 78 78 Left = 1 79 Top = 2 2679 Top = 202 80 80 Action = AZoomOut 81 81 end 82 82 object ToolButton8: TToolButton 83 83 Left = 1 84 Top = 2 5884 Top = 234 85 85 Action = AZoomAll 86 86 end 87 87 object ToolButton9: TToolButton 88 88 Left = 1 89 Height = 3290 89 Top = 162 91 90 Width = 32 … … 94 93 object ToolButton10: TToolButton 95 94 Left = 1 96 Height = 32 97 Top = 290 95 Top = 266 98 96 Width = 32 99 97 Style = tbsSeparator … … 101 99 object ToolButton11: TToolButton 102 100 Left = 1 103 Top = 322101 Top = 274 104 102 Action = Core.AGameLoad 105 103 end 106 104 object ToolButton12: TToolButton 107 105 Left = 1 108 Top = 3 54106 Top = 306 109 107 Action = Core.AGameSave 110 108 end 111 109 object ToolButton13: TToolButton 112 110 Left = 1 113 Top = 3 86111 Top = 338 114 112 Action = Core.AExit 115 113 end … … 117 115 object PaintBox1: TPaintBox 118 116 Left = 80 119 Height = 5 68117 Height = 557 120 118 Top = 0 121 119 Width = 695 -
trunk/Forms/UFormMain.pas
r133 r145 7 7 uses 8 8 Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls, 9 UGame, LCLType, Menus, ActnList, ComCtrls, types, dateutils, XMLConf ;9 UGame, LCLType, Menus, ActnList, ComCtrls, types, dateutils, XMLConf, DOM; 10 10 11 11 const … … 193 193 begin 194 194 with Config do begin 195 AToolBarBigIcons.Checked := GetValue( Path + '/LargeIcons', False);196 AToolBarVisible.Checked := GetValue( Path + '/ToolBarVisible', True);197 AStatusBarVisible.Checked := GetValue( Path + '/StatusBarVisible', False);195 AToolBarBigIcons.Checked := GetValue(DOMString(Path + '/LargeIcons'), False); 196 AToolBarVisible.Checked := GetValue(DOMString(Path + '/ToolBarVisible'), True); 197 AStatusBarVisible.Checked := GetValue(DOMString(Path + '/StatusBarVisible'), False); 198 198 end; 199 199 end; … … 202 202 begin 203 203 with Config do begin 204 SetValue( Path + '/LargeIcons', AToolBarBigIcons.Checked);205 SetValue( Path + '/ToolBarVisible', AToolBarVisible.Checked);206 SetValue( Path + '/StatusBarVisible', AStatusBarVisible.Checked);204 SetValue(DOMString(Path + '/LargeIcons'), AToolBarBigIcons.Checked); 205 SetValue(DOMString(Path + '/ToolBarVisible'), AToolBarVisible.Checked); 206 SetValue(DOMString(Path + '/StatusBarVisible'), AStatusBarVisible.Checked); 207 207 end; 208 208 end; … … 289 289 290 290 procedure TFormMain.AZoomOutExecute(Sender: TObject); 291 var292 D: TPoint;291 //var 292 // D: TPoint; 293 293 begin 294 294 with Core.CurrentClient do begin -
trunk/Forms/UFormSettings.lfm
r107 r145 13 13 OnShow = FormShow 14 14 Position = poMainFormCenter 15 LCLVersion = '1. 4.4.0'15 LCLVersion = '1.8.0.4' 16 16 object ButtonOk: TButton 17 17 Left = 444 … … 47 47 object TabSheetGeneral: TTabSheet 48 48 Caption = 'General' 49 ClientHeight = 22 650 ClientWidth = 5 3849 ClientHeight = 220 50 ClientWidth = 540 51 51 object Label2: TLabel 52 52 Left = 27 53 Height = 2 553 Height = 26 54 54 Top = 78 55 Width = 1 3955 Width = 150 56 56 Caption = 'Animation speed:' 57 57 ParentColor = False … … 59 59 object SpinEditAnimSpeed: TSpinEdit 60 60 Left = 232 61 Height = 3 361 Height = 36 62 62 Top = 72 63 63 Width = 122 … … 66 66 object Label3: TLabel 67 67 Left = 368 68 Height = 2 568 Height = 26 69 69 Top = 82 70 70 Width = 15 … … 72 72 ParentColor = False 73 73 end 74 object CheckBox 1: TCheckBox74 object CheckBoxAutoSaveTurn: TCheckBox 75 75 Left = 8 76 76 Height = 27 77 77 Top = 112 78 Width = 58 478 Width = 586 79 79 Anchors = [akTop, akLeft, akRight] 80 80 AutoSize = False … … 84 84 object Label1: TLabel 85 85 Left = 20 86 Height = 2 586 Height = 26 87 87 Top = 26 88 Width = 8 188 Width = 88 89 89 Caption = 'Language:' 90 90 ParentColor = False … … 92 92 object ComboBoxLanguage: TComboBox 93 93 Left = 178 94 Height = 3394 Height = 40 95 95 Top = 24 96 96 Width = 196 97 ItemHeight = 2597 ItemHeight = 0 98 98 Style = csDropDownList 99 99 TabOrder = 2 … … 102 102 object TabSheetDebug: TTabSheet 103 103 Caption = 'Debug' 104 ClientHeight = 22 6105 ClientWidth = 5 38104 ClientHeight = 220 105 ClientWidth = 540 106 106 object CheckBoxDevelMode: TCheckBox 107 107 Left = 16 -
trunk/Forms/UFormSettings.pas
r104 r145 16 16 ButtonOk: TButton; 17 17 ButtonCancel: TButton; 18 CheckBox 1: TCheckBox;18 CheckBoxAutoSaveTurn: TCheckBox; 19 19 CheckBox2: TCheckBox; 20 20 CheckBoxDevelMode: TCheckBox; … … 62 62 begin 63 63 PageControl1.TabIndex := 0; 64 Core.CoolTranslator1.TranslateComponentRecursive(Self); 64 65 end; 65 66 … … 83 84 SpinEditX.Value := Core.ScaleDPI1.DPI.X; 84 85 SpinEditY.Value := Core.ScaleDPI1.DPI.Y; 86 CheckBoxAutoSaveTurn.Checked := Core.AutoSaveEnabled; 85 87 end; 86 88 … … 93 95 Core.ScaleDPI1.AutoDetect := CheckBox2.Checked; 94 96 Core.ScaleDPI1.DPI := Point(SpinEditX.Value, SpinEditY.Value); 97 Core.AutoSaveEnabled := CheckBoxAutoSaveTurn.Checked; 95 98 end; 96 99 -
trunk/Languages/xtactics.cs.po
r136 r145 172 172 msgstr "Nápověda" 173 173 174 #: tformmain.menuitem19.caption175 msgctxt "tformmain.menuitem19.caption"176 msgid "-"177 msgstr "-"178 179 #: tformmain.menuitem5.caption180 msgctxt "tformmain.menuitem5.caption"181 msgid "-"182 msgstr "-"183 184 174 #: tformmain.menuitem8.caption 185 175 #| msgid "Settings" … … 436 426 msgstr "Nastavení" 437 427 438 #: tformsettings.checkbox1.caption439 msgid "Autosave game on each turn"440 msgstr "Automaticky uložit hru po každém tahu"441 442 428 #: tformsettings.checkbox2.caption 443 429 msgid "Automatic DPI" 444 430 msgstr "Automatické DPI" 431 432 #: tformsettings.checkboxautosaveturn.caption 433 #, fuzzy 434 msgctxt "tformsettings.checkboxautosaveturn.caption" 435 msgid "Autosave game on each turn" 436 msgstr "Automaticky uložit hru po každém tahu" 445 437 446 438 #: tformsettings.checkboxdevelmode.caption … … 667 659 msgid "Zero zoom not allowed" 668 660 msgstr "Nulové přiblížení není povoleno" 661 -
trunk/Languages/xtactics.po
r136 r145 162 162 msgstr "" 163 163 164 #: tformmain.menuitem19.caption165 msgctxt "TFORMMAIN.MENUITEM19.CAPTION"166 msgid "-"167 msgstr ""168 169 #: tformmain.menuitem5.caption170 msgctxt "tformmain.menuitem5.caption"171 msgid "-"172 msgstr ""173 174 164 #: tformmain.menuitem8.caption 175 165 msgctxt "tformmain.menuitem8.caption" … … 421 411 msgstr "" 422 412 423 #: tformsettings.checkbox1.caption424 msgid "Autosave game on each turn"425 msgstr ""426 427 413 #: tformsettings.checkbox2.caption 428 414 msgid "Automatic DPI" 415 msgstr "" 416 417 #: tformsettings.checkboxautosaveturn.caption 418 msgctxt "tformsettings.checkboxautosaveturn.caption" 419 msgid "Autosave game on each turn" 429 420 msgstr "" 430 421 -
trunk/Packages/Common/UScaleDPI.pas
r116 r145 226 226 Temp[I] := TBitmap.Create; 227 227 Temp[I].SetSize(NewWidth, NewHeight); 228 {$ifdef linux} 229 Temp[I].PixelFormat := pf24bit; 230 {$else} 228 231 Temp[I].PixelFormat := pf32bit; 232 {$endif} 229 233 Temp[I].TransparentColor := TempBmp.TransparentColor; 230 234 //Temp[I].TransparentMode := TempBmp.TransparentMode; -
trunk/UCore.pas
r134 r145 357 357 procedure TCore.ASettingsExecute(Sender: TObject); 358 358 begin 359 FormSettings.Load; 360 if FormSettings.ShowModal = mrOk then begin 361 FormSettings.Save; 362 Game.SaveConfig(XMLConfig1, 'Game'); 359 FormSettings := TFormSettings.Create(nil); 360 try 361 FormSettings.Load; 362 if FormSettings.ShowModal = mrOk then begin 363 FormSettings.Save; 364 Game.SaveConfig(XMLConfig1, 'Game'); 365 end; 366 finally 367 FreeAndNil(FormSettings); 363 368 end; 364 369 end; -
trunk/UGame.pas
r142 r145 7 7 uses 8 8 Classes, SysUtils, ExtCtrls, Graphics, Contnrs, XMLConf, XMLRead, XMLWrite, 9 DOM, Math, LazFileUtils, UXMLUtils, Dialogs, Types, LCLType, LCLIntf ;9 DOM, Math, LazFileUtils, UXMLUtils, Dialogs, Types, LCLType, LCLIntf, fgl; 10 10 11 11 const … … 417 417 procedure BuildMapAreas; 418 418 procedure InitClients; 419 procedure SelectPlayerStartCell(Player: TPlayer); 419 420 public 420 421 Players: TPlayers; … … 1302 1303 1303 1304 procedure TMap.Assign(Source: TMap); 1304 var1305 I: Integer;1305 //var 1306 // I: Integer; 1306 1307 begin 1307 1308 MaxPower := Source.MaxPower; … … 1354 1355 var 1355 1356 NewNode: TDOMNode; 1356 NewNode2: TDOMNode;1357 I: Integer;1358 1357 begin 1359 1358 WriteInteger(Node, 'DefaultCellSizeX', DefaultCellSize.X); … … 1489 1488 var 1490 1489 X, Y: Integer; 1491 I: Integer;1492 1490 NewCell: TCell; 1493 1491 begin … … 1712 1710 Node2: TDOMNode; 1713 1711 Node3: TDOMNode; 1714 NewCell: TCell;1715 1712 begin 1716 1713 Id := ReadInteger(Node, 'Id', 0); … … 1979 1976 AttackPower: Integer; 1980 1977 TotalAttackPower: Integer; 1981 I , J: Integer;1978 I: Integer; 1982 1979 C: Integer; 1983 1980 CanAttack: Integer; 1984 1981 TargetCells: TCells; 1985 S: string;1986 1982 const 1987 1983 AttackDiff = 1; … … 2041 2037 AttackPower: Integer; 2042 2038 TotalAttackPower: Integer; 2043 I , J: Integer;2039 I: Integer; 2044 2040 C: Integer; 2045 2041 CanAttack: Integer; 2046 2042 TargetCells: TCells; 2047 S: string;2048 const2049 AttackDiff = 2;2050 2043 begin 2051 2044 if Game.CurrentPlayer.Defensive then Exit; … … 2371 2364 { TGame } 2372 2365 2373 function ComparePointer( Item1, Item2: Pointer): Integer;2374 begin 2375 Result := -CompareValue(I nteger(Item1), Integer(Item2));2366 function ComparePointer(const Item1, Item2: Integer): Integer; 2367 begin 2368 Result := -CompareValue(Item1, Item2); 2376 2369 end; 2377 2370 … … 2382 2375 S: string; 2383 2376 I: Integer; 2384 AttackRolls: T List;2385 DefendRolls: T List;2386 begin 2387 AttackRolls := T List.Create;2388 DefendRolls := T List.Create;2377 AttackRolls: TFPGList<Integer>; 2378 DefendRolls: TFPGList<Integer>; 2379 begin 2380 AttackRolls := TFPGList<Integer>.Create; 2381 DefendRolls := TFPGList<Integer>.Create; 2389 2382 if AttackPower < 1 then 2390 2383 raise Exception.Create('Attacker power have to be higher then 0.'); … … 2400 2393 AttackRolls.Count := AttackerDiceCount; 2401 2394 for I := 0 to AttackerDiceCount - 1 do begin 2402 AttackRolls[I] := Pointer(Random(7));2395 AttackRolls[I] := Random(7); 2403 2396 end; 2404 2397 AttackRolls.Sort(ComparePointer); … … 2408 2401 DefendRolls.Count := DefenderDiceCount; 2409 2402 for I := 0 to DefenderDiceCount - 1 do begin 2410 DefendRolls[I] := Pointer(Random(7));2403 DefendRolls[I] := Random(7); 2411 2404 end; 2412 2405 DefendRolls.Sort(ComparePointer); … … 2825 2818 end; 2826 2819 2820 procedure TGame.SelectPlayerStartCell(Player: TPlayer); 2821 var 2822 Counter: Integer; 2823 begin 2824 with Player do begin 2825 // Try to obtain start cell for each player 2826 StartCell := nil; 2827 Counter := 0; 2828 while not Assigned(StartCell) or Assigned(StartCell.Player) or 2829 (StartCell.Terrain = ttVoid) do begin 2830 StartCell := TCell(Map.Cells[Random(Map.Cells.Count)]); 2831 Inc(Counter); 2832 if Counter > 100 then 2833 raise Exception.Create(SCannotSetPlayerStartCells); 2834 end; 2835 end; 2836 end; 2837 2827 2838 procedure TGame.SaveConfig(Config: TXmlConfig; Path: string); 2828 2839 begin 2829 2840 with Config do begin 2830 SetValue( Path + '/GridType', Integer(MapType));2831 SetValue( Path + '/MapImage', MapImageFileName);2832 SetValue( Path + '/SymetricMap', SymetricMap);2833 SetValue( Path + '/FogOfWar', FogOfWar);2834 SetValue( Path + '/VoidEnabled', VoidEnabled);2835 SetValue( Path + '/VoidPercentage', VoidPercentage);2836 SetValue( Path + '/MapSizeX', Map.Size.X);2837 SetValue( Path + '/MapSizeY', Map.Size.Y);2838 SetValue( Path + '/MapShape', Integer(Map.Shape));2839 SetValue( Path + '/CityEnabled', CityEnabled);2840 SetValue( Path + '/CityPercentage', CityPercentage);2841 SetValue( Path + '/BridgeEnabled', BridgeEnabled);2842 SetValue( Path + '/GrowAmount', Integer(GrowAmount));2843 SetValue( Path + '/GrowCells', Integer(GrowCells));2844 SetValue( Path + '/WinObjective', Integer(WinObjective));2841 SetValue(DOMString(Path + '/GridType'), Integer(MapType)); 2842 SetValue(DOMString(Path + '/MapImage'), DOMString(MapImageFileName)); 2843 SetValue(DOMString(Path + '/SymetricMap'), SymetricMap); 2844 SetValue(DOMString(Path + '/FogOfWar'), FogOfWar); 2845 SetValue(DOMString(Path + '/VoidEnabled'), VoidEnabled); 2846 SetValue(DOMString(Path + '/VoidPercentage'), VoidPercentage); 2847 SetValue(DOMString(Path + '/MapSizeX'), Map.Size.X); 2848 SetValue(DOMString(Path + '/MapSizeY'), Map.Size.Y); 2849 SetValue(DOMString(Path + '/MapShape'), Integer(Map.Shape)); 2850 SetValue(DOMString(Path + '/CityEnabled'), CityEnabled); 2851 SetValue(DOMString(Path + '/CityPercentage'), CityPercentage); 2852 SetValue(DOMString(Path + '/BridgeEnabled'), BridgeEnabled); 2853 SetValue(DOMString(Path + '/GrowAmount'), Integer(GrowAmount)); 2854 SetValue(DOMString(Path + '/GrowCells'), Integer(GrowCells)); 2855 SetValue(DOMString(Path + '/WinObjective'), Integer(WinObjective)); 2845 2856 end; 2846 2857 end; … … 2851 2862 begin 2852 2863 with Config do begin 2853 MapType := TMapType(GetValue( Path + '/GridType', Integer(mtHexagon)));2854 MapImageFileName := GetValue(Path + '/MapImage', MapImageFileName);2855 SymetricMap := GetValue( Path + '/SymetricMap', False);2856 FogOfWar := GetValue( Path + '/FogOfWar', False);2857 VoidEnabled := GetValue( Path + '/VoidEnabled', True);2858 VoidPercentage := GetValue( Path + '/VoidPercentage', 20);2859 Map.Size := Point(GetValue( Path + '/MapSizeX', 10),2860 GetValue( Path + '/MapSizeY', 10));2861 Value := GetValue( Path + '/MapShape', 0);2864 MapType := TMapType(GetValue(DOMString(Path + '/GridType'), Integer(mtHexagon))); 2865 MapImageFileName := string(GetValue(DOMString(Path + '/MapImage'), DOMString(MapImageFileName))); 2866 SymetricMap := GetValue(DOMString(Path + '/SymetricMap'), False); 2867 FogOfWar := GetValue(DOMString(Path + '/FogOfWar'), False); 2868 VoidEnabled := GetValue(DOMString(Path + '/VoidEnabled'), True); 2869 VoidPercentage := GetValue(DOMString(Path + '/VoidPercentage'), 20); 2870 Map.Size := Point(GetValue(DOMString(Path + '/MapSizeX'), 10), 2871 GetValue(DOMString(Path + '/MapSizeY'), 10)); 2872 Value := GetValue(DOMString(Path + '/MapShape'), 0); 2862 2873 if (Value >= Integer(Low(TMapShape))) and (Value <= Integer(High(TMapShape))) then 2863 2874 Map.Shape := TMapShape(Value) else Map.Shape := Low(TMapShape); 2864 CityEnabled := GetValue( Path + '/CityEnabled', False);2865 CityPercentage := GetValue( Path + '/CityPercentage', 10);2866 BridgeEnabled := GetValue( Path + '/BridgeEnabled', True);2867 Value := GetValue( Path + '/GrowAmount', Integer(gaBySquareRoot));2875 CityEnabled := GetValue(DOMString(Path + '/CityEnabled'), False); 2876 CityPercentage := GetValue(DOMString(Path + '/CityPercentage'), 10); 2877 BridgeEnabled := GetValue(DOMString(Path + '/BridgeEnabled'), True); 2878 Value := GetValue(DOMString(Path + '/GrowAmount'), Integer(gaBySquareRoot)); 2868 2879 if (Value >= Integer(Low(TGrowAmount))) and (Value <= Integer(High(TGrowAmount))) then 2869 2880 GrowAmount := TGrowAmount(Value) else GrowAmount := Low(TGrowAmount); 2870 Value := GetValue( Path + '/GrowCells', Integer(gcPlayerAll));2881 Value := GetValue(DOMString(Path + '/GrowCells'), Integer(gcPlayerAll)); 2871 2882 if (Value >= Integer(Low(TGrowCells))) and (Value <= Integer(High(TGrowCells))) then 2872 2883 GrowCells := TGrowCells(Value) else GrowCells := Low(TGrowCells); 2873 Value := GetValue( Path + '/WinObjective', Integer(woDefeatAllOponents));2884 Value := GetValue(DOMString(Path + '/WinObjective'), Integer(woDefeatAllOponents)); 2874 2885 if (Value >= Integer(Low(TWinObjective))) and (Value <= Integer(High(TWinObjective))) then 2875 2886 WinObjective := TWinObjective(Value) else WinObjective := Low(TWinObjective); … … 2885 2896 begin 2886 2897 Self.FileName := FileName; 2887 ReadXMLFile(Doc, UTF8Decode(FileName));2898 ReadXMLFile(Doc, FileName); 2888 2899 with Doc do try 2889 2900 if Doc.DocumentElement.NodeName <> 'XtacticsGame' then … … 2974 2985 end; 2975 2986 ForceDirectoriesUTF8(ExtractFileDir(FileName)); 2976 WriteXMLFile(Doc, UTF8Decode(FileName));2987 WriteXMLFile(Doc, FileName); 2977 2988 finally 2978 2989 Doc.Free; … … 3136 3147 var 3137 3148 I: Integer; 3138 Counter: Integer;3139 3149 C: Integer; 3140 3150 LastAreaCount: Integer; … … 3172 3182 PlayerMap.Update; 3173 3183 if (Map.Size.X > 0) and (Map.Size.Y > 0) then begin 3174 // Try to obtain start cell for each player 3175 StartCell := nil; 3176 Counter := 0; 3177 while not Assigned(StartCell) or Assigned(StartCell.Player) or 3178 (StartCell.Terrain = ttVoid) do begin 3179 StartCell := TCell(Map.Cells[Random(Map.Cells.Count)]); 3180 Inc(Counter); 3181 if Counter > 100 then 3182 raise Exception.Create(SCannotSetPlayerStartCells); 3183 end; 3184 SelectPlayerStartCell(TPlayer(Players[I])); 3184 3185 if SymetricMap and (I = 1) then 3185 3186 StartCell := TCell(Map.Cells[Map.Cells.Count - 1 - Map.Cells.IndexOf(TPlayer(Players[0]).StartCell)]); -
trunk/UMap.pas
r101 r145 6 6 7 7 uses 8 Classes, SysUtils, UGame, XML Conf, XMLRead, XMLWrite, DOM;8 Classes, SysUtils, UGame, XMLRead, XMLWrite, DOM; 9 9 10 10 type … … 143 143 var 144 144 X, Y: Integer; 145 I: Integer;146 145 NewCell: TCell; 147 146 PX, PY: Double; … … 237 236 Reverse: Boolean): TPointArray; 238 237 begin 239 238 SetLength(Result, 0); 240 239 end; 241 240 … … 243 242 var 244 243 X, Y: Integer; 245 I, J, PI: Integer;246 V, VN: Integer;247 244 NewCell: TCell; 248 Pos: TPoint;249 245 begin 250 246 // Free previous -
trunk/xtactics.lpi
r134 r145 18 18 <OutDir Value="Languages"/> 19 19 </i18n> 20 <VersionInfo>21 <StringTable ProductVersion=""/>22 </VersionInfo>23 20 <BuildModes Count="4"> 24 21 <Item1 Name="Debug" Default="True"/> -
trunk/xtactics.lpr
r128 r145 11 11 TemplateGenerics, UFormPlayer 12 12 { you can add units after this }, 13 SysUtils, UFormSettings, UFormMain, UFormMove, UFormNew, UFormAbout, 14 UFormHelp, UMap, UFormCharts; 13 SysUtils, UFormMain, UFormMove, UFormNew, UFormCharts; 15 14 16 15 {$R *.res} … … 36 35 Application.CreateForm(TFormMove, FormMove); 37 36 Application.CreateForm(TFormPlayer, FormPlayer); 38 Application.CreateForm(TFormSettings, FormSettings);39 37 Application.CreateForm(TFormCharts, FormCharts); 40 38 Application.Run;
Note:
See TracChangeset
for help on using the changeset viewer.