diff --git a/applications/tappytux/gameplayform.lfm b/applications/tappytux/gameplayform.lfm index bb4456980..563fd3529 100644 --- a/applications/tappytux/gameplayform.lfm +++ b/applications/tappytux/gameplayform.lfm @@ -6,33 +6,36 @@ object formTappyTuxGame: TformTappyTuxGame Caption = 'Tappy Tux' ClientHeight = 425 ClientWidth = 621 + Position = poDesktopCenter + LCLVersion = '4.99.0.0' OnClose = FormClose OnCreate = FormCreate - OnShow = FormShow - Position = poDesktopCenter - LCLVersion = '0.9.31' object btnExit: TButton Left = 8 Height = 31 Top = 384 Width = 64 Caption = 'Exit' - OnClick = btnExitClick TabOrder = 0 + OnClick = btnExitClick end object Answer: TEdit Left = 104 Height = 23 Top = 392 Width = 514 - OnKeyPress = AnswerKeyPress TabOrder = 1 + OnKeyPress = AnswerKeyPress end object LabelLevels: TLabel + AnchorSideLeft.Control = Level + AnchorSideRight.Control = Level + AnchorSideRight.Side = asrBottom Left = 8 - Height = 39 + Height = 38 Top = 24 - Width = 78 + Width = 76 + Anchors = [akTop, akLeft, akRight] Caption = 'Level ' Color = 7737967 Font.CharSet = ANSI_CHARSET @@ -47,10 +50,14 @@ object formTappyTuxGame: TformTappyTuxGame Transparent = False end object LabelScore: TLabel + AnchorSideLeft.Control = Score + AnchorSideRight.Control = Score + AnchorSideRight.Side = asrBottom Left = 8 - Height = 39 + Height = 38 Top = 112 Width = 76 + Anchors = [akTop, akLeft, akRight] Caption = 'Score' Color = 7737967 Font.CharSet = ANSI_CHARSET @@ -65,10 +72,14 @@ object formTappyTuxGame: TformTappyTuxGame Transparent = False end object LabelLives: TLabel - Left = 9 - Height = 39 + AnchorSideLeft.Control = Lives + AnchorSideRight.Control = Lives + AnchorSideRight.Side = asrBottom + Left = 8 + Height = 38 Top = 192 - Width = 77 + Width = 76 + Anchors = [akTop, akLeft, akRight] Caption = 'Lives ' Color = 7737967 Font.CharSet = ANSI_CHARSET diff --git a/applications/tappytux/gameplayform.pas b/applications/tappytux/gameplayform.pas index 167371645..4ead27682 100644 --- a/applications/tappytux/gameplayform.pas +++ b/applications/tappytux/gameplayform.pas @@ -28,11 +28,6 @@ type procedure AnswerKeyPress(Sender: TObject; var Key: char); procedure FormClose(Sender: TObject; var CloseAction: TCloseAction); procedure FormCreate(Sender: TObject); - procedure FormShow(Sender: TObject); - procedure NoClick(Sender: TObject); - procedure TestChange(Sender: TObject); - procedure YesClick(Sender: TObject); - private { private declarations } public @@ -88,26 +83,5 @@ begin end; -procedure TformTappyTuxGame.FormShow(Sender: TObject); -begin - -end; - -procedure TformTappyTuxGame.NoClick(Sender: TObject); -begin - -end; - -procedure TformTappyTuxGame.TestChange(Sender: TObject); -begin - -end; - -procedure TformTappyTuxGame.YesClick(Sender: TObject); -begin - -end; - - end. diff --git a/applications/tappytux/tappytux.lpi b/applications/tappytux/tappytux.lpi index 2103d4a1f..2093810df 100644 --- a/applications/tappytux/tappytux.lpi +++ b/applications/tappytux/tappytux.lpi @@ -1,11 +1,13 @@ - + - + + + + - @@ -13,9 +15,6 @@ - - - @@ -40,25 +39,26 @@ - - - - - - - - + + + + + + + + + @@ -79,51 +79,44 @@ - + - + - - - - - - - @@ -147,12 +140,6 @@ - - - - - - diff --git a/applications/tappytux/tappytux.lpr b/applications/tappytux/tappytux.lpr index 99e9b591a..3117cbbea 100644 --- a/applications/tappytux/tappytux.lpr +++ b/applications/tappytux/tappytux.lpr @@ -14,6 +14,7 @@ uses begin RequireDerivedFormResource := True; + Application.Title:=''; Application.Initialize; Application.CreateForm(TformConfig, formConfig); //Application.CreateForm(TformTappyTuxGame, formTappyTuxGame);