From f0a56518e737da60eacdc114288cb55f54ccd2a3 Mon Sep 17 00:00:00 2001 From: denniscuflat Date: Wed, 28 Sep 2011 18:57:47 +0000 Subject: [PATCH] 'PathDelim' included in the code to increase compatibility. git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2033 8e941d3f-bd1b-0410-a28a-d453659cc2b4 --- applications/tappytux/gameconfigform.lfm | 55 ++++++++++++------------ applications/tappytux/gameplayform.lfm | 24 +++++------ applications/tappytux/tappymodules.pas | 4 +- applications/tappytux/tappytux.lpr | 3 +- 4 files changed, 43 insertions(+), 43 deletions(-) diff --git a/applications/tappytux/gameconfigform.lfm b/applications/tappytux/gameconfigform.lfm index 7941989fa..057aed9ec 100644 --- a/applications/tappytux/gameconfigform.lfm +++ b/applications/tappytux/gameconfigform.lfm @@ -1,20 +1,21 @@ object formConfig: TformConfig - Left = 578 - Height = 436 - Top = 262 + Left = 345 + Height = 432 + Top = 296 Width = 582 Caption = 'TappyTux Loader' - ClientHeight = 436 + ClientHeight = 432 ClientWidth = 582 OnClick = btnLoadClick OnCreate = FormCreate LCLVersion = '0.9.31' + Visible = True object comboGameType: TComboBox Left = 9 - Height = 27 + Height = 23 Top = 38 Width = 183 - ItemHeight = 0 + ItemHeight = 15 OnChange = comboGameTypeChange TabOrder = 0 Text = 'GameType' @@ -29,9 +30,9 @@ object formConfig: TformConfig end object listWordlist: TLabel Left = 208 - Height = 18 + Height = 16 Top = 16 - Width = 94 + Width = 79 Caption = 'Select Wordlist' ParentColor = False end @@ -47,23 +48,23 @@ object formConfig: TformConfig 'French' 'Portuguese' ) - ItemHeight = 23 + ItemHeight = 15 ScrollWidth = 130 TabOrder = 2 end object lblSettings: TLabel Left = 400 - Height = 18 + Height = 16 Top = 16 - Width = 54 + Width = 43 Caption = 'Settings' ParentColor = False end object lblSound: TLabel Left = 408 - Height = 18 + Height = 16 Top = 47 - Width = 71 + Width = 53 Caption = 'Sound FX' Font.Style = [fsBold] ParentColor = False @@ -71,9 +72,9 @@ object formConfig: TformConfig end object lblMusic: TLabel Left = 408 - Height = 18 + Height = 16 Top = 79 - Width = 43 + Width = 33 Caption = 'Music' Font.Style = [fsBold] ParentColor = False @@ -81,9 +82,9 @@ object formConfig: TformConfig end object lblLevel: TLabel Left = 408 - Height = 18 + Height = 16 Top = 111 - Width = 103 + Width = 79 Caption = 'Starting Level' Font.Style = [fsBold] ParentColor = False @@ -91,10 +92,10 @@ object formConfig: TformConfig end object comboSound: TComboBox Left = 493 - Height = 27 + Height = 23 Top = 40 Width = 68 - ItemHeight = 0 + ItemHeight = 15 Items.Strings = ( 'ON' 'OFF' @@ -105,10 +106,10 @@ object formConfig: TformConfig end object comboMusic: TComboBox Left = 493 - Height = 27 + Height = 23 Top = 72 Width = 68 - ItemHeight = 0 + ItemHeight = 15 Items.Strings = ( 'ON' 'OFF' @@ -118,10 +119,10 @@ object formConfig: TformConfig end object comboLevel: TComboBox Left = 493 - Height = 27 + Height = 23 Top = 104 Width = 68 - ItemHeight = 0 + ItemHeight = 15 Items.Strings = ( '1' '2' @@ -139,9 +140,9 @@ object formConfig: TformConfig end object lblCredits: TLabel Left = 400 - Height = 18 + Height = 16 Top = 168 - Width = 46 + Width = 38 Caption = 'Credits' ParentColor = False end @@ -189,9 +190,9 @@ object formConfig: TformConfig end object lblGameType: TLabel Left = 16 - Height = 18 + Height = 16 Top = 16 - Width = 68 + Width = 58 Caption = 'GameType' ParentColor = False end diff --git a/applications/tappytux/gameplayform.lfm b/applications/tappytux/gameplayform.lfm index e760c9544..b19328fcf 100644 --- a/applications/tappytux/gameplayform.lfm +++ b/applications/tappytux/gameplayform.lfm @@ -1,7 +1,7 @@ object formTappyTuxGame: TformTappyTuxGame - Left = 367 + Left = 630 Height = 421 - Top = 122 + Top = 249 Width = 621 Caption = 'Tappy Tux' ClientHeight = 421 @@ -19,7 +19,7 @@ object formTappyTuxGame: TformTappyTuxGame end object Edit1: TEdit Left = 104 - Height = 25 + Height = 23 Top = 392 Width = 514 OnKeyPress = Edit1KeyPress @@ -27,9 +27,9 @@ object formTappyTuxGame: TformTappyTuxGame end object Label1: TLabel Left = 8 - Height = 34 + Height = 39 Top = 24 - Width = 90 + Width = 78 Caption = 'Level ' Color = 7737967 Font.CharSet = ANSI_CHARSET @@ -45,9 +45,9 @@ object formTappyTuxGame: TformTappyTuxGame end object Label2: TLabel Left = 8 - Height = 34 + Height = 39 Top = 112 - Width = 86 + Width = 76 Caption = 'Score' Color = 7737967 Font.CharSet = ANSI_CHARSET @@ -63,9 +63,9 @@ object formTappyTuxGame: TformTappyTuxGame end object Label3: TLabel Left = 9 - Height = 34 + Height = 39 Top = 192 - Width = 88 + Width = 77 Caption = 'Lives ' Color = 7737967 Font.CharSet = ANSI_CHARSET @@ -81,7 +81,7 @@ object formTappyTuxGame: TformTappyTuxGame end object Edit2: TEdit Left = 8 - Height = 25 + Height = 23 Top = 64 Width = 76 ReadOnly = True @@ -89,7 +89,7 @@ object formTappyTuxGame: TformTappyTuxGame end object Edit3: TEdit Left = 8 - Height = 25 + Height = 23 Top = 152 Width = 76 ReadOnly = True @@ -97,7 +97,7 @@ object formTappyTuxGame: TformTappyTuxGame end object Edit4: TEdit Left = 8 - Height = 25 + Height = 23 Top = 232 Width = 76 ReadOnly = True diff --git a/applications/tappytux/tappymodules.pas b/applications/tappytux/tappymodules.pas index 62ba1a17b..24ba73625 100644 --- a/applications/tappytux/tappymodules.pas +++ b/applications/tappytux/tappymodules.pas @@ -91,8 +91,8 @@ var begin lDir := vTappyTuxConfig.GetResourcesDir(); - imgLevel2.LoadFromFile(lDir + 'images/levels/level2.jpg'); - imgLevel3.LoadFromFile(lDir + 'images/levels/level3.jpg'); + imgLevel2.LoadFromFile(lDir + 'images'+PathDelim+'levels'+PathDelim+'level2.jpg'); + imgLevel3.LoadFromFile(lDir + 'images'+PathDelim+'levels'+PathDelim+'level3.jpg'); end; function TTappyModule.GetBackgroundImage(ALevel: Integer): TJPEGImage; diff --git a/applications/tappytux/tappytux.lpr b/applications/tappytux/tappytux.lpr index e92ad1e65..c71d5cac2 100644 --- a/applications/tappytux/tappytux.lpr +++ b/applications/tappytux/tappytux.lpr @@ -8,8 +8,7 @@ uses {$ENDIF}{$ENDIF} Interfaces, // this includes the LCL widgetset Forms, gameconfigform, gameplayform, tappyconfig, tappydrawer, - tappygamedata, mod_tappywords, tappymodules, mod_tappymath - { you can add units after this }; + tappygamedata, mod_tappywords, tappymodules, mod_tappymath; {$R *.res}