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 @@
-
+
@@ -50,10 +50,11 @@
-
-
-
+
+
+
+
@@ -63,9 +64,9 @@
-
-
-
+
+
+
@@ -77,7 +78,7 @@
-
+
@@ -86,9 +87,9 @@
-
+
-
+
@@ -99,7 +100,7 @@
-
+
@@ -108,9 +109,9 @@
-
+
-
+
@@ -121,7 +122,7 @@
-
+
@@ -132,7 +133,7 @@
-
+
@@ -145,124 +146,124 @@
-
-
+
+
-
-
+
+
-
+
-
+
-
-
+
+
-
+
-
+
-
+
-
+
-
+
-
+
-
-
+
+
-
-
+
+
-
+
-
+
-
+
-
+
-
-
+
+
-
-
+
+
-
+
-
+
-
+
-
+
-
-
+
+
-
-
+
+
-
-
+
+
-
-
+
+
-
-
+
+
-
-
+
+
-
-
+
+