'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

@@ -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

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

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;

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}