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

tappytux: Adds descriptions and translations to modules

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1933 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
sekelsenmat
2011-09-10 21:42:25 +00:00
parent f743387f69
commit 1c94c886bd
8 changed files with 227 additions and 100 deletions
Download Patch File Download Diff File Expand all files Collapse all files

49
applications/tappytux/gameconfigform.lfm
View File

@ -6,17 +6,14 @@ object Form1: TForm1
Caption = 'TappyTux Loader' Caption = 'TappyTux Loader'
ClientHeight = 436 ClientHeight = 436
ClientWidth = 582 ClientWidth = 582
OnCreate = FormCreate
LCLVersion = '0.9.31' LCLVersion = '0.9.31'
object comboGameType: TComboBox object comboGameType: TComboBox
Left = 17 Left = 17
Height = 23 Height = 21
Top = 38 Top = 38
Width = 100 Width = 100
ItemHeight = 15 ItemHeight = 0
Items.Strings = (
'Tappy Words'
'Tappy Math'
)
OnChange = comboGameTypeChange OnChange = comboGameTypeChange
TabOrder = 0 TabOrder = 0
Text = 'GameType' Text = 'GameType'
@ -31,9 +28,9 @@ object Form1: TForm1
end end
object listWordlist: TLabel object listWordlist: TLabel
Left = 208 Left = 208
Height = 16 Height = 17
Top = 16 Top = 16
Width = 79 Width = 93
Caption = 'Select Wordlist' Caption = 'Select Wordlist'
ParentColor = False ParentColor = False
end end
@ -54,17 +51,17 @@ object Form1: TForm1
end end
object lblSettings: TLabel object lblSettings: TLabel
Left = 400 Left = 400
Height = 16 Height = 17
Top = 16 Top = 16
Width = 43 Width = 52
Caption = 'Settings' Caption = 'Settings'
ParentColor = False ParentColor = False
end end
object lblSound: TLabel object lblSound: TLabel
Left = 408 Left = 408
Height = 16 Height = 17
Top = 47 Top = 47
Width = 53 Width = 63
Caption = 'Sound FX' Caption = 'Sound FX'
Font.Style = [fsBold] Font.Style = [fsBold]
ParentColor = False ParentColor = False
@ -72,9 +69,9 @@ object Form1: TForm1
end end
object lblMusic: TLabel object lblMusic: TLabel
Left = 408 Left = 408
Height = 16 Height = 17
Top = 79 Top = 79
Width = 33 Width = 40
Caption = 'Music' Caption = 'Music'
Font.Style = [fsBold] Font.Style = [fsBold]
ParentColor = False ParentColor = False
@ -82,9 +79,9 @@ object Form1: TForm1
end end
object lblLevel: TLabel object lblLevel: TLabel
Left = 408 Left = 408
Height = 16 Height = 17
Top = 111 Top = 111
Width = 79 Width = 93
Caption = 'Starting Level' Caption = 'Starting Level'
Font.Style = [fsBold] Font.Style = [fsBold]
ParentColor = False ParentColor = False
@ -92,10 +89,10 @@ object Form1: TForm1
end end
object comboSound: TComboBox object comboSound: TComboBox
Left = 493 Left = 493
Height = 23 Height = 21
Top = 40 Top = 40
Width = 68 Width = 68
ItemHeight = 15 ItemHeight = 0
Items.Strings = ( Items.Strings = (
'ON' 'ON'
'OFF' 'OFF'
@ -105,10 +102,10 @@ object Form1: TForm1
end end
object comboMusic: TComboBox object comboMusic: TComboBox
Left = 493 Left = 493
Height = 23 Height = 21
Top = 72 Top = 72
Width = 68 Width = 68
ItemHeight = 15 ItemHeight = 0
Items.Strings = ( Items.Strings = (
'ON' 'ON'
'OFF' 'OFF'
@ -118,10 +115,10 @@ object Form1: TForm1
end end
object comboLevel: TComboBox object comboLevel: TComboBox
Left = 493 Left = 493
Height = 23 Height = 21
Top = 104 Top = 104
Width = 68 Width = 68
ItemHeight = 15 ItemHeight = 0
Items.Strings = ( Items.Strings = (
'1' '1'
'2' '2'
@ -139,9 +136,9 @@ object Form1: TForm1
end end
object lblCredits: TLabel object lblCredits: TLabel
Left = 400 Left = 400
Height = 16 Height = 17
Top = 168 Top = 168
Width = 38 Width = 46
Caption = 'Credits' Caption = 'Credits'
ParentColor = False ParentColor = False
end end
@ -188,9 +185,9 @@ object Form1: TForm1
end end
object lblGameType: TLabel object lblGameType: TLabel
Left = 16 Left = 16
Height = 16 Height = 17
Top = 16 Top = 16
Width = 58 Width = 67
Caption = 'GameType' Caption = 'GameType'
ParentColor = False ParentColor = False
end end

24
applications/tappytux/gameconfigform.pas
View File

@ -6,7 +6,8 @@ interface
uses uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls, Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
ExtCtrls; ExtCtrls,
tappymodules;
type type
@ -30,10 +31,12 @@ type
memoGameType: TMemo; memoGameType: TMemo;
memoCredits: TMemo; memoCredits: TMemo;
procedure comboGameTypeChange(Sender: TObject); procedure comboGameTypeChange(Sender: TObject);
procedure FormCreate(Sender: TObject);
private private
{ private declarations } { private declarations }
public public
{ public declarations } { public declarations }
procedure TranslateUI();
end; end;
var var
@ -67,5 +70,24 @@ begin
end; end;
procedure TForm1.FormCreate(Sender: TObject);
begin
TranslateUI();
end;
procedure TForm1.TranslateUI;
var
i: Integer;
lModule: TTappyModule;
begin
comboGameType.Items.Clear;
for i := 0 to GetModuleCount() - 1 do
begin
lModule := GetModule(i);
comboGameType.Items.Add(lModule.ShortDescription);
end;
comboGameType.ItemIndex := 0;
end;
end. end.

44
applications/tappytux/mod_tappymath.pas Normal file
View File

@ -0,0 +1,44 @@
unit mod_tappymath;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils,
tappymodules;
type
{ TTappyMath }
TTappyMath = class(TTappyModule)
public
constructor Create; override;
procedure TranslateTextsToEnglish; override;
procedure TranslateTextsToPortuguese; override;
end;
implementation
{ TTappyWords }
constructor TTappyMath.Create;
begin
inherited Create;
end;
procedure TTappyMath.TranslateTextsToEnglish;
begin
ShortDescription := 'TappyMath - A game to learn arithmetics';
end;
procedure TTappyMath.TranslateTextsToPortuguese;
begin
ShortDescription := 'TappyMath - Um jogo para aprender aritmética';
end;
initialization
AddModule(TTappyMath.Create);
end.

25
applications/tappytux/mod_tappywords.pas
View File

@ -9,11 +9,36 @@ uses
tappymodules; tappymodules;
type type
{ TTappyWords }
TTappyWords = class(TTappyModule) TTappyWords = class(TTappyModule)
public public
constructor Create; override;
procedure TranslateTextsToEnglish; override;
procedure TranslateTextsToPortuguese; override;
end; end;
implementation implementation
{ TTappyWords }
constructor TTappyWords.Create;
begin
inherited Create;
end;
procedure TTappyWords.TranslateTextsToEnglish;
begin
ShortDescription := 'TappyWords - A game to learn typing and ortography';
end;
procedure TTappyWords.TranslateTextsToPortuguese;
begin
ShortDescription := 'TappyWords - Um jogo para aprender a digitar e ortografia';
end;
initialization
AddModule(TTappyWords.Create);
end. end.

3
applications/tappytux/tappyconfig.pas
View File

@ -20,6 +20,9 @@ type
const const
STR_LINUX_RESOURCES_FOLDER = '/usr/share/tappytux/'; STR_LINUX_RESOURCES_FOLDER = '/usr/share/tappytux/';
ID_ENGLISH = 0;
ID_PORTUGUESE = 1;
var var
vTappyTuxConfig: TTappyTuxConfig; vTappyTuxConfig: TTappyTuxConfig;

27
applications/tappytux/tappymodules.pas
View File

@ -5,7 +5,8 @@ unit tappymodules;
interface interface
uses uses
Classes, SysUtils, Graphics; Classes, SysUtils, Graphics,
tappyconfig;
type type
@ -14,9 +15,13 @@ type
TTappyModule = class TTappyModule = class
public public
imgBackground: TPortableNetworkGraphic; imgBackground: TPortableNetworkGraphic;
ShortDescription, LongDescription: string;
constructor Create; virtual; constructor Create; virtual;
destructor Destroy; override; destructor Destroy; override;
procedure LoadImages; virtual; procedure LoadImages; virtual;
procedure TranslateTexts(ALanguage: Integer);
procedure TranslateTextsToEnglish; virtual;
procedure TranslateTextsToPortuguese; virtual;
end; end;
procedure AddModule(AModule: TTappyModule); procedure AddModule(AModule: TTappyModule);
@ -61,6 +66,8 @@ end;
constructor TTappyModule.Create; constructor TTappyModule.Create;
begin begin
inherited Create; inherited Create;
TranslateTexts(ID_ENGLISH);
end; end;
destructor TTappyModule.Destroy; destructor TTappyModule.Destroy;
@ -91,6 +98,24 @@ begin
end; end;
procedure TTappyModule.TranslateTexts(ALanguage: Integer);
begin
case ALanguage of
ID_ENGLISH: TranslateTextsToEnglish();
ID_PORTUGUESE: TranslateTextsToEnglish();
end;
end;
procedure TTappyModule.TranslateTextsToEnglish;
begin
end;
procedure TTappyModule.TranslateTextsToPortuguese;
begin
end;
initialization initialization
gTappyModules := TFPList.Create; gTappyModules := TFPList.Create;
finalization finalization

153
applications/tappytux/tappytux.lpi
View File

@ -34,7 +34,7 @@
<PackageName Value="LCL"/> <PackageName Value="LCL"/>
</Item1> </Item1>
</RequiredPackages> </RequiredPackages>
<Units Count="8"> <Units Count="9">
<Unit0> <Unit0>
<Filename Value="tappytux.lpr"/> <Filename Value="tappytux.lpr"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
@ -49,9 +49,9 @@
<UnitName Value="gameconfigform"/> <UnitName Value="gameconfigform"/>
<EditorIndex Value="0"/> <EditorIndex Value="0"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="1"/> <TopLine Value="67"/>
<CursorPos X="1" Y="1"/> <CursorPos X="17" Y="75"/>
<FoldState Value=" T8W211?"/> <FoldState Value=" T8Y21,"/>
<UsageCount Value="27"/> <UsageCount Value="27"/>
<Loaded Value="True"/> <Loaded Value="True"/>
<LoadedDesigner Value="True"/> <LoadedDesigner Value="True"/>
@ -62,7 +62,7 @@
<ComponentName Value="Form2"/> <ComponentName Value="Form2"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="gameplayform"/> <UnitName Value="gameplayform"/>
<EditorIndex Value="1"/> <EditorIndex Value="2"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<CursorPos X="1" Y="19"/> <CursorPos X="1" Y="19"/>
@ -74,10 +74,10 @@
<Filename Value="tappyconfig.pas"/> <Filename Value="tappyconfig.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="tappyconfig"/> <UnitName Value="tappyconfig"/>
<EditorIndex Value="3"/> <EditorIndex Value="4"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="3"/> <TopLine Value="16"/>
<CursorPos X="1" Y="16"/> <CursorPos X="21" Y="24"/>
<UsageCount Value="21"/> <UsageCount Value="21"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit3> </Unit3>
@ -85,8 +85,7 @@
<Filename Value="tappydrawer.pas"/> <Filename Value="tappydrawer.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="tappydrawer"/> <UnitName Value="tappydrawer"/>
<IsVisibleTab Value="True"/> <EditorIndex Value="5"/>
<EditorIndex Value="4"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="272"/> <TopLine Value="272"/>
<CursorPos X="70" Y="291"/> <CursorPos X="70" Y="291"/>
@ -97,10 +96,10 @@
<Filename Value="tappygamedata.pas"/> <Filename Value="tappygamedata.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="tappygamedata"/> <UnitName Value="tappygamedata"/>
<EditorIndex Value="2"/> <EditorIndex Value="3"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="14"/> <TopLine Value="14"/>
<CursorPos X="5" Y="21"/> <CursorPos X="24" Y="23"/>
<UsageCount Value="21"/> <UsageCount Value="21"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit5> </Unit5>
@ -108,10 +107,10 @@
<Filename Value="mod_tappywords.pas"/> <Filename Value="mod_tappywords.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="mod_tappywords"/> <UnitName Value="mod_tappywords"/>
<EditorIndex Value="5"/> <EditorIndex Value="6"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="1"/> <TopLine Value="6"/>
<CursorPos X="15" Y="9"/> <CursorPos X="1" Y="20"/>
<UsageCount Value="21"/> <UsageCount Value="21"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit6> </Unit6>
@ -119,134 +118,146 @@
<Filename Value="tappymodules.pas"/> <Filename Value="tappymodules.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="tappymodules"/> <UnitName Value="tappymodules"/>
<EditorIndex Value="6"/> <IsVisibleTab Value="True"/>
<EditorIndex Value="7"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="68"/> <TopLine Value="66"/>
<CursorPos X="47" Y="76"/> <CursorPos X="30" Y="70"/>
<UsageCount Value="21"/> <UsageCount Value="21"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit7> </Unit7>
<Unit8>
<Filename Value="mod_tappymath.pas"/>
<IsPartOfProject Value="True"/>
<UnitName Value="mod_tappymath"/>
<EditorIndex Value="1"/>
<WindowIndex Value="0"/>
<TopLine Value="19"/>
<CursorPos X="3" Y="38"/>
<UsageCount Value="20"/>
<Loaded Value="True"/>
</Unit8>
</Units> </Units>
<JumpHistory Count="30" HistoryIndex="29"> <JumpHistory Count="30" HistoryIndex="29">
<Position1> <Position1>
<Filename Value="gameconfigform.pas"/> <Filename Value="tappyconfig.pas"/>
<Caret Line="12" Column="40" TopLine="2"/> <Caret Line="8" Column="37" TopLine="1"/>
</Position1> </Position1>
<Position2> <Position2>
<Filename Value="gameconfigform.pas"/> <Filename Value="tappydrawer.pas"/>
<Caret Line="63" Column="62" TopLine="43"/> <Caret Line="33" Column="3" TopLine="27"/>
</Position2> </Position2>
<Position3> <Position3>
<Filename Value="gameconfigform.pas"/> <Filename Value="tappymodules.pas"/>
<Caret Line="65" Column="62" TopLine="45"/> <Caret Line="17" Column="11" TopLine="5"/>
</Position3> </Position3>
<Position4> <Position4>
<Filename Value="gameconfigform.pas"/> <Filename Value="tappymodules.pas"/>
<Caret Line="64" Column="62" TopLine="44"/> <Caret Line="18" Column="36" TopLine="14"/>
</Position4> </Position4>
<Position5> <Position5>
<Filename Value="tappygamedata.pas"/> <Filename Value="tappymodules.pas"/>
<Caret Line="11" Column="1" TopLine="1"/> <Caret Line="19" Column="34" TopLine="5"/>
</Position5> </Position5>
<Position6> <Position6>
<Filename Value="tappygamedata.pas"/> <Filename Value="tappymodules.pas"/>
<Caret Line="276" Column="1" TopLine="251"/> <Caret Line="20" Column="41" TopLine="6"/>
</Position6> </Position6>
<Position7> <Position7>
<Filename Value="tappydrawer.pas"/> <Filename Value="tappydrawer.pas"/>
<Caret Line="1" Column="1" TopLine="1"/> <Caret Line="165" Column="46" TopLine="152"/>
</Position7> </Position7>
<Position8> <Position8>
<Filename Value="tappydrawer.pas"/> <Filename Value="tappymodules.pas"/>
<Caret Line="44" Column="7" TopLine="32"/> <Caret Line="50" Column="33" TopLine="33"/>
</Position8> </Position8>
<Position9> <Position9>
<Filename Value="tappydrawer.pas"/> <Filename Value="tappymodules.pas"/>
<Caret Line="68" Column="5" TopLine="55"/> <Caret Line="8" Column="30" TopLine="1"/>
</Position9> </Position9>
<Position10> <Position10>
<Filename Value="tappydrawer.pas"/> <Filename Value="tappymodules.pas"/>
<Caret Line="89" Column="5" TopLine="76"/> <Caret Line="38" Column="50" TopLine="16"/>
</Position10> </Position10>
<Position11> <Position11>
<Filename Value="tappydrawer.pas"/> <Filename Value="tappydrawer.pas"/>
<Caret Line="54" Column="15" TopLine="40"/> <Caret Line="10" Column="43" TopLine="1"/>
</Position11> </Position11>
<Position12> <Position12>
<Filename Value="tappydrawer.pas"/> <Filename Value="tappydrawer.pas"/>
<Caret Line="40" Column="15" TopLine="27"/> <Caret Line="187" Column="5" TopLine="172"/>
</Position12> </Position12>
<Position13> <Position13>
<Filename Value="tappymodules.pas"/> <Filename Value="tappymodules.pas"/>
<Caret Line="15" Column="45" TopLine="1"/> <Caret Line="17" Column="31" TopLine="1"/>
</Position13> </Position13>
<Position14> <Position14>
<Filename Value="tappyconfig.pas"/> <Filename Value="tappymodules.pas"/>
<Caret Line="8" Column="37" TopLine="1"/> <Caret Line="19" Column="35" TopLine="4"/>
</Position14> </Position14>
<Position15> <Position15>
<Filename Value="tappydrawer.pas"/> <Filename Value="tappydrawer.pas"/>
<Caret Line="33" Column="3" TopLine="27"/> <Caret Line="45" Column="1" TopLine="34"/>
</Position15> </Position15>
<Position16> <Position16>
<Filename Value="tappymodules.pas"/> <Filename Value="tappydrawer.pas"/>
<Caret Line="17" Column="11" TopLine="5"/> <Caret Line="291" Column="1" TopLine="272"/>
</Position16> </Position16>
<Position17> <Position17>
<Filename Value="tappymodules.pas"/> <Filename Value="tappydrawer.pas"/>
<Caret Line="18" Column="36" TopLine="14"/> <Caret Line="51" Column="57" TopLine="51"/>
</Position17> </Position17>
<Position18> <Position18>
<Filename Value="tappymodules.pas"/> <Filename Value="mod_tappywords.pas"/>
<Caret Line="19" Column="34" TopLine="5"/> <Caret Line="12" Column="24" TopLine="1"/>
</Position18> </Position18>
<Position19> <Position19>
<Filename Value="tappymodules.pas"/> <Filename Value="mod_tappywords.pas"/>
<Caret Line="20" Column="41" TopLine="6"/> <Caret Line="17" Column="11" TopLine="1"/>
</Position19> </Position19>
<Position20> <Position20>
<Filename Value="tappydrawer.pas"/> <Filename Value="mod_tappymath.pas"/>
<Caret Line="165" Column="46" TopLine="152"/> <Caret Line="16" Column="3" TopLine="1"/>
</Position20> </Position20>
<Position21> <Position21>
<Filename Value="tappymodules.pas"/> <Filename Value="mod_tappymath.pas"/>
<Caret Line="50" Column="33" TopLine="33"/> <Caret Line="15" Column="25" TopLine="9"/>
</Position21> </Position21>
<Position22> <Position22>
<Filename Value="tappymodules.pas"/> <Filename Value="tappymodules.pas"/>
<Caret Line="8" Column="30" TopLine="1"/> <Caret Line="21" Column="28" TopLine="8"/>
</Position22> </Position22>
<Position23> <Position23>
<Filename Value="tappymodules.pas"/> <Filename Value="tappymodules.pas"/>
<Caret Line="38" Column="50" TopLine="16"/> <Caret Line="98" Column="40" TopLine="93"/>
</Position23> </Position23>
<Position24> <Position24>
<Filename Value="tappydrawer.pas"/> <Filename Value="mod_tappywords.pas"/>
<Caret Line="10" Column="43" TopLine="1"/> <Caret Line="18" Column="24" TopLine="8"/>
</Position24> </Position24>
<Position25> <Position25>
<Filename Value="tappydrawer.pas"/> <Filename Value="mod_tappymath.pas"/>
<Caret Line="187" Column="5" TopLine="172"/> <Caret Line="18" Column="49" TopLine="9"/>
</Position25> </Position25>
<Position26> <Position26>
<Filename Value="tappymodules.pas"/> <Filename Value="gameconfigform.pas"/>
<Caret Line="17" Column="31" TopLine="1"/> <Caret Line="37" Column="29" TopLine="19"/>
</Position26> </Position26>
<Position27> <Position27>
<Filename Value="tappymodules.pas"/> <Filename Value="gameconfigform.pas"/>
<Caret Line="19" Column="35" TopLine="4"/> <Caret Line="76" Column="8" TopLine="55"/>
</Position27> </Position27>
<Position28> <Position28>
<Filename Value="tappydrawer.pas"/> <Filename Value="gameconfigform.pas"/>
<Caret Line="45" Column="1" TopLine="34"/> <Caret Line="79" Column="53" TopLine="58"/>
</Position28> </Position28>
<Position29> <Position29>
<Filename Value="tappydrawer.pas"/> <Filename Value="gameconfigform.pas"/>
<Caret Line="291" Column="1" TopLine="272"/> <Caret Line="10" Column="15" TopLine="1"/>
</Position29> </Position29>
<Position30> <Position30>
<Filename Value="tappydrawer.pas"/> <Filename Value="gameconfigform.pas"/>
<Caret Line="51" Column="57" TopLine="51"/> <Caret Line="78" Column="29" TopLine="61"/>
</Position30> </Position30>
</JumpHistory> </JumpHistory>
</ProjectOptions> </ProjectOptions>

2
applications/tappytux/tappytux.lpr
View File

@ -8,7 +8,7 @@ uses
{$ENDIF}{$ENDIF} {$ENDIF}{$ENDIF}
Interfaces, // this includes the LCL widgetset Interfaces, // this includes the LCL widgetset
Forms, gameconfigform, gameplayform, tappyconfig, tappydrawer, Forms, gameconfigform, gameplayform, tappyconfig, tappydrawer,
tappygamedata, mod_tappywords, tappymodules tappygamedata, mod_tappywords, tappymodules, mod_tappymath
{ you can add units after this }; { you can add units after this };
{$R *.res} {$R *.res}