From b0272c01fd1b7163ee112c7fa8efc44c96c9ab9f Mon Sep 17 00:00:00 2001
From: denniscuflat <denniscuflat@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Wed, 14 Sep 2011 01:24:06 +0000
Subject: [PATCH] User is now able to input answers in gameplayform.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1941 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 applications/tappytux/gameconfigform.pas |   2 +-
 applications/tappytux/gameplayform.lfm   |  13 +++
 applications/tappytux/gameplayform.pas   |  12 +++
 applications/tappytux/tappytux.lpi       | 119 ++++++++++++-----------
 4 files changed, 86 insertions(+), 60 deletions(-)

diff --git a/applications/tappytux/gameconfigform.pas b/applications/tappytux/gameconfigform.pas
index b13a4e671..bb736de05 100644
--- a/applications/tappytux/gameconfigform.pas
+++ b/applications/tappytux/gameconfigform.pas
@@ -76,8 +76,8 @@ end;
 
 procedure TForm1.btnLoadClick(Sender: TObject);
 begin
-  Hide;
   Form2.Show;
+  Hide;
 
 end;
 
diff --git a/applications/tappytux/gameplayform.lfm b/applications/tappytux/gameplayform.lfm
index 6d7ff3f86..4bd206fe9 100644
--- a/applications/tappytux/gameplayform.lfm
+++ b/applications/tappytux/gameplayform.lfm
@@ -23,6 +23,7 @@ object Form2: TForm2
     Height = 23
     Top = 392
     Width = 514
+    OnKeyPress = Edit1KeyPress
     TabOrder = 1
   end
   object Image1: TImage
@@ -1546,4 +1547,16 @@ object Form2: TForm2
     ReadOnly = True
     TabOrder = 4
   end
+  object Memo1: TMemo
+    Left = 383
+    Height = 181
+    Top = 76
+    Width = 130
+    Lines.Strings = (
+      '[TESTE]'
+      'Palavras escritas:'
+      ''
+    )
+    TabOrder = 5
+  end
 end
diff --git a/applications/tappytux/gameplayform.pas b/applications/tappytux/gameplayform.pas
index 7791c288c..c6ac77db0 100644
--- a/applications/tappytux/gameplayform.pas
+++ b/applications/tappytux/gameplayform.pas
@@ -22,7 +22,9 @@ type
     Label1: TLabel;
     Label2: TLabel;
     Label3: TLabel;
+    Memo1: TMemo;
     procedure btnExitClick(Sender: TObject);
+    procedure Edit1KeyPress(Sender: TObject; var Key: char);
     procedure FormCreate(Sender: TObject);
   private
     { private declarations }
@@ -51,10 +53,20 @@ begin
 
 end;
 
+procedure TForm2.Edit1KeyPress(Sender: TObject; var Key: char);
+begin
+  if Key = #13 then
+  begin
+    Form2.Memo1.Lines.Add(Edit1.Text);
+    Form2.Edit1.Clear;
+  end;
+end;
+
 procedure TForm2.FormCreate(Sender: TObject);
 begin
 
 end;
 
+
 end.
 
diff --git a/applications/tappytux/tappytux.lpi b/applications/tappytux/tappytux.lpi
index 336dfe0c7..b04b69b5b 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="34"/>
+        <UsageCount Value="35"/>
       </Unit0>
       <Unit1>
         <Filename Value="gameconfigform.pas"/>
@@ -50,10 +50,11 @@
         <IsVisibleTab Value="True"/>
         <EditorIndex Value="0"/>
         <WindowIndex Value="0"/>
-        <TopLine Value="96"/>
-        <CursorPos X="70" Y="97"/>
-        <UsageCount Value="34"/>
+        <TopLine Value="68"/>
+        <CursorPos X="16" Y="85"/>
+        <UsageCount Value="35"/>
         <Loaded Value="True"/>
+        <LoadedDesigner Value="True"/>
       </Unit1>
       <Unit2>
         <Filename Value="gameplayform.pas"/>
@@ -63,9 +64,9 @@
         <UnitName Value="gameplayform"/>
         <EditorIndex Value="1"/>
         <WindowIndex Value="0"/>
-        <TopLine Value="28"/>
-        <CursorPos X="83" Y="42"/>
-        <UsageCount Value="34"/>
+        <TopLine Value="40"/>
+        <CursorPos X="48" Y="60"/>
+        <UsageCount Value="35"/>
         <Loaded Value="True"/>
         <LoadedDesigner Value="True"/>
       </Unit2>
@@ -77,7 +78,7 @@
         <WindowIndex Value="0"/>
         <TopLine Value="1"/>
         <CursorPos X="21" Y="24"/>
