From b0272c01fd1b7163ee112c7fa8efc44c96c9ab9f Mon Sep 17 00:00:00 2001 From: denniscuflat 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 @@ - + @@ -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 @@ - - + + - - + + - + - + - - + + - + - + - + - + - + - + - - + + - - + + - + - + - + - + - - + + - - + + - + - + - + - + - - + + - - + + - - + + - - + + - - + + - - + + - - + +