paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

'PathDelim' included in the code to increase compatibility.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2033 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
denniscuflat 2011-09-28 18:57:47 +00:00
parent bbe3c17935
commit f0a56518e7
4 changed files with 43 additions and 43 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

55
applications/tappytux/gameconfigform.lfm
View File

@ -1,20 +1,21 @@
object formConfig: TformConfig object formConfig: TformConfig
Left = 578 Left = 345
Height = 436 Height = 432
Top = 262 Top = 296
Width = 582 Width = 582
Caption = 'TappyTux Loader' Caption = 'TappyTux Loader'
ClientHeight = 436 ClientHeight = 432
ClientWidth = 582 ClientWidth = 582
OnClick = btnLoadClick OnClick = btnLoadClick
OnCreate = FormCreate OnCreate = FormCreate
LCLVersion = '0.9.31' LCLVersion = '0.9.31'
Visible = True
object comboGameType: TComboBox object comboGameType: TComboBox
Left = 9 Left = 9
Height = 27 Height = 23
Top = 38 Top = 38
Width = 183 Width = 183
ItemHeight = 0 ItemHeight = 15
OnChange = comboGameTypeChange OnChange = comboGameTypeChange
TabOrder = 0 TabOrder = 0
Text = 'GameType' Text = 'GameType'
@ -29,9 +30,9 @@ object formConfig: TformConfig
end end
object listWordlist: TLabel object listWordlist: TLabel
Left = 208 Left = 208
Height = 18 Height = 16
Top = 16 Top = 16
Width = 94 Width = 79
Caption = 'Select Wordlist' Caption = 'Select Wordlist'
ParentColor = False ParentColor = False
end end
@ -47,23 +48,23 @@ object formConfig: TformConfig
'French' 'French'
'Portuguese' 'Portuguese'
) )
ItemHeight = 23 ItemHeight = 15
ScrollWidth = 130 ScrollWidth = 130
TabOrder = 2 TabOrder = 2
end end
object lblSettings: TLabel object lblSettings: TLabel
Left = 400 Left = 400
Height = 18 Height = 16
Top = 16 Top = 16
Width = 54 Width = 43
Caption = 'Settings' Caption = 'Settings'
ParentColor = False ParentColor = False
end end
object lblSound: TLabel object lblSound: TLabel
Left = 408 Left = 408
Height = 18 Height = 16
Top = 47 Top = 47
Width = 71 Width = 53
Caption = 'Sound FX' Caption = 'Sound FX'
Font.Style = [fsBold] Font.Style = [fsBold]
ParentColor = False ParentColor = False
@ -71,9 +72,9 @@ object formConfig: TformConfig
end end
object lblMusic: TLabel object lblMusic: TLabel
Left = 408 Left = 408
Height = 18 Height = 16
Top = 79 Top = 79
Width = 43 Width = 33
Caption = 'Music' Caption = 'Music'
Font.Style = [fsBold] Font.Style = [fsBold]
ParentColor = False ParentColor = False
@ -81,9 +82,9 @@ object formConfig: TformConfig
end end
object lblLevel: TLabel object lblLevel: TLabel
Left = 408 Left = 408
Height = 18 Height = 16
Top = 111 Top = 111
Width = 103 Width = 79
Caption = 'Starting Level' Caption = 'Starting Level'
Font.Style = [fsBold] Font.Style = [fsBold]
ParentColor = False ParentColor = False
@ -91,10 +92,10 @@ object formConfig: TformConfig
end end
object comboSound: TComboBox object comboSound: TComboBox
Left = 493 Left = 493
Height = 27 Height = 23
Top = 40 Top = 40
Width = 68 Width = 68
ItemHeight = 0 ItemHeight = 15
Items.Strings = ( Items.Strings = (
'ON' 'ON'
'OFF' 'OFF'
@ -105,10 +106,10 @@ object formConfig: TformConfig
end end
object comboMusic: TComboBox object comboMusic: TComboBox
Left = 493 Left = 493
Height = 27 Height = 23
Top = 72 Top = 72
Width = 68 Width = 68
ItemHeight = 0 ItemHeight = 15
Items.Strings = ( Items.Strings = (
'ON' 'ON'
'OFF' 'OFF'
@ -118,10 +119,10 @@ object formConfig: TformConfig
end end
object comboLevel: TComboBox object comboLevel: TComboBox
Left = 493 Left = 493
Height = 27 Height = 23
Top = 104 Top = 104
Width = 68 Width = 68
ItemHeight = 0 ItemHeight = 15
Items.Strings = ( Items.Strings = (
'1' '1'
'2' '2'
@ -139,9 +140,9 @@ object formConfig: TformConfig
end end
object lblCredits: TLabel object lblCredits: TLabel
Left = 400 Left = 400
Height = 18 Height = 16
Top = 168 Top = 168
Width = 46 Width = 38
Caption = 'Credits' Caption = 'Credits'
ParentColor = False ParentColor = False
end end
@ -189,9 +190,9 @@ object formConfig: TformConfig
end end
object lblGameType: TLabel object lblGameType: TLabel
Left = 16 Left = 16
Height = 18 Height = 16
Top = 16 Top = 16
Width = 68 Width = 58
Caption = 'GameType' Caption = 'GameType'
ParentColor = False ParentColor = False
end end

24
applications/tappytux/gameplayform.lfm
View File

@ -1,7 +1,7 @@
object formTappyTuxGame: TformTappyTuxGame object formTappyTuxGame: TformTappyTuxGame
Left = 367 Left = 630
Height = 421 Height = 421
Top = 122 Top = 249
Width = 621 Width = 621
Caption = 'Tappy Tux' Caption = 'Tappy Tux'
ClientHeight = 421 ClientHeight = 421
@ -19,7 +19,7 @@ object formTappyTuxGame: TformTappyTuxGame
end end
object Edit1: TEdit object Edit1: TEdit
Left = 104 Left = 104
Height = 25 Height = 23
Top = 392 Top = 392
Width = 514 Width = 514
OnKeyPress = Edit1KeyPress OnKeyPress = Edit1KeyPress
@ -27,9 +27,9 @@ object formTappyTuxGame: TformTappyTuxGame
end end
object Label1: TLabel object Label1: TLabel
Left = 8 Left = 8
Height = 34 Height = 39
Top = 24 Top = 24
Width = 90 Width = 78
Caption = 'Level ' Caption = 'Level '
Color = 7737967 Color = 7737967
Font.CharSet = ANSI_CHARSET Font.CharSet = ANSI_CHARSET
@ -45,9 +45,9 @@ object formTappyTuxGame: TformTappyTuxGame
end end
object Label2: TLabel object Label2: TLabel
Left = 8 Left = 8
Height = 34 Height = 39
Top = 112 Top = 112
Width = 86 Width = 76
Caption = 'Score' Caption = 'Score'
Color = 7737967 Color = 7737967
Font.CharSet = ANSI_CHARSET Font.CharSet = ANSI_CHARSET
@ -63,9 +63,9 @@ object formTappyTuxGame: TformTappyTuxGame
end end
object Label3: TLabel object Label3: TLabel
Left = 9 Left = 9
Height = 34 Height = 39
Top = 192 Top = 192
Width = 88 Width = 77
Caption = 'Lives ' Caption = 'Lives '
Color = 7737967 Color = 7737967
Font.CharSet = ANSI_CHARSET Font.CharSet = ANSI_CHARSET
@ -81,7 +81,7 @@ object formTappyTuxGame: TformTappyTuxGame
end end
object Edit2: TEdit object Edit2: TEdit
Left = 8 Left = 8
Height = 25 Height = 23
Top = 64 Top = 64
Width = 76 Width = 76
ReadOnly = True ReadOnly = True
@ -89,7 +89,7 @@ object formTappyTuxGame: TformTappyTuxGame
end end
object Edit3: TEdit object Edit3: TEdit
Left = 8 Left = 8
Height = 25 Height = 23
Top = 152 Top = 152
Width = 76 Width = 76
ReadOnly = True ReadOnly = True
@ -97,7 +97,7 @@ object formTappyTuxGame: TformTappyTuxGame
end end
object Edit4: TEdit object Edit4: TEdit
Left = 8 Left = 8
Height = 25 Height = 23
Top = 232 Top = 232
Width = 76 Width = 76
ReadOnly = True ReadOnly = True

4
applications/tappytux/tappymodules.pas
View File

@ -91,8 +91,8 @@ var
begin begin
lDir := vTappyTuxConfig.GetResourcesDir(); lDir := vTappyTuxConfig.GetResourcesDir();
imgLevel2.LoadFromFile(lDir + 'images/levels/level2.jpg'); imgLevel2.LoadFromFile(lDir + 'images'+PathDelim+'levels'+PathDelim+'level2.jpg');
imgLevel3.LoadFromFile(lDir + 'images/levels/level3.jpg'); imgLevel3.LoadFromFile(lDir + 'images'+PathDelim+'levels'+PathDelim+'level3.jpg');
end; end;
function TTappyModule.GetBackgroundImage(ALevel: Integer): TJPEGImage; function TTappyModule.GetBackgroundImage(ALevel: Integer): TJPEGImage;

3
applications/tappytux/tappytux.lpr
View File

@ -8,8 +8,7 @@ uses
{$ENDIF}{$ENDIF} {$ENDIF}{$ENDIF}
Interfaces, // this includes the LCL widgetset Interfaces, // this includes the LCL widgetset
Forms, gameconfigform, gameplayform, tappyconfig, tappydrawer, Forms, gameconfigform, gameplayform, tappyconfig, tappydrawer,
tappygamedata, mod_tappywords, tappymodules, mod_tappymath tappygamedata, mod_tappywords, tappymodules, mod_tappymath;
{ you can add units after this };
{$R *.res} {$R *.res}