tappytux: Adds descriptions and translations to modules

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1933 8e941d3f-bd1b-0410-a28a-d453659cc2b4

applications/tappytux/tappymodules.pas

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