From 068d0c4144bd8bfea1a2b86f9d8652e78825effe Mon Sep 17 00:00:00 2001
From: denniscuflat <denniscuflat@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Sat, 10 Sep 2011 02:43:40 +0000
Subject: [PATCH] "TappyTux Loader" interface updated.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1930 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 applications/tappytux/gameconfigform.lfm | 47 ++++++++++++----
 applications/tappytux/gameconfigform.pas | 28 +++++++++-
 applications/tappytux/tappytux.lpi       | 71 ++++++++++++------------
 3 files changed, 98 insertions(+), 48 deletions(-)

diff --git a/applications/tappytux/gameconfigform.lfm b/applications/tappytux/gameconfigform.lfm
index 1ec8c278a..3992c8691 100644
--- a/applications/tappytux/gameconfigform.lfm
+++ b/applications/tappytux/gameconfigform.lfm
@@ -7,14 +7,6 @@ object Form1: TForm1
   ClientHeight = 436
   ClientWidth = 582
   LCLVersion = '0.9.31'
-  object lblGameType: TLabel
-    Left = 16
-    Height = 16
-    Top = 16
-    Width = 58
-    Caption = 'GameType'
-    ParentColor = False
-  end
   object comboGameType: TComboBox
     Left = 17
     Height = 23
@@ -25,6 +17,7 @@ object Form1: TForm1
       'Tappy Words'
       'Tappy Math'
     )
+    OnChange = comboGameTypeChange
     TabOrder = 0
     Text = 'GameType'
   end
@@ -46,10 +39,17 @@ object Form1: TForm1
   end
   object ltbWordlist: TListBox
     Left = 212
-    Height = 292
-    Top = 44
+    Height = 300
+    Top = 38
     Width = 132
-    ItemHeight = 0
+    Items.Strings = (
+      'English'
+      'German'
+      'Afrikaans'
+      'French'
+      'Portuguese'
+    )
+    ItemHeight = 15
     TabOrder = 2
   end
   object lblSettings: TLabel
@@ -150,7 +150,24 @@ object Form1: TForm1
     Height = 173
     Top = 189
     Width = 153
+    Lines.Strings = (
+      'Função 1:'
+      '     Nome 1.1'
+      ''
+      'Função 2:'
+      '     Nome 2.1'
+      '     Nome 2.2'
+      ''
+      'Função 3:'
+      '     Nome 3.1'
+      '     Nome 3.2'
+      '     Nome 3.3'
+      ''
+      'Função 4:'
+      '     Nome 4.1'
+    )
     ReadOnly = True
+    ScrollBars = ssAutoVertical
     TabOrder = 6
   end
   object btnLoad: TButton
@@ -169,4 +186,12 @@ object Form1: TForm1
     Caption = 'Wordlist Editor'
     TabOrder = 8
   end
+  object lblGameType: TLabel
+    Left = 16
+    Height = 16
+    Top = 16
+    Width = 58
+    Caption = 'GameType'
+    ParentColor = False
+  end
 end
diff --git a/applications/tappytux/gameconfigform.pas b/applications/tappytux/gameconfigform.pas
index 847f9b482..557e80fc0 100644
--- a/applications/tappytux/gameconfigform.pas
+++ b/applications/tappytux/gameconfigform.pas
@@ -5,7 +5,8 @@ unit gameconfigform;
 interface
 
 uses
-  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;
+  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
+  ExtCtrls;
 
 type
 
@@ -28,6 +29,7 @@ type
     ltbWordlist: TListBox;
     memoGameType: TMemo;
     memoCredits: TMemo;
+    procedure comboGameTypeChange(Sender: TObject);
   private
     { private declarations }
   public
@@ -41,5 +43,29 @@ implementation
 
 {$R *.lfm}
 
+{ TForm1 }
+
+procedure TForm1.comboGameTypeChange(Sender: TObject);
+begin
+
+  Case comboGameType.itemIndex of
+  0: begin
+    memoGameType.Clear;
+    memoGameType.Lines.Add('Description: <Descrição do TappyWords>');
+    memoGameType.Lines.Add('');
+    memoGameType.Lines.Add('Hint: <Alguma dica para TappyWords>');
+    end;
+
+  1: begin
+    memoGameType.Clear;
+    memoGameType.Lines.Add('Description: <Descrição do TappyMath>');
+    memoGameType.Lines.Add('');
+    memoGameType.Lines.Add('Hint: <Alguma dica para TappyMath>');
+    end;
+
+  end;
+
+end;
+
 end.
 
