diff -Nru tunneler-1.0.0/debian/bzr-builder.manifest tunneler-1.0.0/debian/bzr-builder.manifest --- tunneler-1.0.0/debian/bzr-builder.manifest 2019-04-22 22:46:35.000000000 +0000 +++ tunneler-1.0.0/debian/bzr-builder.manifest 2019-04-24 10:46:39.000000000 +0000 @@ -1,3 +1,3 @@ -# bzr-builder format 0.3 deb-version {debupstream}-0~46 -lp:tunneler revid:svn-v4:e6b484fe-af7b-4e01-be74-c442420b0ac4:trunk:46 +# bzr-builder format 0.3 deb-version {debupstream}-0~47 +lp:tunneler revid:svn-v4:e6b484fe-af7b-4e01-be74-c442420b0ac4:trunk:47 nest packaging lp:~chronoscz/tunneler/debian-packaging debian revid:svn-v4:e6b484fe-af7b-4e01-be74-c442420b0ac4:trunk/Install/deb/debian:37 diff -Nru tunneler-1.0.0/debian/changelog tunneler-1.0.0/debian/changelog --- tunneler-1.0.0/debian/changelog 2019-04-22 22:46:35.000000000 +0000 +++ tunneler-1.0.0/debian/changelog 2019-04-24 10:46:39.000000000 +0000 @@ -1,8 +1,8 @@ -tunneler (1.0.0-0~46~ubuntu19.10.1) eoan; urgency=low +tunneler (1.0.0-0~47~ubuntu19.10.1) eoan; urgency=low * Auto build. - -- Jiří Hajda Mon, 22 Apr 2019 22:46:35 +0000 + -- Jiří Hajda Wed, 24 Apr 2019 10:46:39 +0000 tunneler (1.0.0-0) precise; urgency=low diff -Nru tunneler-1.0.0/Forms/UFormNewGame.lfm tunneler-1.0.0/Forms/UFormNewGame.lfm --- tunneler-1.0.0/Forms/UFormNewGame.lfm 1970-01-01 00:00:00.000000000 +0000 +++ tunneler-1.0.0/Forms/UFormNewGame.lfm 2019-04-24 10:46:39.000000000 +0000 @@ -0,0 +1,249 @@ +object FormNewGame: TFormNewGame + Left = 579 + Height = 542 + Top = 226 + Width = 846 + Caption = 'New game' + ClientHeight = 542 + ClientWidth = 846 + DesignTimePPI = 120 + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + LCLVersion = '2.0.2.0' + object ButtonStart: TButton + Left = 740 + Height = 31 + Top = 500 + Width = 94 + Anchors = [akRight, akBottom] + Caption = 'Start' + ModalResult = 1 + ParentFont = False + TabOrder = 0 + end + object ButtonCancel: TButton + Left = 630 + Height = 31 + Top = 500 + Width = 94 + Anchors = [akRight, akBottom] + Caption = 'Cancel' + ModalResult = 2 + ParentFont = False + TabOrder = 1 + end + object Label1: TLabel + Left = 10 + Height = 20 + Top = 8 + Width = 49 + Caption = 'Players:' + ParentColor = False + ParentFont = False + end + object ListView1: TListView + Left = 10 + Height = 460 + Top = 30 + Width = 368 + Anchors = [akTop, akLeft, akBottom] + Checkboxes = True + Columns = < + item + Caption = 'Name' + Width = 188 + end + item + Caption = 'Color' + Width = 62 + end + item + Caption = 'Controls' + Width = 189 + end> + OwnerData = True + ParentFont = False + ReadOnly = True + RowSelect = True + TabOrder = 2 + ViewStyle = vsReport + OnChange = ListView1Change + OnCustomDrawSubItem = ListView1CustomDrawSubItem + OnData = ListView1Data + OnSelectItem = ListView1SelectItem + end + object ColorButton1: TColorButton + Left = 634 + Height = 31 + Top = 112 + Width = 94 + BorderWidth = 2 + ButtonColorSize = 16 + ButtonColor = clBlack + OnColorChanged = ColorButton1ColorChanged + ParentFont = False + end + object Label2: TLabel + Left = 500 + Height = 20 + Top = 116 + Width = 51 + Caption = 'Color 1:' + ParentColor = False + ParentFont = False + end + object GroupBox1: TGroupBox + Left = 490 + Height = 243 + Top = 208 + Width = 340 + Caption = 'Control keys' + ClientHeight = 218 + ClientWidth = 336 + ParentFont = False + TabOrder = 3 + object EditUp: TEdit + Left = 108 + Height = 28 + Top = 2 + Width = 100 + OnChange = EditUpChange + OnKeyDown = EditUpKeyDown + ParentFont = False + TabOrder = 0 + end + object Label3: TLabel + Left = 8 + Height = 20 + Top = 12 + Width = 22 + Caption = 'Up:' + ParentColor = False + ParentFont = False + end + object Label4: TLabel + Left = 8 + Height = 20 + Top = 52 + Width = 42 + Caption = 'Down:' + ParentColor = False + ParentFont = False + end + object EditDown: TEdit + Left = 108 + Height = 28 + Top = 40 + Width = 100 + OnChange = EditDownChange + OnKeyDown = EditDownKeyDown + ParentFont = False + TabOrder = 1 + end + object Label5: TLabel + Left = 8 + Height = 20 + Top = 92 + Width = 28 + Caption = 'Left:' + ParentColor = False + ParentFont = False + end + object EditLeft: TEdit + Left = 108 + Height = 28 + Top = 82 + Width = 100 + OnChange = EditLeftChange + OnKeyDown = EditLeftKeyDown + ParentFont = False + TabOrder = 2 + end + object Label6: TLabel + Left = 8 + Height = 20 + Top = 132 + Width = 38 + Caption = 'Right:' + ParentColor = False + ParentFont = False + end + object EditRight: TEdit + Left = 108 + Height = 28 + Top = 122 + Width = 100 + OnChange = EditRightChange + OnKeyDown = EditRightKeyDown + ParentFont = False + TabOrder = 3 + end + object Label7: TLabel + Left = 8 + Height = 20 + Top = 172 + Width = 42 + Caption = 'Shoot:' + ParentColor = False + ParentFont = False + end + object EditShoot: TEdit + Left = 108 + Height = 28 + Top = 162 + Width = 100 + OnChange = EditShootChange + OnKeyDown = EditShootKeyDown + ParentFont = False + TabOrder = 4 + end + end + object EditName: TEdit + Left = 600 + Height = 28 + Top = 30 + Width = 220 + OnChange = EditNameChange + ParentFont = False + TabOrder = 4 + end + object Label8: TLabel + Left = 500 + Height = 20 + Top = 40 + Width = 43 + Caption = 'Name:' + ParentColor = False + ParentFont = False + end + object Label9: TLabel + Left = 500 + Height = 20 + Top = 145 + Width = 51 + Caption = 'Color 2:' + ParentColor = False + ParentFont = False + end + object ColorButton2: TColorButton + Left = 634 + Height = 31 + Top = 145 + Width = 94 + BorderWidth = 2 + ButtonColorSize = 16 + ButtonColor = clBlack + OnColorChanged = ColorButton2ColorChanged + ParentFont = False + end + object CheckBoxEnabled: TCheckBox + Left = 504 + Height = 24 + Top = 80 + Width = 78 + Caption = 'Enabled' + OnChange = CheckBoxEnabledChange + TabOrder = 5 + end +end diff -Nru tunneler-1.0.0/Forms/UFormNewGame.lrj tunneler-1.0.0/Forms/UFormNewGame.lrj --- tunneler-1.0.0/Forms/UFormNewGame.lrj 1970-01-01 00:00:00.000000000 +0000 +++ tunneler-1.0.0/Forms/UFormNewGame.lrj 2019-04-24 10:46:39.000000000 +0000 @@ -0,0 +1,19 @@ +{"version":1,"strings":[ +{"hash":211211125,"name":"tformnewgame.caption","sourcebytes":[78,101,119,32,103,97,109,101],"value":"New game"}, +{"hash":5941396,"name":"tformnewgame.buttonstart.caption","sourcebytes":[83,116,97,114,116],"value":"Start"}, +{"hash":77089212,"name":"tformnewgame.buttoncancel.caption","sourcebytes":[67,97,110,99,101,108],"value":"Cancel"}, +{"hash":42978330,"name":"tformnewgame.label1.caption","sourcebytes":[80,108,97,121,101,114,115,58],"value":"Players:"}, +{"hash":346165,"name":"tformnewgame.listview1.columns[0].caption","sourcebytes":[78,97,109,101],"value":"Name"}, +{"hash":4875106,"name":"tformnewgame.listview1.columns[1].caption","sourcebytes":[67,111,108,111,114],"value":"Color"}, +{"hash":106664595,"name":"tformnewgame.listview1.columns[2].caption","sourcebytes":[67,111,110,116,114,111,108,115],"value":"Controls"}, +{"hash":104220650,"name":"tformnewgame.label2.caption","sourcebytes":[67,111,108,111,114,32,49,58],"value":"Color 1:"}, +{"hash":21055635,"name":"tformnewgame.groupbox1.caption","sourcebytes":[67,111,110,116,114,111,108,32,107,101,121,115],"value":"Control keys"}, +{"hash":23610,"name":"tformnewgame.label3.caption","sourcebytes":[85,112,58],"value":"Up:"}, +{"hash":4943386,"name":"tformnewgame.label4.caption","sourcebytes":[68,111,119,110,58],"value":"Down:"}, +{"hash":5422458,"name":"tformnewgame.label5.caption","sourcebytes":[76,101,102,116,58],"value":"Left:"}, +{"hash":93314938,"name":"tformnewgame.label6.caption","sourcebytes":[82,105,103,104,116,58],"value":"Right:"}, +{"hash":94332538,"name":"tformnewgame.label7.caption","sourcebytes":[83,104,111,111,116,58],"value":"Shoot:"}, +{"hash":5538698,"name":"tformnewgame.label8.caption","sourcebytes":[78,97,109,101,58],"value":"Name:"}, +{"hash":104220666,"name":"tformnewgame.label9.caption","sourcebytes":[67,111,108,111,114,32,50,58],"value":"Color 2:"}, +{"hash":206017268,"name":"tformnewgame.checkboxenabled.caption","sourcebytes":[69,110,97,98,108,101,100],"value":"Enabled"} +]} diff -Nru tunneler-1.0.0/Forms/UFormNewGame.pas tunneler-1.0.0/Forms/UFormNewGame.pas --- tunneler-1.0.0/Forms/UFormNewGame.pas 1970-01-01 00:00:00.000000000 +0000 +++ tunneler-1.0.0/Forms/UFormNewGame.pas 2019-04-24 10:46:39.000000000 +0000 @@ -0,0 +1,306 @@ +unit UFormNewGame; + +{$mode delphi}{$H+} + +interface + +uses + Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls, + ComCtrls, UEngine; + +type + + { TFormNewGame } + + TFormNewGame = class(TForm) + ButtonStart: TButton; + ButtonCancel: TButton; + CheckBoxEnabled: TCheckBox; + ColorButton1: TColorButton; + ColorButton2: TColorButton; + EditUp: TEdit; + EditDown: TEdit; + EditLeft: TEdit; + EditRight: TEdit; + EditShoot: TEdit; + EditName: TEdit; + GroupBox1: TGroupBox; + Label1: TLabel; + Label2: TLabel; + Label3: TLabel; + Label4: TLabel; + Label5: TLabel; + Label6: TLabel; + Label7: TLabel; + Label8: TLabel; + Label9: TLabel; + ListView1: TListView; + procedure CheckBoxEnabledChange(Sender: TObject); + procedure ColorButton1ColorChanged(Sender: TObject); + procedure ColorButton2ColorChanged(Sender: TObject); + procedure EditDownChange(Sender: TObject); + procedure EditDownKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState + ); + procedure EditLeftChange(Sender: TObject); + procedure EditLeftKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState + ); + procedure EditNameChange(Sender: TObject); + procedure EditRightChange(Sender: TObject); + procedure EditRightKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); + procedure EditShootChange(Sender: TObject); + procedure EditShootKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); + procedure EditUpChange(Sender: TObject); + procedure EditUpKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); + procedure FormCreate(Sender: TObject); + procedure FormDestroy(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure ListView1Change(Sender: TObject; Item: TListItem; + Change: TItemChange); + procedure ListView1CustomDrawSubItem(Sender: TCustomListView; + Item: TListItem; SubItem: Integer; State: TCustomDrawState; + var DefaultDraw: Boolean); + procedure ListView1Data(Sender: TObject; Item: TListItem); + procedure ListView1SelectItem(Sender: TObject; Item: TListItem; + Selected: Boolean); + private + Players: TPlayers; + procedure ReloadList; + public + procedure UpdateInterface; + procedure LoadData(Engine: TEngine); + procedure SaveData(Engine: TEngine); + end; + +var + FormNewGame: TFormNewGame; + + +implementation + +{$R *.lfm} + +uses + UCore; + +{ TFormNewGame } + +procedure TFormNewGame.ListView1Change(Sender: TObject; Item: TListItem; + Change: TItemChange); +begin + if Change = ctState then + TPlayer(Item.Data).Enabled := Item.Checked; +end; + +procedure TFormNewGame.ListView1CustomDrawSubItem(Sender: TCustomListView; + Item: TListItem; SubItem: Integer; State: TCustomDrawState; + var DefaultDraw: Boolean); +begin + if SubItem = 1 then + with ListView1.Canvas do begin + Brush.Color := TPlayer(Item.Data).Color1; + Brush.Style := bsSolid; + FillRect(Item.DisplayRectSubItem(1, drBounds)); + end; +end; + +procedure TFormNewGame.ListView1Data(Sender: TObject; Item: TListItem); +begin + if Item.Index < Players.Count then + with TPlayer(Players[Item.Index]) do begin + Item.Caption := Name; + Item.SubItems.Add(''); + Item.SubItems.Add(''); + Item.Checked := Enabled; + Item.Data := Pointer(Players[Item.Index]); + end; +end; + +procedure TFormNewGame.ListView1SelectItem(Sender: TObject; Item: TListItem; + Selected: Boolean); +begin + if Assigned(Item) and Selected then + with TPlayer(Item.Data) do begin + EditName.Text := Name; + ColorButton1.ButtonColor := Color1; + ColorButton2.ButtonColor := Color2; + EditDown.Text := IntToStr(Keys.Down); + EditUp.Text := IntToStr(Keys.Up); + EditLeft.Text := IntToStr(Keys.Left); + EditRight.Text := IntToStr(Keys.Right); + EditShoot.Text := IntToStr(Keys.Shoot); + CheckBoxEnabled.Checked := Enabled; + end; + UpdateInterface; +end; + +procedure TFormNewGame.ReloadList; +begin + ListView1.Items.Count := Players.Count; + ListView1.Refresh; +end; + +procedure TFormNewGame.UpdateInterface; +begin + EditUp.Enabled := Assigned(ListView1.Selected); + EditDown.Enabled := Assigned(ListView1.Selected); + EditLeft.Enabled := Assigned(ListView1.Selected); + EditRight.Enabled := Assigned(ListView1.Selected); + EditShoot.Enabled := Assigned(ListView1.Selected); + EditName.Enabled := Assigned(ListView1.Selected); + ColorButton1.Enabled := Assigned(ListView1.Selected); + ColorButton2.Enabled := Assigned(ListView1.Selected); + CheckBoxEnabled.Enabled := Assigned(ListView1.Selected); +end; + +procedure TFormNewGame.LoadData(Engine: TEngine); +begin + Players.Assign(Engine.PlayerPool); +end; + +procedure TFormNewGame.SaveData(Engine: TEngine); +begin + Engine.PlayerPool.Assign(Players); +end; + +procedure TFormNewGame.ColorButton1ColorChanged(Sender: TObject); +begin + if Assigned(ListView1.Selected) then + with TPlayer(ListView1.Selected.Data) do begin + Color1 := ColorButton1.ButtonColor; + ReloadList; + end; +end; + +procedure TFormNewGame.CheckBoxEnabledChange(Sender: TObject); +begin + if Assigned(ListView1.Selected) then + with TPlayer(ListView1.Selected.Data) do begin + Enabled := CheckBoxEnabled.Checked; + ReloadList; + end; +end; + +procedure TFormNewGame.ColorButton2ColorChanged(Sender: TObject); +begin + if Assigned(ListView1.Selected) then + with TPlayer(ListView1.Selected.Data) do begin + Color2 := ColorButton2.ButtonColor; + ReloadList; + end; +end; + +procedure TFormNewGame.EditDownChange(Sender: TObject); +var + Value: Integer; +begin + if Assigned(ListView1.Selected) then + with TPlayer(ListView1.Selected.Data) do begin + if TryStrToInt(EditDown.Text, Value) then Keys.Down := Value; + ReloadList; + end; +end; + +procedure TFormNewGame.EditDownKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); +begin + EditDown.Text := IntToStr(Key); +end; + +procedure TFormNewGame.EditLeftChange(Sender: TObject); +var + Value: Integer; +begin + if Assigned(ListView1.Selected) then + with TPlayer(ListView1.Selected.Data) do begin + if TryStrToInt(EditLeft.Text, Value) then Keys.Left := Value; + ReloadList; + end; +end; + +procedure TFormNewGame.EditLeftKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); +begin + EditLeft.Text := IntToStr(Key); +end; + +procedure TFormNewGame.EditNameChange(Sender: TObject); +begin + if Assigned(ListView1.Selected) then + with TPlayer(ListView1.Selected.Data) do begin + Name := EditName.Text; + ReloadList; + end; +end; + +procedure TFormNewGame.EditRightChange(Sender: TObject); +var + Value: Integer; +begin + if Assigned(ListView1.Selected) then + with TPlayer(ListView1.Selected.Data) do begin + if TryStrToInt(EditRight.Text, Value) then Keys.Right := Value; + ReloadList; + end; +end; + +procedure TFormNewGame.EditRightKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); +begin + EditRight.Text := IntToStr(Key); +end; + +procedure TFormNewGame.EditShootChange(Sender: TObject); +var + Value: Integer; +begin + if Assigned(ListView1.Selected) then + with TPlayer(ListView1.Selected.Data) do begin + if TryStrToInt(EditShoot.Text, Value) then Keys.Shoot := Value; + ReloadList; + end; +end; + +procedure TFormNewGame.EditShootKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); +begin + EditShoot.Text := IntToStr(Key); +end; + +procedure TFormNewGame.EditUpChange(Sender: TObject); +var + Value: Integer; +begin + if Assigned(ListView1.Selected) then + with TPlayer(ListView1.Selected.Data) do begin + if TryStrToInt(EditUp.Text, Value) then Keys.Up := Value; + ReloadList; + end; +end; + +procedure TFormNewGame.EditUpKeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); +begin + EditUp.Text := IntToStr(Key); +end; + +procedure TFormNewGame.FormCreate(Sender: TObject); +begin + Core.CoolTranslator1.TranslateComponentRecursive(Self); + Players := TPlayers.Create; +end; + +procedure TFormNewGame.FormDestroy(Sender: TObject); +begin + FreeAndNil(Players); +end; + +procedure TFormNewGame.FormShow(Sender: TObject); +begin + ReloadList; + UpdateInterface; +end; + +end. + diff -Nru tunneler-1.0.0/Forms/UMainForm.lfm tunneler-1.0.0/Forms/UMainForm.lfm --- tunneler-1.0.0/Forms/UMainForm.lfm 2019-04-22 22:46:34.000000000 +0000 +++ tunneler-1.0.0/Forms/UMainForm.lfm 2019-04-24 10:46:39.000000000 +0000 @@ -1,12 +1,12 @@ object MainForm: TMainForm Left = 486 - Height = 618 + Height = 515 Top = 258 - Width = 770 + Width = 642 Caption = 'Tunneler' - ClientHeight = 584 - ClientWidth = 770 - DesignTimePPI = 144 + ClientHeight = 490 + ClientWidth = 642 + DesignTimePPI = 120 Menu = MainMenu1 OnClose = FormClose OnCreate = FormCreate @@ -15,42 +15,42 @@ OnKeyDown = FormKeyDown OnKeyUp = FormKeyUp OnShow = FormShow - LCLVersion = '2.0.0.4' + LCLVersion = '2.0.2.0' object StatusBar1: TStatusBar Left = 0 Height = 28 - Top = 556 - Width = 770 + Top = 462 + Width = 642 Panels = < item - Width = 74 + Width = 62 end item - Width = 74 + Width = 62 end item - Width = 74 + Width = 62 end item - Width = 74 + Width = 62 end item - Width = 74 + Width = 62 end item - Width = 74 + Width = 62 end item - Width = 74 + Width = 62 end> ParentFont = False SimplePanel = False end object Image1: TImage Left = 0 - Height = 556 + Height = 462 Top = 0 - Width = 770 + Width = 642 Align = alClient OnMouseLeave = Image1MouseLeave OnResize = Image1Resize @@ -58,12 +58,12 @@ object TimerDraw: TTimer Interval = 50 OnTimer = TimerDrawTimer - left = 149 - top = 76 + left = 124 + top = 63 end object MainMenu1: TMainMenu - left = 276 - top = 24 + left = 230 + top = 20 object MenuItem1: TMenuItem Caption = 'Game' object MenuItem3: TMenuItem @@ -92,12 +92,12 @@ object TimerEngineTick: TTimer Interval = 20 OnTimer = TimerEngineTickTimer - left = 144 - top = 156 + left = 120 + top = 130 end object ActionList1: TActionList - left = 432 - top = 48 + left = 360 + top = 40 object AFullScreen: TAction Caption = 'Fullscreen mode' OnExecute = AFullScreenExecute @@ -131,7 +131,7 @@ StartEmpty = False RootName = 'CONFIG' ReadOnly = False - left = 149 - top = 360 + left = 124 + top = 300 end end diff -Nru tunneler-1.0.0/Forms/UMainForm.lrj tunneler-1.0.0/Forms/UMainForm.lrj --- tunneler-1.0.0/Forms/UMainForm.lrj 2019-04-22 22:46:34.000000000 +0000 +++ tunneler-1.0.0/Forms/UMainForm.lrj 2019-04-24 10:46:39.000000000 +0000 @@ -1,11 +1,11 @@ -{"version":1,"strings":[ -{"hash":206882674,"name":"tmainform.caption","sourcebytes":[84,117,110,110,101,108,101,114],"value":"Tunneler"}, -{"hash":317493,"name":"tmainform.menuitem1.caption","sourcebytes":[71,97,109,101],"value":"Game"}, -{"hash":380871,"name":"tmainform.menuitem4.caption","sourcebytes":[86,105,101,119],"value":"View"}, -{"hash":155246805,"name":"tmainform.afullscreen.caption","sourcebytes":[70,117,108,108,115,99,114,101,101,110,32,109,111,100,101],"value":"Fullscreen mode"}, -{"hash":315140,"name":"tmainform.aexit.caption","sourcebytes":[69,120,105,116],"value":"Exit"}, -{"hash":211211125,"name":"tmainform.anewgame.caption","sourcebytes":[78,101,119,32,103,97,109,101],"value":"New game"}, -{"hash":258569744,"name":"tmainform.ashowmap.caption","sourcebytes":[83,104,111,119,32,109,97,112],"value":"Show map"}, -{"hash":4691652,"name":"tmainform.aabout.caption","sourcebytes":[65,98,111,117,116],"value":"About"}, -{"hash":252167678,"name":"tmainform.ashowrawimagedesc.caption","sourcebytes":[83,104,111,119,32,82,97,119,73,109,97,103,101,32,68,101,115,99,114,105,112,116,105,111,110],"value":"Show RawImage Description"} -]} +{"version":1,"strings":[ +{"hash":206882674,"name":"tmainform.caption","sourcebytes":[84,117,110,110,101,108,101,114],"value":"Tunneler"}, +{"hash":317493,"name":"tmainform.menuitem1.caption","sourcebytes":[71,97,109,101],"value":"Game"}, +{"hash":380871,"name":"tmainform.menuitem4.caption","sourcebytes":[86,105,101,119],"value":"View"}, +{"hash":155246805,"name":"tmainform.afullscreen.caption","sourcebytes":[70,117,108,108,115,99,114,101,101,110,32,109,111,100,101],"value":"Fullscreen mode"}, +{"hash":315140,"name":"tmainform.aexit.caption","sourcebytes":[69,120,105,116],"value":"Exit"}, +{"hash":211211125,"name":"tmainform.anewgame.caption","sourcebytes":[78,101,119,32,103,97,109,101],"value":"New game"}, +{"hash":258569744,"name":"tmainform.ashowmap.caption","sourcebytes":[83,104,111,119,32,109,97,112],"value":"Show map"}, +{"hash":4691652,"name":"tmainform.aabout.caption","sourcebytes":[65,98,111,117,116],"value":"About"}, +{"hash":252167678,"name":"tmainform.ashowrawimagedesc.caption","sourcebytes":[83,104,111,119,32,82,97,119,73,109,97,103,101,32,68,101,115,99,114,105,112,116,105,111,110],"value":"Show RawImage Description"} +]} diff -Nru tunneler-1.0.0/Forms/UMainForm.pas tunneler-1.0.0/Forms/UMainForm.pas --- tunneler-1.0.0/Forms/UMainForm.pas 2019-04-22 22:46:34.000000000 +0000 +++ tunneler-1.0.0/Forms/UMainForm.pas 2019-04-24 10:46:39.000000000 +0000 @@ -75,7 +75,7 @@ {$R *.lfm} uses - UCore, UMapForm, UNewGameForm, UFormAbout; + UCore, UMapForm, UFormNewGame, UFormAbout; resourcestring SRound = '%0:s of %1:s'; @@ -190,9 +190,9 @@ procedure TMainForm.ANewGameExecute(Sender: TObject); begin - NewGameForm.LoadData(Engine); - if NewGameForm.ShowModal = mrOk then begin - NewGameForm.SaveData(Engine); + FormNewGame.LoadData(Engine); + if FormNewGame.ShowModal = mrOk then begin + FormNewGame.SaveData(Engine); Engine.NewGame; end; end; diff -Nru tunneler-1.0.0/Forms/UNewGameForm.lfm tunneler-1.0.0/Forms/UNewGameForm.lfm --- tunneler-1.0.0/Forms/UNewGameForm.lfm 2019-04-22 22:46:34.000000000 +0000 +++ tunneler-1.0.0/Forms/UNewGameForm.lfm 1970-01-01 00:00:00.000000000 +0000 @@ -1,240 +0,0 @@ -object NewGameForm: TNewGameForm - Left = 579 - Height = 650 - Top = 226 - Width = 1015 - Caption = 'New game' - ClientHeight = 650 - ClientWidth = 1015 - DesignTimePPI = 144 - OnCreate = FormCreate - OnDestroy = FormDestroy - OnShow = FormShow - LCLVersion = '2.0.0.4' - object ButtonStart: TButton - Left = 888 - Height = 37 - Top = 600 - Width = 113 - Anchors = [akRight, akBottom] - Caption = 'Start' - ModalResult = 1 - ParentFont = False - TabOrder = 0 - end - object ButtonCancel: TButton - Left = 756 - Height = 37 - Top = 600 - Width = 113 - Anchors = [akRight, akBottom] - Caption = 'Cancel' - ModalResult = 2 - ParentFont = False - TabOrder = 1 - end - object Label1: TLabel - Left = 12 - Height = 26 - Top = 0 - Width = 66 - Caption = 'Players:' - ParentColor = False - ParentFont = False - end - object ListView1: TListView - Left = 12 - Height = 552 - Top = 36 - Width = 442 - Anchors = [akTop, akLeft, akBottom] - Checkboxes = True - Columns = < - item - Caption = 'Name' - Width = 226 - end - item - Caption = 'Color' - Width = 74 - end - item - Caption = 'Controls' - Width = 227 - end> - OwnerData = True - ParentFont = False - ReadOnly = True - RowSelect = True - TabOrder = 2 - ViewStyle = vsReport - OnChange = ListView1Change - OnCustomDrawSubItem = ListView1CustomDrawSubItem - OnData = ListView1Data - OnSelectItem = ListView1SelectItem - end - object ColorButton1: TColorButton - Left = 756 - Height = 37 - Top = 96 - Width = 113 - BorderWidth = 2 - ButtonColorSize = 16 - ButtonColor = clBlack - OnColorChanged = ColorButton1ColorChanged - ParentFont = False - end - object Label2: TLabel - Left = 600 - Height = 26 - Top = 101 - Width = 65 - Caption = 'Color 1:' - ParentColor = False - ParentFont = False - end - object GroupBox1: TGroupBox - Left = 588 - Height = 368 - Top = 184 - Width = 408 - Caption = 'Control keys' - ClientHeight = 341 - ClientWidth = 406 - ParentFont = False - TabOrder = 3 - object EditUp: TEdit - Left = 130 - Height = 43 - Top = 2 - Width = 120 - OnChange = EditUpChange - OnKeyDown = EditUpKeyDown - ParentFont = False - TabOrder = 0 - end - object Label3: TLabel - Left = 10 - Height = 26 - Top = 14 - Width = 29 - Caption = 'Up:' - ParentColor = False - ParentFont = False - end - object Label4: TLabel - Left = 10 - Height = 26 - Top = 62 - Width = 54 - Caption = 'Down:' - ParentColor = False - ParentFont = False - end - object EditDown: TEdit - Left = 130 - Height = 43 - Top = 48 - Width = 120 - OnChange = EditDownChange - OnKeyDown = EditDownKeyDown - ParentFont = False - TabOrder = 1 - end - object Label5: TLabel - Left = 10 - Height = 26 - Top = 110 - Width = 37 - Caption = 'Left:' - ParentColor = False - ParentFont = False - end - object EditLeft: TEdit - Left = 130 - Height = 43 - Top = 98 - Width = 120 - OnChange = EditLeftChange - OnKeyDown = EditLeftKeyDown - ParentFont = False - TabOrder = 2 - end - object Label6: TLabel - Left = 10 - Height = 26 - Top = 158 - Width = 50 - Caption = 'Right:' - ParentColor = False - ParentFont = False - end - object EditRight: TEdit - Left = 130 - Height = 43 - Top = 146 - Width = 120 - OnChange = EditRightChange - OnKeyDown = EditRightKeyDown - ParentFont = False - TabOrder = 3 - end - object Label7: TLabel - Left = 10 - Height = 26 - Top = 206 - Width = 55 - Caption = 'Shoot:' - ParentColor = False - ParentFont = False - end - object EditShoot: TEdit - Left = 130 - Height = 43 - Top = 194 - Width = 120 - OnChange = EditShootChange - OnKeyDown = EditShootKeyDown - ParentFont = False - TabOrder = 4 - end - end - object EditName: TEdit - Left = 720 - Height = 43 - Top = 36 - Width = 264 - OnChange = EditNameChange - ParentFont = False - TabOrder = 4 - end - object Label8: TLabel - Left = 600 - Height = 26 - Top = 48 - Width = 56 - Caption = 'Name:' - ParentColor = False - ParentFont = False - end - object Label9: TLabel - Left = 600 - Height = 26 - Top = 141 - Width = 65 - Caption = 'Color 2:' - ParentColor = False - ParentFont = False - end - object ColorButton2: TColorButton - Left = 756 - Height = 37 - Top = 136 - Width = 113 - BorderWidth = 2 - ButtonColorSize = 16 - ButtonColor = clBlack - OnColorChanged = ColorButton2ColorChanged - ParentFont = False - end -end diff -Nru tunneler-1.0.0/Forms/UNewGameForm.lrj tunneler-1.0.0/Forms/UNewGameForm.lrj --- tunneler-1.0.0/Forms/UNewGameForm.lrj 2019-04-22 22:46:34.000000000 +0000 +++ tunneler-1.0.0/Forms/UNewGameForm.lrj 1970-01-01 00:00:00.000000000 +0000 @@ -1,18 +0,0 @@ -{"version":1,"strings":[ -{"hash":211211125,"name":"tnewgameform.caption","sourcebytes":[78,101,119,32,103,97,109,101],"value":"New game"}, -{"hash":5941396,"name":"tnewgameform.buttonstart.caption","sourcebytes":[83,116,97,114,116],"value":"Start"}, -{"hash":77089212,"name":"tnewgameform.buttoncancel.caption","sourcebytes":[67,97,110,99,101,108],"value":"Cancel"}, -{"hash":42978330,"name":"tnewgameform.label1.caption","sourcebytes":[80,108,97,121,101,114,115,58],"value":"Players:"}, -{"hash":346165,"name":"tnewgameform.listview1.columns[0].caption","sourcebytes":[78,97,109,101],"value":"Name"}, -{"hash":4875106,"name":"tnewgameform.listview1.columns[1].caption","sourcebytes":[67,111,108,111,114],"value":"Color"}, -{"hash":106664595,"name":"tnewgameform.listview1.columns[2].caption","sourcebytes":[67,111,110,116,114,111,108,115],"value":"Controls"}, -{"hash":104220650,"name":"tnewgameform.label2.caption","sourcebytes":[67,111,108,111,114,32,49,58],"value":"Color 1:"}, -{"hash":21055635,"name":"tnewgameform.groupbox1.caption","sourcebytes":[67,111,110,116,114,111,108,32,107,101,121,115],"value":"Control keys"}, -{"hash":23610,"name":"tnewgameform.label3.caption","sourcebytes":[85,112,58],"value":"Up:"}, -{"hash":4943386,"name":"tnewgameform.label4.caption","sourcebytes":[68,111,119,110,58],"value":"Down:"}, -{"hash":5422458,"name":"tnewgameform.label5.caption","sourcebytes":[76,101,102,116,58],"value":"Left:"}, -{"hash":93314938,"name":"tnewgameform.label6.caption","sourcebytes":[82,105,103,104,116,58],"value":"Right:"}, -{"hash":94332538,"name":"tnewgameform.label7.caption","sourcebytes":[83,104,111,111,116,58],"value":"Shoot:"}, -{"hash":5538698,"name":"tnewgameform.label8.caption","sourcebytes":[78,97,109,101,58],"value":"Name:"}, -{"hash":104220666,"name":"tnewgameform.label9.caption","sourcebytes":[67,111,108,111,114,32,50,58],"value":"Color 2:"} -]} diff -Nru tunneler-1.0.0/Forms/UNewGameForm.pas tunneler-1.0.0/Forms/UNewGameForm.pas --- tunneler-1.0.0/Forms/UNewGameForm.pas 2019-04-22 22:46:34.000000000 +0000 +++ tunneler-1.0.0/Forms/UNewGameForm.pas 1970-01-01 00:00:00.000000000 +0000 @@ -1,293 +0,0 @@ -unit UNewGameForm; - -{$mode delphi}{$H+} - -interface - -uses - Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls, - ComCtrls, UEngine; - -type - - { TNewGameForm } - - TNewGameForm = class(TForm) - ButtonStart: TButton; - ButtonCancel: TButton; - ColorButton1: TColorButton; - ColorButton2: TColorButton; - EditUp: TEdit; - EditDown: TEdit; - EditLeft: TEdit; - EditRight: TEdit; - EditShoot: TEdit; - EditName: TEdit; - GroupBox1: TGroupBox; - Label1: TLabel; - Label2: TLabel; - Label3: TLabel; - Label4: TLabel; - Label5: TLabel; - Label6: TLabel; - Label7: TLabel; - Label8: TLabel; - Label9: TLabel; - ListView1: TListView; - procedure ColorButton1ColorChanged(Sender: TObject); - procedure ColorButton2ColorChanged(Sender: TObject); - procedure EditDownChange(Sender: TObject); - procedure EditDownKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState - ); - procedure EditLeftChange(Sender: TObject); - procedure EditLeftKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState - ); - procedure EditNameChange(Sender: TObject); - procedure EditRightChange(Sender: TObject); - procedure EditRightKeyDown(Sender: TObject; var Key: Word; - Shift: TShiftState); - procedure EditShootChange(Sender: TObject); - procedure EditShootKeyDown(Sender: TObject; var Key: Word; - Shift: TShiftState); - procedure EditUpChange(Sender: TObject); - procedure EditUpKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); - procedure FormCreate(Sender: TObject); - procedure FormDestroy(Sender: TObject); - procedure FormShow(Sender: TObject); - procedure ListView1Change(Sender: TObject; Item: TListItem; - Change: TItemChange); - procedure ListView1CustomDrawSubItem(Sender: TCustomListView; - Item: TListItem; SubItem: Integer; State: TCustomDrawState; - var DefaultDraw: Boolean); - procedure ListView1Data(Sender: TObject; Item: TListItem); - procedure ListView1SelectItem(Sender: TObject; Item: TListItem; - Selected: Boolean); - private - Players: TPlayers; - procedure ReloadList; - public - procedure UpdateInterface; - procedure LoadData(Engine: TEngine); - procedure SaveData(Engine: TEngine); - end; - -var - NewGameForm: TNewGameForm; - - -implementation - -{$R *.lfm} - -uses - UCore; - -{ TNewGameForm } - -procedure TNewGameForm.ListView1Change(Sender: TObject; Item: TListItem; - Change: TItemChange); -begin - if Change = ctState then - TPlayer(Item.Data).Enabled := Item.Checked; -end; - -procedure TNewGameForm.ListView1CustomDrawSubItem(Sender: TCustomListView; - Item: TListItem; SubItem: Integer; State: TCustomDrawState; - var DefaultDraw: Boolean); -begin - if SubItem = 1 then - with ListView1.Canvas do begin - Brush.Color := TPlayer(Item.Data).Color1; - Brush.Style := bsSolid; - FillRect(Item.DisplayRectSubItem(1, drBounds)); - end; -end; - -procedure TNewGameForm.ListView1Data(Sender: TObject; Item: TListItem); -begin - if Item.Index < Players.Count then - with TPlayer(Players[Item.Index]) do begin - Item.Caption := Name; - Item.SubItems.Add(''); - Item.SubItems.Add(''); - Item.Checked := Enabled; - Item.Data := Pointer(Players[Item.Index]); - end; -end; - -procedure TNewGameForm.ListView1SelectItem(Sender: TObject; Item: TListItem; - Selected: Boolean); -begin - if Assigned(Item) and Selected then - with TPlayer(Item.Data) do begin - EditName.Text := Name; - ColorButton1.ButtonColor := Color1; - ColorButton2.ButtonColor := Color2; - EditDown.Text := IntToStr(Keys.Down); - EditUp.Text := IntToStr(Keys.Up); - EditLeft.Text := IntToStr(Keys.Left); - EditRight.Text := IntToStr(Keys.Right); - EditShoot.Text := IntToStr(Keys.Shoot); - end; - UpdateInterface; -end; - -procedure TNewGameForm.ReloadList; -begin - ListView1.Items.Count := Players.Count; - ListView1.Refresh; -end; - -procedure TNewGameForm.UpdateInterface; -begin - EditUp.Enabled := Assigned(ListView1.Selected); - EditDown.Enabled := Assigned(ListView1.Selected); - EditLeft.Enabled := Assigned(ListView1.Selected); - EditRight.Enabled := Assigned(ListView1.Selected); - EditShoot.Enabled := Assigned(ListView1.Selected); - EditName.Enabled := Assigned(ListView1.Selected); - ColorButton1.Enabled := Assigned(ListView1.Selected); - ColorButton2.Enabled := Assigned(ListView1.Selected); -end; - -procedure TNewGameForm.LoadData(Engine: TEngine); -begin - Players.Assign(Engine.PlayerPool); -end; - -procedure TNewGameForm.SaveData(Engine: TEngine); -begin - Engine.PlayerPool.Assign(Players); -end; - -procedure TNewGameForm.ColorButton1ColorChanged(Sender: TObject); -begin - if Assigned(ListView1.Selected) then - with TPlayer(ListView1.Selected.Data) do begin - Color1 := ColorButton1.ButtonColor; - ReloadList; - end; -end; - -procedure TNewGameForm.ColorButton2ColorChanged(Sender: TObject); -begin - if Assigned(ListView1.Selected) then - with TPlayer(ListView1.Selected.Data) do begin - Color2 := ColorButton2.ButtonColor; - ReloadList; - end; -end; - -procedure TNewGameForm.EditDownChange(Sender: TObject); -var - Value: Integer; -begin - if Assigned(ListView1.Selected) then - with TPlayer(ListView1.Selected.Data) do begin - if TryStrToInt(EditDown.Text, Value) then Keys.Down := Value; - ReloadList; - end; -end; - -procedure TNewGameForm.EditDownKeyDown(Sender: TObject; var Key: Word; - Shift: TShiftState); -begin - EditDown.Text := IntToStr(Key); -end; - -procedure TNewGameForm.EditLeftChange(Sender: TObject); -var - Value: Integer; -begin - if Assigned(ListView1.Selected) then - with TPlayer(ListView1.Selected.Data) do begin - if TryStrToInt(EditLeft.Text, Value) then Keys.Left := Value; - ReloadList; - end; -end; - -procedure TNewGameForm.EditLeftKeyDown(Sender: TObject; var Key: Word; - Shift: TShiftState); -begin - EditLeft.Text := IntToStr(Key); -end; - -procedure TNewGameForm.EditNameChange(Sender: TObject); -begin - if Assigned(ListView1.Selected) then - with TPlayer(ListView1.Selected.Data) do begin - Name := EditName.Text; - ReloadList; - end; -end; - -procedure TNewGameForm.EditRightChange(Sender: TObject); -var - Value: Integer; -begin - if Assigned(ListView1.Selected) then - with TPlayer(ListView1.Selected.Data) do begin - if TryStrToInt(EditRight.Text, Value) then Keys.Right := Value; - ReloadList; - end; -end; - -procedure TNewGameForm.EditRightKeyDown(Sender: TObject; var Key: Word; - Shift: TShiftState); -begin - EditRight.Text := IntToStr(Key); -end; - -procedure TNewGameForm.EditShootChange(Sender: TObject); -var - Value: Integer; -begin - if Assigned(ListView1.Selected) then - with TPlayer(ListView1.Selected.Data) do begin - if TryStrToInt(EditShoot.Text, Value) then Keys.Shoot := Value; - ReloadList; - end; -end; - -procedure TNewGameForm.EditShootKeyDown(Sender: TObject; var Key: Word; - Shift: TShiftState); -begin - EditShoot.Text := IntToStr(Key); -end; - -procedure TNewGameForm.EditUpChange(Sender: TObject); -var - Value: Integer; -begin - if Assigned(ListView1.Selected) then - with TPlayer(ListView1.Selected.Data) do begin - if TryStrToInt(EditUp.Text, Value) then Keys.Up := Value; - ReloadList; - end; -end; - -procedure TNewGameForm.EditUpKeyDown(Sender: TObject; var Key: Word; - Shift: TShiftState); -begin - EditUp.Text := IntToStr(Key); -end; - -procedure TNewGameForm.FormCreate(Sender: TObject); -begin - Core.CoolTranslator1.TranslateComponentRecursive(Self); - Players := TPlayers.Create; -end; - -procedure TNewGameForm.FormDestroy(Sender: TObject); -begin - FreeAndNil(Players); -end; - -procedure TNewGameForm.FormShow(Sender: TObject); -begin - ReloadList; - UpdateInterface; -end; - -end. - diff -Nru tunneler-1.0.0/Languages/Tunneler.cs.po tunneler-1.0.0/Languages/Tunneler.cs.po --- tunneler-1.0.0/Languages/Tunneler.cs.po 2019-04-22 22:46:34.000000000 +0000 +++ tunneler-1.0.0/Languages/Tunneler.cs.po 2019-04-24 10:46:39.000000000 +0000 @@ -9,7 +9,7 @@ "MIME-Version: 1.0\n" "Content-Transfer-Encoding: 8bit\n" "Language: cs\n" -"X-Generator: Poedit 2.1.1\n" +"X-Generator: Poedit 2.2\n" #: tdebugform.caption msgctxt "tdebugform.caption" @@ -42,118 +42,142 @@ msgid "Real-time digging tank battle game. This is recreation of legend MS-DOS game written in Pascal." msgstr "Kopací tanková bojová ha v reálném čase. Jedná se o znovu vytvoření legendární MS-DOS hry napsané v Pascale." -#: tgameresultform.caption -msgid "Game result" -msgstr "Výsledek hry" - -#: tmainform.aabout.caption -msgctxt "tmainform.aabout.caption" -msgid "About" -msgstr "O aplikaci" - -#: tmainform.aexit.caption -msgid "Exit" -msgstr "Odejít" - -#: tmainform.afullscreen.caption -msgid "Fullscreen mode" -msgstr "Režim celé obrazovky" - -#: tmainform.anewgame.caption -msgctxt "TMAINFORM.ANEWGAME.CAPTION" -msgid "New game" -msgstr "Nová hra" - -#: tmainform.ashowmap.caption -msgid "Show map" -msgstr "Ukázat mapu" - -#: tmainform.ashowrawimagedesc.caption -msgid "Show RawImage Description" -msgstr "Ukázat popis RawImage" - -#: tmainform.caption -msgctxt "tmainform.caption" -msgid "Tunneler" -msgstr "Tunneler" - -#: tmainform.menuitem1.caption -msgid "Game" -msgstr "Hra" - -#: tmainform.menuitem4.caption -msgid "View" -msgstr "Zobrazení" - -#: tmapform.caption -msgid "Map" -msgstr "Mapa" - -#: tnewgameform.buttoncancel.caption +#: tformnewgame.buttoncancel.caption +msgctxt "tformnewgame.buttoncancel.caption" msgid "Cancel" msgstr "Zrušit" -#: tnewgameform.buttonstart.caption +#: tformnewgame.buttonstart.caption +msgctxt "tformnewgame.buttonstart.caption" msgid "Start" msgstr "Začít" -#: tnewgameform.caption -msgctxt "TNEWGAMEFORM.CAPTION" +#: tformnewgame.caption +msgctxt "tformnewgame.caption" msgid "New game" msgstr "Nová hra" -#: tnewgameform.groupbox1.caption +#: tformnewgame.checkboxenabled.caption +msgid "Enabled" +msgstr "" + +#: tformnewgame.groupbox1.caption +msgctxt "tformnewgame.groupbox1.caption" msgid "Control keys" msgstr "Ovládací tlačítka" -#: tnewgameform.label1.caption +#: tformnewgame.label1.caption +msgctxt "tformnewgame.label1.caption" msgid "Players:" msgstr "Hráči:" -#: tnewgameform.label2.caption +#: tformnewgame.label2.caption +msgctxt "tformnewgame.label2.caption" msgid "Color 1:" msgstr "Barva 1:" -#: tnewgameform.label3.caption +#: tformnewgame.label3.caption +msgctxt "tformnewgame.label3.caption" msgid "Up:" msgstr "Nahoru:" -#: tnewgameform.label4.caption +#: tformnewgame.label4.caption +msgctxt "tformnewgame.label4.caption" msgid "Down:" msgstr "Dolů:" -#: tnewgameform.label5.caption +#: tformnewgame.label5.caption +msgctxt "tformnewgame.label5.caption" msgid "Left:" msgstr "Vlevo:" -#: tnewgameform.label6.caption +#: tformnewgame.label6.caption +msgctxt "tformnewgame.label6.caption" msgid "Right:" msgstr "Vpravo:" -#: tnewgameform.label7.caption +#: tformnewgame.label7.caption +msgctxt "tformnewgame.label7.caption" msgid "Shoot:" msgstr "Střelba:" -#: tnewgameform.label8.caption +#: tformnewgame.label8.caption +msgctxt "tformnewgame.label8.caption" msgid "Name:" msgstr "Jméno:" -#: tnewgameform.label9.caption +#: tformnewgame.label9.caption +msgctxt "tformnewgame.label9.caption" msgid "Color 2:" msgstr "Barva 2:" -#: tnewgameform.listview1.columns[0].caption +#: tformnewgame.listview1.columns[0].caption +msgctxt "tformnewgame.listview1.columns[0].caption" msgid "Name" msgstr "Jméno" -#: tnewgameform.listview1.columns[1].caption +#: tformnewgame.listview1.columns[1].caption +msgctxt "tformnewgame.listview1.columns[1].caption" msgid "Color" msgstr "Barva" -#: tnewgameform.listview1.columns[2].caption +#: tformnewgame.listview1.columns[2].caption +msgctxt "tformnewgame.listview1.columns[2].caption" msgid "Controls" msgstr "Ovládání" +#: tgameresultform.caption +msgid "Game result" +msgstr "Výsledek hry" + +#: tmainform.aabout.caption +msgctxt "tmainform.aabout.caption" +msgid "About" +msgstr "O aplikaci" + +#: tmainform.aexit.caption +msgid "Exit" +msgstr "Odejít" + +#: tmainform.afullscreen.caption +msgid "Fullscreen mode" +msgstr "Režim celé obrazovky" + +#: tmainform.anewgame.caption +msgctxt "TMAINFORM.ANEWGAME.CAPTION" +msgid "New game" +msgstr "Nová hra" + +#: tmainform.ashowmap.caption +msgid "Show map" +msgstr "Ukázat mapu" + +#: tmainform.ashowrawimagedesc.caption +msgid "Show RawImage Description" +msgstr "Ukázat popis RawImage" + +#: tmainform.caption +msgctxt "tmainform.caption" +msgid "Tunneler" +msgstr "Tunneler" + +#: tmainform.menuitem1.caption +msgid "Game" +msgstr "Hra" + +#: tmainform.menuitem4.caption +msgid "View" +msgstr "Zobrazení" + +#: tmapform.caption +msgid "Map" +msgstr "Mapa" + +#: ucore.splayer +msgctxt "ucore.splayer" +msgid "Player" +msgstr "Hráč" + #: uengine.splayer msgctxt "uengine.splayer" msgid "Player" diff -Nru tunneler-1.0.0/Languages/Tunneler.po tunneler-1.0.0/Languages/Tunneler.po --- tunneler-1.0.0/Languages/Tunneler.po 2019-04-22 22:46:34.000000000 +0000 +++ tunneler-1.0.0/Languages/Tunneler.po 2019-04-24 10:46:39.000000000 +0000 @@ -31,116 +31,140 @@ msgid "Real-time digging tank battle game. This is recreation of legend MS-DOS game written in Pascal." msgstr "" -#: tgameresultform.caption -msgid "Game result" +#: tformnewgame.buttoncancel.caption +msgctxt "tformnewgame.buttoncancel.caption" +msgid "Cancel" msgstr "" -#: tmainform.aabout.caption -msgctxt "tmainform.aabout.caption" -msgid "About" +#: tformnewgame.buttonstart.caption +msgctxt "tformnewgame.buttonstart.caption" +msgid "Start" msgstr "" -#: tmainform.aexit.caption -msgid "Exit" +#: tformnewgame.caption +msgctxt "tformnewgame.caption" +msgid "New game" msgstr "" -#: tmainform.afullscreen.caption -msgid "Fullscreen mode" +#: tformnewgame.checkboxenabled.caption +msgid "Enabled" msgstr "" -#: tmainform.anewgame.caption -msgctxt "tmainform.anewgame.caption" -msgid "New game" +#: tformnewgame.groupbox1.caption +msgctxt "tformnewgame.groupbox1.caption" +msgid "Control keys" msgstr "" -#: tmainform.ashowmap.caption -msgid "Show map" +#: tformnewgame.label1.caption +msgctxt "tformnewgame.label1.caption" +msgid "Players:" msgstr "" -#: tmainform.ashowrawimagedesc.caption -msgid "Show RawImage Description" +#: tformnewgame.label2.caption +msgctxt "tformnewgame.label2.caption" +msgid "Color 1:" msgstr "" -#: tmainform.caption -msgctxt "tmainform.caption" -msgid "Tunneler" +#: tformnewgame.label3.caption +msgctxt "tformnewgame.label3.caption" +msgid "Up:" msgstr "" -#: tmainform.menuitem1.caption -msgid "Game" +#: tformnewgame.label4.caption +msgctxt "tformnewgame.label4.caption" +msgid "Down:" msgstr "" -#: tmainform.menuitem4.caption -msgid "View" +#: tformnewgame.label5.caption +msgctxt "tformnewgame.label5.caption" +msgid "Left:" msgstr "" -#: tmapform.caption -msgid "Map" +#: tformnewgame.label6.caption +msgctxt "tformnewgame.label6.caption" +msgid "Right:" msgstr "" -#: tnewgameform.buttoncancel.caption -msgid "Cancel" +#: tformnewgame.label7.caption +msgctxt "tformnewgame.label7.caption" +msgid "Shoot:" msgstr "" -#: tnewgameform.buttonstart.caption -msgid "Start" +#: tformnewgame.label8.caption +msgctxt "tformnewgame.label8.caption" +msgid "Name:" msgstr "" -#: tnewgameform.caption -msgctxt "tnewgameform.caption" -msgid "New game" +#: tformnewgame.label9.caption +msgctxt "tformnewgame.label9.caption" +msgid "Color 2:" msgstr "" -#: tnewgameform.groupbox1.caption -msgid "Control keys" +#: tformnewgame.listview1.columns[0].caption +msgctxt "tformnewgame.listview1.columns[0].caption" +msgid "Name" msgstr "" -#: tnewgameform.label1.caption -msgid "Players:" +#: tformnewgame.listview1.columns[1].caption +msgctxt "tformnewgame.listview1.columns[1].caption" +msgid "Color" msgstr "" -#: tnewgameform.label2.caption -msgid "Color 1:" +#: tformnewgame.listview1.columns[2].caption +msgctxt "tformnewgame.listview1.columns[2].caption" +msgid "Controls" msgstr "" -#: tnewgameform.label3.caption -msgid "Up:" +#: tgameresultform.caption +msgid "Game result" msgstr "" -#: tnewgameform.label4.caption -msgid "Down:" +#: tmainform.aabout.caption +msgctxt "tmainform.aabout.caption" +msgid "About" msgstr "" -#: tnewgameform.label5.caption -msgid "Left:" +#: tmainform.aexit.caption +msgid "Exit" msgstr "" -#: tnewgameform.label6.caption -msgid "Right:" +#: tmainform.afullscreen.caption +msgid "Fullscreen mode" msgstr "" -#: tnewgameform.label7.caption -msgid "Shoot:" +#: tmainform.anewgame.caption +msgctxt "tmainform.anewgame.caption" +msgid "New game" msgstr "" -#: tnewgameform.label8.caption -msgid "Name:" +#: tmainform.ashowmap.caption +msgid "Show map" msgstr "" -#: tnewgameform.label9.caption -msgid "Color 2:" +#: tmainform.ashowrawimagedesc.caption +msgid "Show RawImage Description" msgstr "" -#: tnewgameform.listview1.columns[0].caption -msgid "Name" +#: tmainform.caption +msgctxt "tmainform.caption" +msgid "Tunneler" msgstr "" -#: tnewgameform.listview1.columns[1].caption -msgid "Color" +#: tmainform.menuitem1.caption +msgid "Game" msgstr "" -#: tnewgameform.listview1.columns[2].caption -msgid "Controls" +#: tmainform.menuitem4.caption +msgid "View" +msgstr "" + +#: tmapform.caption +msgid "Map" +msgstr "" + +#: ucore.splayer +msgctxt "ucore.splayer" +msgid "Player" msgstr "" #: uengine.splayer diff -Nru tunneler-1.0.0/tunneler.lpi tunneler-1.0.0/tunneler.lpi --- tunneler-1.0.0/tunneler.lpi 2019-04-22 22:46:34.000000000 +0000 +++ tunneler-1.0.0/tunneler.lpi 2019-04-24 10:46:39.000000000 +0000 @@ -83,19 +83,19 @@ - + - + - + - + @@ -119,9 +119,9 @@ - + - + diff -Nru tunneler-1.0.0/tunneler.lpr tunneler-1.0.0/tunneler.lpr --- tunneler-1.0.0/tunneler.lpr 2019-04-22 22:46:34.000000000 +0000 +++ tunneler-1.0.0/tunneler.lpr 2019-04-24 10:46:39.000000000 +0000 @@ -10,7 +10,7 @@ Interfaces, // this includes the LCL widgetset Forms, TemplateGenerics, CoolTranslator, UPlatform, FileUtil, SysUtils, Common, - UNewGameForm, UMainForm, UMapForm, UGameResultForm, UCore + UFormNewGame, UMainForm, UMapForm, UGameResultForm, UCore { you can add units after this }; {$R *.res} @@ -32,7 +32,7 @@ Application.CreateForm(TCore, Core); Application.CreateForm(TMainForm, MainForm); Application.CreateForm(TMapForm, MapForm); - Application.CreateForm(TNewGameForm, NewGameForm); + Application.CreateForm(TFormNewGame, FormNewGame); Application.CreateForm(TGameResultForm, GameResultForm); {$IFDEF DEBUG} {$ENDIF}