-        <UsageCount Value="28"/>
+        <UsageCount Value="29"/>
         <Loaded Value="True"/>
       </Unit3>
       <Unit4>
@@ -86,9 +87,9 @@
         <UnitName Value="tappydrawer"/>
         <EditorIndex Value="5"/>
         <WindowIndex Value="0"/>
-        <TopLine Value="67"/>
+        <TopLine Value="1"/>
         <CursorPos X="70" Y="291"/>
-        <UsageCount Value="28"/>
+        <UsageCount Value="29"/>
         <Loaded Value="True"/>
       </Unit4>
       <Unit5>
@@ -99,7 +100,7 @@
         <WindowIndex Value="0"/>
         <TopLine Value="1"/>
         <CursorPos X="35" Y="72"/>
-        <UsageCount Value="28"/>
+        <UsageCount Value="29"/>
         <Loaded Value="True"/>
       </Unit5>
       <Unit6>
@@ -108,9 +109,9 @@
         <UnitName Value="mod_tappywords"/>
         <EditorIndex Value="6"/>
         <WindowIndex Value="0"/>
-        <TopLine Value="1"/>
+        <TopLine Value="12"/>
         <CursorPos X="1" Y="15"/>
-        <UsageCount Value="28"/>
+        <UsageCount Value="29"/>
         <Loaded Value="True"/>
       </Unit6>
       <Unit7>
@@ -121,7 +122,7 @@
         <WindowIndex Value="0"/>
         <TopLine Value="1"/>
         <CursorPos X="30" Y="70"/>
-        <UsageCount Value="28"/>
+        <UsageCount Value="29"/>
         <Loaded Value="True"/>
       </Unit7>
       <Unit8>
@@ -132,7 +133,7 @@
         <WindowIndex Value="0"/>
         <TopLine Value="1"/>
         <CursorPos X="6" Y="39"/>
-        <UsageCount Value="27"/>
+        <UsageCount Value="28"/>
         <Loaded Value="True"/>
       </Unit8>
       <Unit9>
@@ -145,124 +146,124 @@
     </Units>
     <JumpHistory Count="30" HistoryIndex="29">
       <Position1>
-        <Filename Value="gameconfigform.pas"/>
-        <Caret Line="53" Column="82" TopLine="53"/>
+        <Filename Value="gameplayform.pas"/>
+        <Caret Line="23" Column="20" TopLine="4"/>
       </Position1>
       <Position2>
-        <Filename Value="gameconfigform.pas"/>
-        <Caret Line="92" Column="6" TopLine="92"/>
+        <Filename Value="gameplayform.pas"/>
+        <Caret Line="48" Column="41" TopLine="21"/>
       </Position2>
       <Position3>
         <Filename Value="gameconfigform.pas"/>
-        <Caret Line="77" Column="3" TopLine="77"/>
+        <Caret Line="105" Column="52" TopLine="69"/>
       </Position3>
       <Position4>
         <Filename Value="gameconfigform.pas"/>
-        <Caret Line="104" Column="3" TopLine="104"/>
+        <Caret Line="108" Column="38" TopLine="96"/>
       </Position4>
       <Position5>
-        <Filename Value="gameconfigform.pas"/>
-        <Caret Line="78" Column="3" TopLine="60"/>
+        <Filename Value="gameplayform.pas"/>
+        <Caret Line="23" Column="28" TopLine="9"/>
       </Position5>
       <Position6>
         <Filename Value="gameplayform.pas"/>
-        <Caret Line="18" Column="14" TopLine="1"/>
+        <Caret Line="47" Column="40" TopLine="23"/>
       </Position6>
       <Position7>
         <Filename Value="gameplayform.pas"/>
-        <Caret Line="23" Column="14" TopLine="1"/>
+        <Caret Line="30" Column="35" TopLine="26"/>
       </Position7>
       <Position8>
         <Filename Value="gameplayform.pas"/>
-        <Caret Line="21" Column="14" TopLine="6"/>
+        <Caret Line="32" Column="35" TopLine="28"/>
       </Position8>
       <Position9>
         <Filename Value="gameplayform.pas"/>
-        <Caret Line="35" Column="8" TopLine="8"/>
+        <Caret Line="31" Column="35" TopLine="27"/>
       </Position9>
       <Position10>
         <Filename Value="gameplayform.pas"/>
-        <Caret Line="8" Column="77" TopLine="1"/>
+        <Caret Line="50" Column="1" TopLine="22"/>
       </Position10>
       <Position11>
         <Filename Value="gameplayform.pas"/>
-        <Caret Line="9" Column="3" TopLine="1"/>
+        <Caret Line="51" Column="1" TopLine="23"/>
       </Position11>
       <Position12>