diff --git a/applications/tappytux/tappytux.lpi b/applications/tappytux/tappytux.lpi
index edf4e1676..64bc72d60 100644
--- a/applications/tappytux/tappytux.lpi
+++ b/applications/tappytux/tappytux.lpi
@@ -39,7 +39,7 @@
         <Filename Value="tappytux.lpr"/>
         <IsPartOfProject Value="True"/>
         <UnitName Value="tappytux"/>
-        <UsageCount Value="23"/>
+        <UsageCount Value="26"/>
       </Unit0>
       <Unit1>
         <Filename Value="gameconfigform.pas"/>
@@ -50,10 +50,10 @@
         <IsVisibleTab Value="True"/>
         <EditorIndex Value="0"/>
         <WindowIndex Value="0"/>
-        <TopLine Value="2"/>
-        <CursorPos X="40" Y="12"/>
-        <FoldState Value=" T7DBL T8U211:"/>
-        <UsageCount Value="23"/>
+        <TopLine Value="44"/>
+        <CursorPos X="62" Y="64"/>
+        <FoldState Value=" T7EBM T8W211X"/>
+        <UsageCount Value="26"/>
         <Loaded Value="True"/>
         <LoadedDesigner Value="True"/>
       </Unit1>
@@ -67,8 +67,7 @@
         <WindowIndex Value="0"/>
         <TopLine Value="3"/>
         <CursorPos X="26" Y="26"/>
-        <FoldState Value=" T8D21;"/>
-        <UsageCount Value="23"/>
+        <UsageCount Value="26"/>
         <Loaded Value="True"/>
         <LoadedDesigner Value="True"/>
       </Unit2>
@@ -76,47 +75,47 @@
     <JumpHistory Count="30" HistoryIndex="29">
       <Position1>
         <Filename Value="gameconfigform.pas"/>
-        <Caret Line="50" Column="3" TopLine="32"/>
+        <Caret Line="45" Column="36" TopLine="31"/>
       </Position1>
       <Position2>
         <Filename Value="gameconfigform.pas"/>
-        <Caret Line="51" Column="3" TopLine="33"/>
+        <Caret Line="51" Column="55" TopLine="35"/>
       </Position2>
       <Position3>
         <Filename Value="gameconfigform.pas"/>
-        <Caret Line="50" Column="3" TopLine="32"/>
+        <Caret Line="49" Column="56" TopLine="35"/>
       </Position3>
       <Position4>
         <Filename Value="gameconfigform.pas"/>
-        <Caret Line="45" Column="36" TopLine="31"/>
+        <Caret Line="57" Column="1" TopLine="35"/>
       </Position4>
       <Position5>
         <Filename Value="gameconfigform.pas"/>
-        <Caret Line="51" Column="55" TopLine="35"/>
+        <Caret Line="49" Column="56" TopLine="35"/>
       </Position5>
       <Position6>
         <Filename Value="gameconfigform.pas"/>
-        <Caret Line="49" Column="56" TopLine="35"/>
+        <Caret Line="47" Column="19" TopLine="35"/>
       </Position6>
       <Position7>
         <Filename Value="gameconfigform.pas"/>
-        <Caret Line="57" Column="1" TopLine="35"/>
+        <Caret Line="51" Column="55" TopLine="35"/>
       </Position7>
       <Position8>
         <Filename Value="gameconfigform.pas"/>
-        <Caret Line="49" Column="56" TopLine="35"/>
+        <Caret Line="53" Column="55" TopLine="37"/>
       </Position8>
       <Position9>
         <Filename Value="gameconfigform.pas"/>
-        <Caret Line="47" Column="19" TopLine="35"/>
+        <Caret Line="50" Column="59" TopLine="37"/>
       </Position9>
       <Position10>
         <Filename Value="gameconfigform.pas"/>
-        <Caret Line="51" Column="55" TopLine="35"/>
+        <Caret Line="55" Column="1" TopLine="37"/>
       </Position10>
       <Position11>
         <Filename Value="gameconfigform.pas"/>
