From 315ab409ed76d6d1a85479183c031776de5ec204 Mon Sep 17 00:00:00 2001
From: sekelsenmat <sekelsenmat@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Wed, 28 Sep 2011 18:21:15 +0000
Subject: [PATCH] tappytux: Moves image loading to Form.OnCreate to be able to
 show error messages

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2031 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 applications/tappytux/gameconfigform.pas | 6 ++++++
 applications/tappytux/tappymodules.pas   | 8 ++++++--
 applications/tappytux/tappytux.lpi       | 4 ++++
 3 files changed, 16 insertions(+), 2 deletions(-)

diff --git a/applications/tappytux/gameconfigform.pas b/applications/tappytux/gameconfigform.pas
index 059e2d474..8e9de6e8c 100644
--- a/applications/tappytux/gameconfigform.pas
+++ b/applications/tappytux/gameconfigform.pas
@@ -108,8 +108,14 @@ begin
 end;
 
 procedure TformConfig.FormCreate(Sender: TObject);
+var
+  i: Integer;
 begin
   TranslateUI();
+
+  // Initialize modules
+  for i := 0 to GetModuleCount() do
+    GetModule(i).InitModule();
 end;
 
 procedure TformConfig.TranslateUI;
diff --git a/applications/tappytux/tappymodules.pas b/applications/tappytux/tappymodules.pas
index f6c75d7b8..62ba1a17b 100644
--- a/applications/tappytux/tappymodules.pas
+++ b/applications/tappytux/tappymodules.pas
@@ -23,6 +23,7 @@ type
     procedure TranslateTexts(ALanguage: Integer);
     procedure TranslateTextsToEnglish; virtual;
     procedure TranslateTextsToPortuguese; virtual;
+    procedure InitModule(); virtual;
     procedure StartNewGame(); virtual; abstract;
     procedure EndGame(); virtual; abstract;
   end;
@@ -73,8 +74,6 @@ begin
   imgLevel2 := TJPEGImage.Create;
   imgLevel3 := TJPEGImage.Create;
 
-  LoadImages();
-
   TranslateTexts(ID_ENGLISH);
 end;
 
@@ -119,6 +118,11 @@ begin
 
 end;
 
+procedure TTappyModule.InitModule;
+begin
+  LoadImages();
+end;
+
 initialization
   gTappyModules := TFPList.Create;
 finalization
diff --git a/applications/tappytux/tappytux.lpi b/applications/tappytux/tappytux.lpi
index aa6173b2a..671d3bdee 100644
--- a/applications/tappytux/tappytux.lpi
+++ b/applications/tappytux/tappytux.lpi
@@ -101,6 +101,10 @@
       <UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
     </SearchPaths>
     <Linking>
+      <Debugging>
+        <GenerateDebugInfo Value="True"/>
+        <GenerateDwarf Value="True"/>
+      </Debugging>
       <Options>
         <Win32>
           <GraphicApplication Value="True"/>