-        <Filename Value="gameconfigform.pas"/>
-        <Caret Line="98" Column="19" TopLine="71"/>
+        <Filename Value="gameplayform.pas"/>
+        <Caret Line="52" Column="1" TopLine="24"/>
       </Position12>
       <Position13>
-        <Filename Value="gameconfigform.pas"/>
-        <Caret Line="96" Column="6" TopLine="73"/>
+        <Filename Value="gameplayform.pas"/>
+        <Caret Line="53" Column="1" TopLine="25"/>
       </Position13>
       <Position14>
         <Filename Value="gameplayform.pas"/>
-        <Caret Line="29" Column="7" TopLine="10"/>
+        <Caret Line="54" Column="1" TopLine="26"/>
       </Position14>
       <Position15>
         <Filename Value="gameplayform.pas"/>
-        <Caret Line="35" Column="79" TopLine="21"/>
+        <Caret Line="55" Column="1" TopLine="27"/>
       </Position15>
       <Position16>
         <Filename Value="gameplayform.pas"/>
-        <Caret Line="23" Column="20" TopLine="4"/>
+        <Caret Line="32" Column="3" TopLine="28"/>
       </Position16>
       <Position17>
         <Filename Value="gameplayform.pas"/>
-        <Caret Line="48" Column="41" TopLine="21"/>
+        <Caret Line="34" Column="3" TopLine="30"/>
       </Position17>
       <Position18>
-        <Filename Value="gameconfigform.pas"/>
-        <Caret Line="105" Column="52" TopLine="69"/>
+        <Filename Value="gameplayform.pas"/>
+        <Caret Line="58" Column="26" TopLine="35"/>
       </Position18>
       <Position19>
-        <Filename Value="gameconfigform.pas"/>
-        <Caret Line="108" Column="38" TopLine="96"/>
+        <Filename Value="gameplayform.pas"/>
+        <Caret Line="51" Column="41" TopLine="35"/>
       </Position19>
       <Position20>
         <Filename Value="gameplayform.pas"/>
-        <Caret Line="23" Column="28" TopLine="9"/>
+        <Caret Line="45" Column="50" TopLine="31"/>
       </Position20>
       <Position21>
         <Filename Value="gameplayform.pas"/>
-        <Caret Line="47" Column="40" TopLine="23"/>
+        <Caret Line="75" Column="3" TopLine="43"/>
       </Position21>
       <Position22>
         <Filename Value="gameplayform.pas"/>
-        <Caret Line="30" Column="35" TopLine="26"/>
+        <Caret Line="56" Column="5" TopLine="33"/>
       </Position22>
       <Position23>
         <Filename Value="gameplayform.pas"/>
-        <Caret Line="32" Column="35" TopLine="28"/>
+        <Caret Line="28" Column="43" TopLine="23"/>
       </Position23>
       <Position24>
-        <Filename Value="gameplayform.pas"/>
-        <Caret Line="31" Column="35" TopLine="27"/>
+        <Filename Value="gameconfigform.pas"/>
+        <Caret Line="82" Column="45" TopLine="66"/>
       </Position24>
       <Position25>
-        <Filename Value="gameplayform.pas"/>
-        <Caret Line="50" Column="1" TopLine="22"/>
+        <Filename Value="gameconfigform.pas"/>
+        <Caret Line="80" Column="23" TopLine="64"/>
       </Position25>
       <Position26>
-        <Filename Value="gameplayform.pas"/>
-        <Caret Line="51" Column="1" TopLine="23"/>
+        <Filename Value="gameconfigform.pas"/>
+        <Caret Line="82" Column="40" TopLine="64"/>
       </Position26>
       <Position27>
-        <Filename Value="gameplayform.pas"/>
-        <Caret Line="52" Column="1" TopLine="24"/>
+        <Filename Value="gameconfigform.pas"/>
+        <Caret Line="85" Column="52" TopLine="65"/>
       </Position27>
       <Position28>
-        <Filename Value="gameplayform.pas"/>
-        <Caret Line="53" Column="1" TopLine="25"/>
+        <Filename Value="gameconfigform.pas"/>
+        <Caret Line="80" Column="26" TopLine="64"/>
       </Position28>
       <Position29>
-        <Filename Value="gameplayform.pas"/>
-        <Caret Line="54" Column="1" TopLine="26"/>
+        <Filename Value="gameconfigform.pas"/>
+        <Caret Line="85" Column="42" TopLine="64"/>
       </Position29>
       <Position30>
-        <Filename Value="gameplayform.pas"/>
-        <Caret Line="55" Column="1" TopLine="27"/>
+        <Filename Value="gameconfigform.pas"/>
+        <Caret Line="80" Column="41" TopLine="64"/>
       </Position30>
     </JumpHistory>
   </ProjectOptions>