-        <Caret Line="53" Column="55" TopLine="37"/>
+        <Caret Line="54" Column="92" TopLine="37"/>
       </Position11>
       <Position12>
         <Filename Value="gameconfigform.pas"/>
@@ -124,75 +123,75 @@
       </Position12>
       <Position13>
         <Filename Value="gameconfigform.pas"/>
-        <Caret Line="55" Column="1" TopLine="37"/>
+        <Caret Line="53" Column="21" TopLine="37"/>
       </Position13>
       <Position14>
         <Filename Value="gameconfigform.pas"/>
-        <Caret Line="54" Column="92" TopLine="37"/>
+        <Caret Line="50" Column="29" TopLine="37"/>
       </Position14>
       <Position15>
         <Filename Value="gameconfigform.pas"/>
-        <Caret Line="50" Column="59" TopLine="37"/>
+        <Caret Line="56" Column="92" TopLine="37"/>
       </Position15>
       <Position16>
         <Filename Value="gameconfigform.pas"/>
-        <Caret Line="53" Column="21" TopLine="37"/>
+        <Caret Line="50" Column="29" TopLine="37"/>
       </Position16>
       <Position17>
         <Filename Value="gameconfigform.pas"/>
-        <Caret Line="50" Column="29" TopLine="37"/>
+        <Caret Line="55" Column="55" TopLine="37"/>
       </Position17>
       <Position18>
         <Filename Value="gameconfigform.pas"/>
-        <Caret Line="56" Column="92" TopLine="37"/>
+        <Caret Line="50" Column="31" TopLine="37"/>
       </Position18>
       <Position19>
         <Filename Value="gameconfigform.pas"/>
-        <Caret Line="50" Column="29" TopLine="37"/>
+        <Caret Line="53" Column="33" TopLine="37"/>
       </Position19>
       <Position20>
         <Filename Value="gameconfigform.pas"/>
-        <Caret Line="55" Column="55" TopLine="37"/>
+        <Caret Line="55" Column="41" TopLine="37"/>
       </Position20>
       <Position21>
         <Filename Value="gameconfigform.pas"/>
-        <Caret Line="50" Column="31" TopLine="37"/>
+        <Caret Line="56" Column="6" TopLine="38"/>
       </Position21>
       <Position22>
         <Filename Value="gameconfigform.pas"/>
-        <Caret Line="53" Column="33" TopLine="37"/>
+        <Caret Line="40" Column="41" TopLine="37"/>
       </Position22>
       <Position23>
         <Filename Value="gameconfigform.pas"/>
-        <Caret Line="55" Column="41" TopLine="37"/>
+        <Caret Line="23" Column="15" TopLine="1"/>
       </Position23>
       <Position24>
         <Filename Value="gameconfigform.pas"/>
-        <Caret Line="56" Column="6" TopLine="38"/>
+        <Caret Line="17" Column="19" TopLine="12"/>
       </Position24>
       <Position25>
         <Filename Value="gameconfigform.pas"/>
-        <Caret Line="40" Column="41" TopLine="37"/>
+        <Caret Line="33" Column="24" TopLine="24"/>
       </Position25>
       <Position26>
         <Filename Value="gameconfigform.pas"/>
-        <Caret Line="23" Column="15" TopLine="1"/>
+        <Caret Line="5" Column="32" TopLine="2"/>
       </Position26>
       <Position27>
         <Filename Value="gameconfigform.pas"/>
-        <Caret Line="17" Column="19" TopLine="12"/>
+        <Caret Line="12" Column="40" TopLine="2"/>
       </Position27>
       <Position28>
         <Filename Value="gameconfigform.pas"/>
-        <Caret Line="33" Column="24" TopLine="24"/>
+        <Caret Line="63" Column="62" TopLine="43"/>
       </Position28>
       <Position29>
         <Filename Value="gameconfigform.pas"/>
-        <Caret Line="5" Column="32" TopLine="2"/>
+        <Caret Line="65" Column="62" TopLine="45"/>
       </Position29>
       <Position30>
         <Filename Value="gameconfigform.pas"/>
-        <Caret Line="12" Column="40" TopLine="2"/>
+        <Caret Line="64" Column="62" TopLine="44"/>
       </Position30>
     </JumpHistory>
   </ProjectOptions>