pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

Most of the labels on "gameconfigform" and "gameplayform" were translated.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2229 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
denniscuflat
2012-01-05 01:08:45 +00:00
parent b61fa2502b
commit 988658df7c
3 changed files with 71 additions and 51 deletions
Download Patch File Download Diff File Expand all files Collapse all files

82
applications/tappytux/gameconfigform.lfm
View File

@ -1,7 +1,7 @@
object formConfig: TformConfig object formConfig: TformConfig
Left = 290 Left = 151
Height = 432 Height = 432
Top = 192 Top = 561
Width = 582 Width = 582
Caption = 'TappyTux Loader' Caption = 'TappyTux Loader'
ClientHeight = 432 ClientHeight = 432
@ -13,10 +13,10 @@ object formConfig: TformConfig
Visible = True Visible = True
object comboGameType: TComboBox object comboGameType: TComboBox
Left = 9 Left = 9
Height = 21 Height = 23
Top = 38 Top = 38
Width = 183 Width = 183
ItemHeight = 0 ItemHeight = 15
OnChange = comboGameTypeChange OnChange = comboGameTypeChange
TabOrder = 0 TabOrder = 0
Text = 'GameType' Text = 'GameType'
@ -31,9 +31,9 @@ object formConfig: TformConfig
end end
object labelWordlist: TLabel object labelWordlist: TLabel
Left = 212 Left = 212
Height = 17 Height = 16
Top = 16 Top = 16
Width = 93 Width = 79
Caption = 'Select Wordlist' Caption = 'Select Wordlist'
ParentColor = False ParentColor = False
end end
@ -47,37 +47,37 @@ object formConfig: TformConfig
end end
object labelSettings: TLabel object labelSettings: TLabel
Left = 432 Left = 432
Height = 17 Height = 16
Top = 16 Top = 16
Width = 52 Width = 43
Caption = 'Settings' Caption = 'Settings'
ParentColor = False ParentColor = False
end end
object lblSound: TLabel object lblSound: TLabel
Left = 367 Left = 368
Height = 17 Height = 16
Top = 72 Top = 80
Width = 63 Width = 53
Caption = 'Sound FX' Caption = 'Sound FX'
Font.Style = [fsBold] Font.Style = [fsBold]
ParentColor = False ParentColor = False
ParentFont = False ParentFont = False
end end
object lblMusic: TLabel object lblMusic: TLabel
Left = 367 Left = 368
Height = 17 Height = 16
Top = 104 Top = 112
Width = 40 Width = 33
Caption = 'Music' Caption = 'Music'
Font.Style = [fsBold] Font.Style = [fsBold]
ParentColor = False ParentColor = False
ParentFont = False ParentFont = False
end end
object lblLevel: TLabel object lblLevel: TLabel
Left = 367 Left = 368
Height = 17 Height = 16
Top = 132 Top = 144
Width = 93 Width = 79
Caption = 'Starting Level' Caption = 'Starting Level'
Font.Style = [fsBold] Font.Style = [fsBold]
ParentColor = False ParentColor = False
@ -85,10 +85,10 @@ object formConfig: TformConfig
end end
object comboSound: TComboBox object comboSound: TComboBox
Left = 464 Left = 464
Height = 21 Height = 23
Top = 68 Top = 72
Width = 104 Width = 104
ItemHeight = 0 ItemHeight = 15
Items.Strings = ( Items.Strings = (
'ON' 'ON'
'OFF' 'OFF'
@ -98,10 +98,10 @@ object formConfig: TformConfig
end end
object comboMusic: TComboBox object comboMusic: TComboBox
Left = 464 Left = 464
Height = 21 Height = 23
Top = 96 Top = 105
Width = 104 Width = 104
ItemHeight = 0 ItemHeight = 15
Items.Strings = ( Items.Strings = (
'ON' 'ON'
'OFF' 'OFF'
@ -111,10 +111,10 @@ object formConfig: TformConfig
end end
object comboLevel: TComboBox object comboLevel: TComboBox
Left = 464 Left = 464
Height = 21 Height = 23
Top = 128 Top = 137
Width = 104 Width = 104
ItemHeight = 0 ItemHeight = 15
Items.Strings = ( Items.Strings = (
'1' '1'
'2' '2'
@ -132,9 +132,9 @@ object formConfig: TformConfig
end end
object lblCredits: TLabel object lblCredits: TLabel
Left = 432 Left = 432
Height = 17 Height = 16
Top = 200 Top = 200
Width = 46 Width = 38
Caption = 'Credits' Caption = 'Credits'
ParentColor = False ParentColor = False
end end
@ -210,17 +210,17 @@ object formConfig: TformConfig
end end
object labelGameType: TLabel object labelGameType: TLabel
Left = 9 Left = 9
Height = 17 Height = 16
Top = 16 Top = 16
Width = 72 Width = 64
Caption = 'Game type:' Caption = 'Game Type:'
ParentColor = False ParentColor = False
end end
object lblLevel1: TLabel object lblLanguage: TLabel
Left = 367 Left = 367
Height = 17 Height = 16
Top = 46 Top = 47
Width = 66 Width = 54
Caption = 'Language' Caption = 'Language'
Font.Style = [fsBold] Font.Style = [fsBold]
ParentColor = False ParentColor = False
@ -228,10 +228,10 @@ object formConfig: TformConfig
end end
object comboLanguage: TComboBox object comboLanguage: TComboBox
Left = 464 Left = 464
Height = 21 Height = 23
Top = 42 Top = 40
Width = 104 Width = 104
ItemHeight = 0 ItemHeight = 15
ItemIndex = 0 ItemIndex = 0
Items.Strings = ( Items.Strings = (
'English' 'English'

28
applications/tappytux/gameconfigform.pas
View File

@ -25,7 +25,7 @@ type
comboLevel: TComboBox; comboLevel: TComboBox;
labelGameType: TLabel; labelGameType: TLabel;
labelWordlist: TLabel; labelWordlist: TLabel;
lblLevel1: TLabel; lblLanguage: TLabel;
labelSettings: TLabel; labelSettings: TLabel;
lblSound: TLabel; lblSound: TLabel;
lblMusic: TLabel; lblMusic: TLabel;
@ -78,15 +78,35 @@ begin
case comboLanguage.ItemIndex of case comboLanguage.ItemIndex of
0: // english 0: // english
begin begin
labelGameType.Caption := 'Game type:'; labelGameType.Caption := 'Game Type';
//labelWordlist.Caption := 'Select Wordlist';
labelSettings.Caption := 'Settings'; labelSettings.Caption := 'Settings';
lblLanguage.Caption := 'Language';
lblSound.Caption := 'SoundFX';
lblMusic.Caption := 'Music';
lblLevel.Caption := 'Starting Level';
lblCredits.Caption := 'Credits';
buttonLoad.Caption := 'Play'; buttonLoad.Caption := 'Play';
formTappyTuxGame.LabelLevels.Caption := 'Level';
formTappyTuxGame.LabelScore.Caption := 'Score';
formTappyTuxGame.LabelLives.Caption := 'Lives';
formTappyTuxGame.btnExit.Caption := 'Exit';
end; end;
1: // portuguese 1: // portuguese
begin begin
labelGameType.Caption := 'Tipo do jogo:'; labelGameType.Caption := 'Tipo de Jogo';
//labelWordlist.Caption := 'Selecione Lista de Palavras';
labelSettings.Caption := 'Configurações'; labelSettings.Caption := 'Configurações';
buttonLoad.Caption := 'Iniciar o Jogo'; lblLanguage.Caption := 'Idioma';
lblSound.Caption := 'Efeitos Sonoros';
lblMusic.Caption := 'Música';
lblLevel.Caption := 'Nível de início';
lblCredits.Caption := 'Créditos';
buttonLoad.Caption := 'Jogar';
formTappyTuxGame.LabelLevels.Caption := 'Nível';
formTappyTuxGame.LabelScore.Caption := 'Pontos';
formTappyTuxGame.LabelLives.Caption := 'Vidas';
formTappyTuxGame.btnExit.Caption := 'Sair';
end; end;
end; end;
end; end;

12
applications/tappytux/gameplayform.lfm
View File

@ -1,7 +1,7 @@
object formTappyTuxGame: TformTappyTuxGame object formTappyTuxGame: TformTappyTuxGame
Left = 388 Left = 362
Height = 425 Height = 425
Top = 172 Top = 361
Width = 621 Width = 621
Caption = 'Tappy Tux' Caption = 'Tappy Tux'
ClientHeight = 425 ClientHeight = 425
@ -22,7 +22,7 @@ object formTappyTuxGame: TformTappyTuxGame
end end
object Answer: TEdit object Answer: TEdit
Left = 104 Left = 104
Height = 22 Height = 23
Top = 392 Top = 392
Width = 514 Width = 514
OnKeyPress = AnswerKeyPress OnKeyPress = AnswerKeyPress
@ -84,7 +84,7 @@ object formTappyTuxGame: TformTappyTuxGame
end end
object Level: TEdit object Level: TEdit
Left = 8 Left = 8
Height = 22 Height = 23
Top = 64 Top = 64
Width = 76 Width = 76
ReadOnly = True ReadOnly = True
@ -92,7 +92,7 @@ object formTappyTuxGame: TformTappyTuxGame
end end
object Score: TEdit object Score: TEdit
Left = 8 Left = 8
Height = 22 Height = 23
Top = 152 Top = 152
Width = 76 Width = 76
ReadOnly = True ReadOnly = True
@ -100,7 +100,7 @@ object formTappyTuxGame: TformTappyTuxGame
end end
object Lives: TEdit object Lives: TEdit
Left = 8 Left = 8
Height = 22 Height = 23
Top = 232 Top = 232
Width = 76 Width = 76
ReadOnly = True ReadOnly = True