Changeset 301
- Timestamp:
- Jul 10, 2019, 11:35:10 PM (5 years ago)
- Location:
- trunk
- Files:
-
- 6 deleted
- 12 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Forms/UFormAbout.lfm
r295 r301 1 1 object FormAbout: TFormAbout 2 Left = 10143 Height = 4 484 Top = 4425 Width = 7 052 Left = 868 3 Height = 402 4 Top = 565 5 Width = 720 6 6 Caption = 'About' 7 ClientHeight = 4 488 ClientWidth = 7 059 DesignTimePPI = 1 207 ClientHeight = 402 8 ClientWidth = 720 9 DesignTimePPI = 144 10 10 OnCreate = FormCreate 11 11 OnShow = FormShow 12 12 Position = poScreenCenter 13 LCLVersion = '2.0. 0.4'13 LCLVersion = '2.0.2.0' 14 14 object LabelDescription: TLabel 15 Left = 2516 Height = 4017 Top = 13 718 Width = 6 5515 Left = 30 16 Height = 24 17 Top = 134 18 Width = 660 19 19 Align = alTop 20 BorderSpacing.Around = 25 21 Caption = 'Turn-based strategy game inspired by classic Risk board game. The game is highly configurable to allow to adjust battle field and game rules.' 20 BorderSpacing.Left = 30 21 BorderSpacing.Right = 30 22 BorderSpacing.Bottom = 30 23 Constraints.MinHeight = 24 22 24 ParentColor = False 23 25 ParentFont = False … … 25 27 end 26 28 object ButtonClose: TButton 27 Left = 5 6428 Height = 3 129 Top = 3 9830 Width = 1 1629 Left = 551 30 Height = 37 31 Top = 342 32 Width = 139 31 33 Anchors = [akRight, akBottom] 32 34 Caption = 'Close' … … 36 38 end 37 39 object LabelContent: TLabel 38 Left = 2539 Height = 2 040 Top = 20241 Width = 6 5540 Left = 30 41 Height = 26 42 Top = 188 43 Width = 660 42 44 Align = alTop 43 BorderSpacing.Around = 2545 BorderSpacing.Around = 30 44 46 Caption = ' ' 45 47 ParentColor = False … … 47 49 end 48 50 object ButtonHomePage: TButton 49 Left = 2 050 Height = 3 151 Top = 3 9852 Width = 2 2051 Left = 24 52 Height = 37 53 Top = 342 54 Width = 264 53 55 Anchors = [akLeft, akBottom] 54 56 Caption = 'Home page' … … 59 61 object Panel1: TPanel 60 62 Left = 0 61 Height = 1 1263 Height = 134 62 64 Top = 0 63 Width = 7 0565 Width = 720 64 66 Align = alTop 65 67 BevelOuter = bvNone 66 ClientHeight = 1 1267 ClientWidth = 7 0568 ClientHeight = 134 69 ClientWidth = 720 68 70 FullRepaint = False 69 71 ParentFont = False 70 72 TabOrder = 2 71 73 object LabelAppName: TLabel 72 Left = 96 73 Height = 67 74 Top = 20 75 Width = 170 76 Align = alCustom 77 BorderSpacing.Around = 25 78 Caption = 'xTactics' 79 Font.Height = -50 74 Left = 130 75 Height = 100 76 Top = 30 77 Width = 560 78 Align = alTop 79 BorderSpacing.Left = 100 80 BorderSpacing.Around = 30 81 Constraints.MinHeight = 100 82 Font.Height = -60 80 83 ParentColor = False 81 84 ParentFont = False … … 83 86 end 84 87 object Image1: TImage 85 Left = 2 086 Height = 8287 Top = 2588 Width = 8288 Left = 24 89 Height = 98 90 Top = 30 91 Width = 98 89 92 Picture.Data = { 90 93 1754506F727461626C654E6574776F726B47726170686963CF01000089504E47 -
trunk/Forms/UFormAbout.lrj
r295 r301 1 1 {"version":1,"strings":[ 2 2 {"hash":4691652,"name":"tformabout.caption","sourcebytes":[65,98,111,117,116],"value":"About"}, 3 {"hash":120622558,"name":"tformabout.labeldescription.caption","sourcebytes":[84,117,114,110,45,98,97,115,101,100,32,115,116,114,97,116,101,103,121,32,103,97,109,101,32,105,110,115,112,105,114,101,100,32,98,121,32,99,108,97,115,115,105,99,32,82,105,115,107,32,98,111,97,114,100,32,103,97,109,101,46,32,84,104,101,32,103,97,109,101,32,105,115,32,104,105,103,104,108,121,32,99,111,110,102,105,103,117,114,97,98,108,101,32,116,111,32,97,108,108,111,119,32,116,111,32,97,100,106,117,115,116,32,98,97,116,116,108,101,32,102,105,101,108,100,32,97,110,100,32,103,97,109,101,32,114,117,108,101,115,46],"value":"Turn-based strategy game inspired by classic Risk board game. The game is highly configurable to allow to adjust battle field and game rules."},4 3 {"hash":4863637,"name":"tformabout.buttonclose.caption","sourcebytes":[67,108,111,115,101],"value":"Close"}, 5 4 {"hash":8736,"name":"tformabout.labelcontent.caption","sourcebytes":[32,32,32],"value":" "}, 6 {"hash":58140853,"name":"tformabout.buttonhomepage.caption","sourcebytes":[72,111,109,101,32,112,97,103,101],"value":"Home page"}, 7 {"hash":175810675,"name":"tformabout.labelappname.caption","sourcebytes":[120,84,97,99,116,105,99,115],"value":"xTactics"} 5 {"hash":58140853,"name":"tformabout.buttonhomepage.caption","sourcebytes":[72,111,109,101,32,112,97,103,101],"value":"Home page"} 8 6 ]} -
trunk/Forms/UFormAbout.pas
r243 r301 24 24 procedure FormCreate(Sender: TObject); 25 25 procedure FormShow(Sender: TObject); 26 private27 { private declarations }28 26 public 29 { public declarations }27 ApplicationInfo: TApplicationInfo; 30 28 end; 31 29 … … 50 48 begin 51 49 Core.ThemeManager1.UseTheme(Self); 52 with Core dobegin50 if Assigned(ApplicationInfo) then begin 53 51 LabelAppName.Caption := ApplicationInfo.AppName; 54 52 LabelContent.Caption := SVersion + ': ' + ApplicationInfo.Version + LineEnding + 55 53 SReleaseDate + ': ' + DateToStr(ApplicationInfo.ReleaseDate) + LineEnding + 56 54 SLicense + ': ' + ApplicationInfo.License; 55 LabelDescription.Caption := ApplicationInfo.Description; 57 56 end; 58 57 end; … … 60 59 procedure TFormAbout.ButtonHomePageClick(Sender: TObject); 61 60 begin 62 OpenWebPage(Core.ApplicationInfo.HomePage); 61 if Assigned(ApplicationInfo) then 62 OpenWebPage(ApplicationInfo.HomePage); 63 63 end; 64 64 -
trunk/Forms/UFormList.lfm
r300 r301 35 35 OnDblClick = AModifyExecute 36 36 OnKeyPress = ListView1KeyPress 37 OnKeyUp = ListView1KeyUp 37 38 OnSelectItem = ListView1SelectItem 38 39 end … … 43 44 Width = 480 44 45 Align = alBottom 46 Images = Core.ImageListSmall 45 47 ParentFont = False 46 48 TabOrder = 1 … … 67 69 end 68 70 object ActionList1: TActionList 71 Images = Core.ImageListSmall 69 72 left = 208 70 73 top = 163 … … 96 99 end 97 100 object PopupMenu1: TPopupMenu 101 Images = Core.ImageListSmall 98 102 left = 352 99 103 top = 160 -
trunk/Forms/UFormList.pas
r300 r301 44 44 procedure ListView1Data(Sender: TObject; Item: TListItem); 45 45 procedure ListView1KeyPress(Sender: TObject; var Key: char); 46 procedure ListView1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState 47 ); 46 48 procedure ListView1SelectItem(Sender: TObject; Item: TListItem; 47 49 Selected: Boolean); … … 129 131 FormItem := TFormItem.Create(Self); 130 132 try 131 TempEntry.Name := SNew + ' ' + LowerCase(List.GetItemClass.GetClassName);133 TempEntry.Name := List.GetNextAvailableName(SNew + ' ' + LowerCase(List.GetItemClass.GetClassName)); 132 134 FormItem.Item := TempEntry; 133 135 if FormItem.ShowModal = mrOk then begin … … 250 252 end; 251 253 254 procedure TFormList.ListView1KeyUp(Sender: TObject; var Key: Word; 255 Shift: TShiftState); 256 begin 257 if Key = 45 then AAdd.Execute; 258 if Key = 46 then ARemove.Execute; 259 end; 260 252 261 procedure TFormList.ListView1SelectItem(Sender: TObject; 253 262 Item: TListItem; Selected: Boolean); -
trunk/Languages/xtactics.cs.po
r300 r301 126 126 msgstr "O aplikaci" 127 127 128 #: tformabout.labelappname.caption129 msgctxt "tformabout.labelappname.caption"130 msgid "xTactics"131 msgstr "xTactics"132 133 128 #: tformabout.labelcontent.caption 134 129 msgctxt "tformabout.labelcontent.caption" 135 130 msgid " " 136 131 msgstr " " 137 138 #: tformabout.labeldescription.caption139 msgid "Turn-based strategy game inspired by classic Risk board game. The game is highly configurable to allow to adjust battle field and game rules."140 msgstr "Tahová strategická hra inspirovaná klasickou deskovou hrou Risk. Hra je vysoce nastavitelná pro umožňění upravit bojiště a herní pravidla."141 132 142 133 #: tformcharts.caption … … 691 682 msgid "Rules" 692 683 msgstr "Pravidla" 693 694 #: tformplayer.buttoncancel.caption695 msgctxt "tformplayer.buttoncancel.caption"696 msgid "Cancel"697 msgstr "Zrušit"698 699 #: tformplayer.buttonok.caption700 msgctxt "tformplayer.buttonok.caption"701 msgid "Ok"702 msgstr "Ok"703 704 #: tformplayer.caption705 msgctxt "tformplayer.caption"706 msgid "Player"707 msgstr "Hráč"708 709 #: tformplayer.checkboxdefensive.caption710 msgctxt "tformplayer.checkboxdefensive.caption"711 msgid "Defensive"712 msgstr "Obranný"713 714 #: tformplayer.comboboxmode.text715 msgctxt "tformplayer.comboboxmode.text"716 msgid "Human"717 msgstr "Člověk"718 719 #: tformplayer.label1.caption720 msgctxt "tformplayer.label1.caption"721 msgid "Name:"722 msgstr "Jméno:"723 724 #: tformplayer.label2.caption725 msgid "Mode:"726 msgstr "Režim:"727 728 #: tformplayer.label3.caption729 msgctxt "tformplayer.label3.caption"730 msgid "Color:"731 msgstr "Barva:"732 733 #: tformplayer.label4.caption734 msgid "Agressivity:"735 msgstr "Agresivita:"736 737 #: tformplayer.label5.caption738 msgid "Start units:"739 msgstr "Počátečních jednotek:"740 741 #: tformplayer.label6.caption742 msgid "Nation:"743 msgstr "Národ:"744 745 #: tformplayers.aadd.caption746 msgctxt "tformplayers.aadd.caption"747 msgid "Add"748 msgstr "Přidat"749 750 #: tformplayers.aclone.caption751 msgctxt "tformplayers.aclone.caption"752 msgid "Clone"753 msgstr "Klonovat"754 755 #: tformplayers.amodify.caption756 msgctxt "tformplayers.amodify.caption"757 msgid "Modify"758 msgstr "Upravit"759 760 #: tformplayers.aremove.caption761 msgctxt "tformplayers.aremove.caption"762 msgid "Remove"763 msgstr "Odstranit"764 765 #: tformplayers.aselectall.caption766 msgctxt "tformplayers.aselectall.caption"767 msgid "Select all"768 msgstr "Vybrat vše"769 770 #: tformplayers.caption771 msgctxt "tformplayers.caption"772 msgid "Players"773 msgstr "Hráči"774 775 #: tformplayers.listview1.columns[0].caption776 msgctxt "tformplayers.listview1.columns[0].caption"777 msgid "Name"778 msgstr "Jméno"779 780 #: tformplayers.listview1.columns[1].caption781 msgctxt "tformplayers.listview1.columns[1].caption"782 msgid "Type"783 msgstr "Typ"784 785 #: tformplayers.listview1.columns[2].caption786 msgctxt "tformplayers.listview1.columns[2].caption"787 msgid "Color"788 msgstr "Barva"789 790 #: tformplayers.listview1.columns[3].caption791 msgctxt "tformplayers.listview1.columns[3].caption"792 msgid "Nation"793 msgstr "Národ"794 795 #: tformplayers.listview1.columns[4].caption796 msgctxt "tformplayers.listview1.columns[4].caption"797 msgid "Start units"798 msgstr "Počátečních jednotek"799 684 800 685 #: tformplayersstats.aspectate.caption … … 1222 1107 msgstr "Zůstat naživu určený počet tahů" 1223 1108 1224 #: uformplayer.sagrohigh1225 msgctxt "uformplayer.sagrohigh"1226 msgid "High"1227 msgstr "Vysoká"1228 1229 #: uformplayer.sagrolow1230 msgctxt "uformplayer.sagrolow"1231 msgid "Low"1232 msgstr "Nízká"1233 1234 #: uformplayer.sagromedium1235 msgctxt "uformplayer.sagromedium"1236 msgid "Medium"1237 msgstr "Střední"1238 1239 #: uformplayer.scomputer1240 msgctxt "uformplayer.scomputer"1241 msgid "Computer"1242 msgstr "Počítač"1243 1244 #: uformplayer.shuman1245 msgctxt "uformplayer.shuman"1246 msgid "Human"1247 msgstr "Člověk"1248 1249 #: uformplayers.sremoveitems1250 msgctxt "uformplayers.sremoveitems"1251 msgid "Remove items"1252 msgstr "Odstranit položky"1253 1254 #: uformplayers.sremoveitemsquery1255 msgctxt "uformplayers.sremoveitemsquery"1256 msgid "Do you want to remove selected items?"1257 msgstr "Opravdu chcete odstranit vybrané položky?"1258 1259 1109 #: ugame.scomputer 1260 1110 msgctxt "ugame.scomputer" … … 1471 1321 msgid "View range" 1472 1322 msgstr "Dohled" 1323 -
trunk/Languages/xtactics.po
r300 r301 116 116 msgstr "" 117 117 118 #: tformabout.labelappname.caption119 msgctxt "tformabout.labelappname.caption"120 msgid "xTactics"121 msgstr ""122 123 118 #: tformabout.labelcontent.caption 124 119 msgctxt "tformabout.labelcontent.caption" … … 126 121 msgstr "" 127 122 128 #: tformabout.labeldescription.caption129 msgid "Turn-based strategy game inspired by classic Risk board game. The game is highly configurable to allow to adjust battle field and game rules."130 msgstr ""131 132 123 #: tformcharts.caption 133 124 msgctxt "tformcharts.caption" … … 677 668 msgctxt "tformnew.tabsheetrules.caption" 678 669 msgid "Rules" 679 msgstr ""680 681 #: tformplayer.buttoncancel.caption682 msgctxt "TFORMPLAYER.BUTTONCANCEL.CAPTION"683 msgid "Cancel"684 msgstr ""685 686 #: tformplayer.buttonok.caption687 msgctxt "TFORMPLAYER.BUTTONOK.CAPTION"688 msgid "Ok"689 msgstr ""690 691 #: tformplayer.caption692 msgctxt "tformplayer.caption"693 msgid "Player"694 msgstr ""695 696 #: tformplayer.checkboxdefensive.caption697 msgctxt "tformplayer.checkboxdefensive.caption"698 msgid "Defensive"699 msgstr ""700 701 #: tformplayer.comboboxmode.text702 msgctxt "TFORMPLAYER.COMBOBOXMODE.TEXT"703 msgid "Human"704 msgstr ""705 706 #: tformplayer.label1.caption707 msgctxt "tformplayer.label1.caption"708 msgid "Name:"709 msgstr ""710 711 #: tformplayer.label2.caption712 msgid "Mode:"713 msgstr ""714 715 #: tformplayer.label3.caption716 msgctxt "tformplayer.label3.caption"717 msgid "Color:"718 msgstr ""719 720 #: tformplayer.label4.caption721 msgid "Agressivity:"722 msgstr ""723 724 #: tformplayer.label5.caption725 msgid "Start units:"726 msgstr ""727 728 #: tformplayer.label6.caption729 msgid "Nation:"730 msgstr ""731 732 #: tformplayers.aadd.caption733 msgctxt "tformplayers.aadd.caption"734 msgid "Add"735 msgstr ""736 737 #: tformplayers.aclone.caption738 msgctxt "tformplayers.aclone.caption"739 msgid "Clone"740 msgstr ""741 742 #: tformplayers.amodify.caption743 msgctxt "tformplayers.amodify.caption"744 msgid "Modify"745 msgstr ""746 747 #: tformplayers.aremove.caption748 msgctxt "tformplayers.aremove.caption"749 msgid "Remove"750 msgstr ""751 752 #: tformplayers.aselectall.caption753 msgctxt "tformplayers.aselectall.caption"754 msgid "Select all"755 msgstr ""756 757 #: tformplayers.caption758 msgctxt "tformplayers.caption"759 msgid "Players"760 msgstr ""761 762 #: tformplayers.listview1.columns[0].caption763 msgctxt "tformplayers.listview1.columns[0].caption"764 msgid "Name"765 msgstr ""766 767 #: tformplayers.listview1.columns[1].caption768 msgid "Type"769 msgstr ""770 771 #: tformplayers.listview1.columns[2].caption772 msgctxt "tformplayers.listview1.columns[2].caption"773 msgid "Color"774 msgstr ""775 776 #: tformplayers.listview1.columns[3].caption777 msgctxt "tformplayers.listview1.columns[3].caption"778 msgid "Nation"779 msgstr ""780 781 #: tformplayers.listview1.columns[4].caption782 msgctxt "tformplayers.listview1.columns[4].caption"783 msgid "Start units"784 670 msgstr "" 785 671 … … 1200 1086 msgstr "" 1201 1087 1202 #: uformplayer.sagrohigh1203 msgctxt "uformplayer.sagrohigh"1204 msgid "High"1205 msgstr ""1206 1207 #: uformplayer.sagrolow1208 msgctxt "uformplayer.sagrolow"1209 msgid "Low"1210 msgstr ""1211 1212 #: uformplayer.sagromedium1213 msgctxt "uformplayer.sagromedium"1214 msgid "Medium"1215 msgstr ""1216 1217 #: uformplayer.scomputer1218 msgctxt "uformplayer.scomputer"1219 msgid "Computer"1220 msgstr ""1221 1222 #: uformplayer.shuman1223 msgctxt "uformplayer.shuman"1224 msgid "Human"1225 msgstr ""1226 1227 #: uformplayers.sremoveitems1228 msgctxt "uformplayers.sremoveitems"1229 msgid "Remove items"1230 msgstr ""1231 1232 #: uformplayers.sremoveitemsquery1233 msgctxt "uformplayers.sremoveitemsquery"1234 msgid "Do you want to remove selected items?"1235 msgstr ""1236 1237 1088 #: ugame.scomputer 1238 1089 msgctxt "ugame.scomputer" -
trunk/Systems/HexWars.xts
r297 r301 1 1 <?xml version="1.0" encoding="utf-8"?> 2 2 <XtacticsGameSystem> 3 <UnitsSplitMerge> 0</UnitsSplitMerge>3 <UnitsSplitMerge>-1</UnitsSplitMerge> 4 4 <EmptyCellsNeutral>0</EmptyCellsNeutral> 5 5 <UnitsMoveImmediately>0</UnitsMoveImmediately> -
trunk/UCore.lfm
r295 r301 3 3 OnDestroy = DataModuleDestroy 4 4 OldCreateOrder = False 5 Height = 6766 HorizontalOffset = 3487 VerticalOffset = 3488 Width = 1 0489 PPI = 1 205 Height = 811 6 HorizontalOffset = 418 7 VerticalOffset = 418 8 Width = 1258 9 PPI = 144 10 10 object ActionListMain: TActionList 11 11 Images = ImageListSmall 12 left = 1 1413 top = 5012 left = 137 13 top = 60 14 14 object AExit: TAction 15 15 Caption = 'Exit' … … 114 114 end 115 115 object ImageListSmall: TImageList 116 left = 653117 top = 350116 left = 784 117 top = 420 118 118 Bitmap = { 119 119 4C691300000010000000100000000000000000000000E3AA4BD6E5B35EFFE3B1 … … 731 731 POFilesFolder = 'Languages' 732 732 OnTranslate = CoolTranslator1Translate 733 left = 1 14734 top = 363733 left = 137 734 top = 436 735 735 end 736 736 object ImageListLarge: TImageList 737 737 Height = 32 738 738 Width = 32 739 left = 655740 top = 2 38739 left = 786 740 top = 286 741 741 Bitmap = { 742 742 4C69100000002000000020000000000000000000000000000000E2AA4B36E2A9 … … 2795 2795 RootName = 'CONFIG' 2796 2796 ReadOnly = False 2797 left = 1 142798 top = 4632797 left = 137 2798 top = 556 2799 2799 end 2800 2800 object OpenDialog1: TOpenDialog 2801 2801 DefaultExt = '.xtmap' 2802 left = 9382803 top = 2 432802 left = 1126 2803 top = 292 2804 2804 end 2805 2805 object SaveDialog1: TSaveDialog 2806 2806 DefaultExt = '.xtmap' 2807 left = 9382808 top = 1 382807 left = 1126 2808 top = 166 2809 2809 end 2810 2810 object ApplicationInfo: TApplicationInfo … … 2818 2818 HomePage = 'https://app.zdechov.net/xtactics' 2819 2819 AuthorsName = 'Chronos' 2820 EmailContact = 'robie@centrum.cz' 2820 2821 AppName = 'xTactics' 2821 ReleaseDate = 43365 2822 Description = 'Turn-based strategy game inspired by classic Risk board game. The game is highly configurable to allow to adjust battle field and game rules.' 2823 ReleaseDate = 43656 2822 2824 RegistryKey = '\Software\xTactics' 2823 2825 RegistryRoot = rrKeyCurrentUser 2824 2826 License = 'CC0' 2825 left = 1 142826 top = 1 502827 left = 137 2828 top = 180 2827 2829 end 2828 2830 object PersistentForm: TPersistentForm 2829 2831 MinVisiblePart = 50 2830 2832 EntireVisible = False 2831 left = 6502832 top = 5002833 left = 780 2834 top = 600 2833 2835 end 2834 2836 object ScaleDPI1: TScaleDPI 2835 2837 AutoDetect = False 2836 left = 1 132837 top = 5632838 left = 136 2839 top = 676 2838 2840 end 2839 2841 object LastOpenedList1: TLastOpenedList 2840 2842 MaxCount = 10 2841 2843 OnChange = LastOpenedList1Change 2842 left = 1 142843 top = 2502844 left = 137 2845 top = 300 2844 2846 end 2845 2847 object ThemeManager1: TThemeManager 2846 left = 3372847 top = 2702848 left = 404 2849 top = 324 2848 2850 end 2849 2851 end -
trunk/UCore.pas
r299 r301 7 7 uses 8 8 Classes, SysUtils, XMLConf, FileUtil, ActnList, Controls, Dialogs, Forms, 9 UGame, UApplicationInfo, UPersistentForm, UScaleDPI, UCoolTranslator, 9 UGame, UApplicationInfo, UPersistentForm, UScaleDPI, UCoolTranslator, DOM, 10 10 URegistry, ULastOpenedList, UTheme, Registry, Menus, UFormClient, UPlayer, 11 11 UGameServer, UGameClient, fgl, UServerList, UGameSystem, Graphics; … … 326 326 FormAbout := TFormAbout.Create(Self); 327 327 try 328 FormAbout.ApplicationInfo := ApplicationInfo; 328 329 FormAbout.ShowModal; 329 330 finally … … 737 738 GameSettings.Players[1].Name := SPlayer + ' 2'; 738 739 740 // GameSystemName needs to be loaded before game systems config itself. 741 // Players reference Nations from game system. 742 GameSettings.GameSystemName := string(XMLConfig1.GetValue(DOMString('Game/GameSystemName'), DOMString('HexWars'))); 743 GameSettings.GameSystem := GameSystems.SearchByName(GameSettings.GameSystemName); 744 739 745 GameSettings.LoadConfig(XMLConfig1, 'Game'); 740 GameSettings.GameSystem := GameSystems.SearchByName(GameSettings.GameSystemName);741 746 if not Assigned(GameSettings.GameSystem) then 742 747 GameSettings.GameSystem := GameSystems.First; -
trunk/UGame.pas
r299 r301 570 570 MaxNeutralUnits := GetValue(DOMString(Path + '/MaxNeutralUnits'), 5); 571 571 MaxPower := GetValue(DOMString(Path + '/MaxPower'), 99); 572 GameSystemName := string(GetValue(DOMString(Path + '/GameSystemName'), DOMString('')));573 572 Players.LoadConfig(Config, Path + '/Players'); 574 573 end; -
trunk/xtactics.lpi
r300 r301 111 111 </Item7> 112 112 </RequiredPackages> 113 <Units Count="4 3">113 <Units Count="41"> 114 114 <Unit0> 115 115 <Filename Value="xtactics.lpr"/> … … 128 128 </Unit2> 129 129 <Unit3> 130 <Filename Value="Forms/UForm Player.pas"/>131 <IsPartOfProject Value="True"/> 132 <ComponentName Value="Form Player"/>130 <Filename Value="Forms/UFormSettings.pas"/> 131 <IsPartOfProject Value="True"/> 132 <ComponentName Value="FormSettings"/> 133 133 <HasResources Value="True"/> 134 134 <ResourceBaseClass Value="Form"/> 135 135 </Unit3> 136 136 <Unit4> 137 <Filename Value="Forms/UForm Settings.pas"/>138 <IsPartOfProject Value="True"/> 139 <ComponentName Value="Form Settings"/>137 <Filename Value="Forms/UFormMain.pas"/> 138 <IsPartOfProject Value="True"/> 139 <ComponentName Value="FormMain"/> 140 140 <HasResources Value="True"/> 141 141 <ResourceBaseClass Value="Form"/> 142 142 </Unit4> 143 143 <Unit5> 144 <Filename Value="Forms/UFormM ain.pas"/>145 <IsPartOfProject Value="True"/> 146 <ComponentName Value="FormM ain"/>144 <Filename Value="Forms/UFormMove.pas"/> 145 <IsPartOfProject Value="True"/> 146 <ComponentName Value="FormMove"/> 147 147 <HasResources Value="True"/> 148 148 <ResourceBaseClass Value="Form"/> 149 149 </Unit5> 150 150 <Unit6> 151 <Filename Value="Forms/UForm Move.pas"/>152 <IsPartOfProject Value="True"/> 153 <ComponentName Value="Form Move"/>151 <Filename Value="Forms/UFormNew.pas"/> 152 <IsPartOfProject Value="True"/> 153 <ComponentName Value="FormNew"/> 154 154 <HasResources Value="True"/> 155 155 <ResourceBaseClass Value="Form"/> 156 156 </Unit6> 157 157 <Unit7> 158 <Filename Value="Forms/UForm New.pas"/>159 <IsPartOfProject Value="True"/> 160 <ComponentName Value="Form New"/>158 <Filename Value="Forms/UFormAbout.pas"/> 159 <IsPartOfProject Value="True"/> 160 <ComponentName Value="FormAbout"/> 161 161 <HasResources Value="True"/> 162 162 <ResourceBaseClass Value="Form"/> 163 163 </Unit7> 164 164 <Unit8> 165 <Filename Value="Forms/UForm About.pas"/>166 <IsPartOfProject Value="True"/> 167 <ComponentName Value="Form About"/>165 <Filename Value="Forms/UFormHelp.pas"/> 166 <IsPartOfProject Value="True"/> 167 <ComponentName Value="FormHelp"/> 168 168 <HasResources Value="True"/> 169 169 <ResourceBaseClass Value="Form"/> 170 170 </Unit8> 171 171 <Unit9> 172 <Filename Value="Forms/UForm Help.pas"/>173 <IsPartOfProject Value="True"/> 174 <ComponentName Value="Form Help"/>172 <Filename Value="Forms/UFormCharts.pas"/> 173 <IsPartOfProject Value="True"/> 174 <ComponentName Value="FormCharts"/> 175 175 <HasResources Value="True"/> 176 176 <ResourceBaseClass Value="Form"/> 177 177 </Unit9> 178 178 <Unit10> 179 <Filename Value="Forms/UForm Charts.pas"/>180 <IsPartOfProject Value="True"/> 181 <ComponentName Value="Form Charts"/>179 <Filename Value="Forms/UFormUnitMoves.pas"/> 180 <IsPartOfProject Value="True"/> 181 <ComponentName Value="FormUnitMoves"/> 182 182 <HasResources Value="True"/> 183 183 <ResourceBaseClass Value="Form"/> 184 184 </Unit10> 185 185 <Unit11> 186 <Filename Value="Forms/UForm UnitMoves.pas"/>187 <IsPartOfProject Value="True"/> 188 <ComponentName Value="Form UnitMoves"/>186 <Filename Value="Forms/UFormChat.pas"/> 187 <IsPartOfProject Value="True"/> 188 <ComponentName Value="FormChat"/> 189 189 <HasResources Value="True"/> 190 190 <ResourceBaseClass Value="Form"/> 191 191 </Unit11> 192 192 <Unit12> 193 <Filename Value="Forms/UFormChat.pas"/> 194 <IsPartOfProject Value="True"/> 195 <ComponentName Value="FormChat"/> 196 <HasResources Value="True"/> 197 <ResourceBaseClass Value="Form"/> 193 <Filename Value="UTCP.pas"/> 194 <IsPartOfProject Value="True"/> 198 195 </Unit12> 199 196 <Unit13> 200 <Filename Value="U TCP.pas"/>197 <Filename Value="UServerList.pas"/> 201 198 <IsPartOfProject Value="True"/> 202 199 </Unit13> 203 200 <Unit14> 204 <Filename Value="UServerList.pas"/> 205 <IsPartOfProject Value="True"/> 201 <Filename Value="Forms/UFormClient.pas"/> 202 <IsPartOfProject Value="True"/> 203 <ComponentName Value="FormClient"/> 204 <HasResources Value="True"/> 205 <ResourceBaseClass Value="Form"/> 206 206 </Unit14> 207 207 <Unit15> 208 <Filename Value="Forms/UForm Client.pas"/>209 <IsPartOfProject Value="True"/> 210 <ComponentName Value="Form Client"/>208 <Filename Value="Forms/UFormPlayersStats.pas"/> 209 <IsPartOfProject Value="True"/> 210 <ComponentName Value="FormPlayersStats"/> 211 211 <HasResources Value="True"/> 212 212 <ResourceBaseClass Value="Form"/> 213 213 </Unit15> 214 214 <Unit16> 215 <Filename Value="Forms/UFormPlayersStats.pas"/> 216 <IsPartOfProject Value="True"/> 217 <ComponentName Value="FormPlayersStats"/> 218 <HasResources Value="True"/> 219 <ResourceBaseClass Value="Form"/> 215 <Filename Value="UGameServer.pas"/> 216 <IsPartOfProject Value="True"/> 220 217 </Unit16> 221 218 <Unit17> 222 <Filename Value="UGame Server.pas"/>219 <Filename Value="UGameClient.pas"/> 223 220 <IsPartOfProject Value="True"/> 224 221 </Unit17> 225 222 <Unit18> 226 <Filename Value="UGame Client.pas"/>223 <Filename Value="UGameProtocol.pas"/> 227 224 <IsPartOfProject Value="True"/> 228 225 </Unit18> 229 226 <Unit19> 230 <Filename Value=" UGameProtocol.pas"/>227 <Filename Value="Packages/PinConnection/UCommPin.pas"/> 231 228 <IsPartOfProject Value="True"/> 232 229 </Unit19> 233 230 <Unit20> 234 <Filename Value=" Packages/PinConnection/UCommPin.pas"/>231 <Filename Value="UGeometry.pas"/> 235 232 <IsPartOfProject Value="True"/> 236 233 </Unit20> 237 234 <Unit21> 238 <Filename Value="UGeometry .pas"/>235 <Filename Value="UGeometryClasses.pas"/> 239 236 <IsPartOfProject Value="True"/> 240 237 </Unit21> 241 238 <Unit22> 242 <Filename Value="UGeometryClasses.pas"/> 243 <IsPartOfProject Value="True"/> 239 <Filename Value="Forms/UFormServer.pas"/> 240 <IsPartOfProject Value="True"/> 241 <ComponentName Value="FormServer"/> 242 <HasResources Value="True"/> 243 <ResourceBaseClass Value="Form"/> 244 244 </Unit22> 245 245 <Unit23> 246 <Filename Value="Forms/UFormServer.pas"/> 247 <IsPartOfProject Value="True"/> 248 <ComponentName Value="FormServer"/> 249 <HasResources Value="True"/> 250 <ResourceBaseClass Value="Form"/> 246 <Filename Value="UClientAI.pas"/> 247 <IsPartOfProject Value="True"/> 251 248 </Unit23> 252 249 <Unit24> 253 <Filename Value="U ClientAI.pas"/>250 <Filename Value="UGameConnection.pas"/> 254 251 <IsPartOfProject Value="True"/> 255 252 </Unit24> 256 253 <Unit25> 257 <Filename Value=" UGameConnection.pas"/>254 <Filename Value="Packages/PinConnection/UCommThread.pas"/> 258 255 <IsPartOfProject Value="True"/> 259 256 </Unit25> 260 257 <Unit26> 261 <Filename Value="Packages/PinConnection/UCommThread.pas"/> 262 <IsPartOfProject Value="True"/> 258 <Filename Value="Forms/UFormKeyShortcuts.pas"/> 259 <IsPartOfProject Value="True"/> 260 <ComponentName Value="FormKeyShortcuts"/> 261 <HasResources Value="True"/> 262 <ResourceBaseClass Value="Form"/> 263 263 </Unit26> 264 264 <Unit27> 265 <Filename Value="Forms/UFormKeyShortcuts.pas"/> 266 <IsPartOfProject Value="True"/> 267 <ComponentName Value="FormKeyShortcuts"/> 268 <HasResources Value="True"/> 269 <ResourceBaseClass Value="Form"/> 265 <Filename Value="Packages/PinConnection/UCommFrame.pas"/> 266 <IsPartOfProject Value="True"/> 270 267 </Unit27> 271 268 <Unit28> 272 <Filename Value=" Packages/PinConnection/UCommFrame.pas"/>269 <Filename Value="UMapType.pas"/> 273 270 <IsPartOfProject Value="True"/> 274 271 </Unit28> 275 272 <Unit29> 276 <Filename Value="UMap Type.pas"/>273 <Filename Value="UMap.pas"/> 277 274 <IsPartOfProject Value="True"/> 278 275 </Unit29> 279 276 <Unit30> 280 <Filename Value="U Map.pas"/>277 <Filename Value="UPlayer.pas"/> 281 278 <IsPartOfProject Value="True"/> 282 279 </Unit30> 283 280 <Unit31> 284 <Filename Value="U Player.pas"/>281 <Filename Value="UClientGUI.pas"/> 285 282 <IsPartOfProject Value="True"/> 286 283 </Unit31> 287 284 <Unit32> 288 <Filename Value="U ClientGUI.pas"/>285 <Filename Value="UUnit.pas"/> 289 286 <IsPartOfProject Value="True"/> 290 287 </Unit32> 291 288 <Unit33> 292 <Filename Value="U Unit.pas"/>289 <Filename Value="UGameSystem.pas"/> 293 290 <IsPartOfProject Value="True"/> 294 291 </Unit33> 295 292 <Unit34> 296 <Filename Value="U GameSystem.pas"/>293 <Filename Value="UBuilding.pas"/> 297 294 <IsPartOfProject Value="True"/> 298 295 </Unit34> 299 296 <Unit35> 300 <Filename Value="UBuilding.pas"/> 301 <IsPartOfProject Value="True"/> 297 <Filename Value="Forms/UFormGameSystem.pas"/> 298 <IsPartOfProject Value="True"/> 299 <ComponentName Value="FormGameSystem"/> 300 <HasResources Value="True"/> 301 <ResourceBaseClass Value="Form"/> 302 302 </Unit35> 303 303 <Unit36> 304 <Filename Value="Forms/UFormGameSystem .pas"/>305 <IsPartOfProject Value="True"/> 306 <ComponentName Value="FormGameSystem "/>304 <Filename Value="Forms/UFormGameSystems.pas"/> 305 <IsPartOfProject Value="True"/> 306 <ComponentName Value="FormGameSystems"/> 307 307 <HasResources Value="True"/> 308 308 <ResourceBaseClass Value="Form"/> 309 309 </Unit36> 310 310 <Unit37> 311 <Filename Value="Forms/UFormGameSystems.pas"/> 312 <IsPartOfProject Value="True"/> 313 <ComponentName Value="FormGameSystems"/> 314 <HasResources Value="True"/> 315 <ResourceBaseClass Value="Form"/> 311 <Filename Value="UNation.pas"/> 312 <IsPartOfProject Value="True"/> 316 313 </Unit37> 317 314 <Unit38> 318 <Filename Value="Forms/UFormPlayers.pas"/> 319 <IsPartOfProject Value="True"/> 320 <ComponentName Value="FormPlayers"/> 321 <HasResources Value="True"/> 322 <ResourceBaseClass Value="Form"/> 315 <Filename Value="UItemList.pas"/> 316 <IsPartOfProject Value="True"/> 323 317 </Unit38> 324 318 <Unit39> 325 <Filename Value="UNation.pas"/> 326 <IsPartOfProject Value="True"/> 319 <Filename Value="Forms/UFormList.pas"/> 320 <IsPartOfProject Value="True"/> 321 <ComponentName Value="FormList"/> 322 <HasResources Value="True"/> 323 <ResourceBaseClass Value="Form"/> 327 324 </Unit39> 328 325 <Unit40> 329 <Filename Value="UItemList.pas"/> 330 <IsPartOfProject Value="True"/> 326 <Filename Value="Forms/UFormItem.pas"/> 327 <IsPartOfProject Value="True"/> 328 <ComponentName Value="FormItem"/> 329 <HasResources Value="True"/> 330 <ResourceBaseClass Value="Form"/> 331 331 </Unit40> 332 <Unit41>333 <Filename Value="Forms/UFormList.pas"/>334 <IsPartOfProject Value="True"/>335 <ComponentName Value="FormList"/>336 <HasResources Value="True"/>337 <ResourceBaseClass Value="Form"/>338 </Unit41>339 <Unit42>340 <Filename Value="Forms/UFormItem.pas"/>341 <IsPartOfProject Value="True"/>342 <ComponentName Value="FormItem"/>343 <HasResources Value="True"/>344 <ResourceBaseClass Value="Form"/>345 </Unit42>346 332 </Units> 347 333 </ProjectOptions>
Note:
See TracChangeset
for help on using the changeset viewer.