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

The "TappyTux Loader" interface was created, yet it's still not functional.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1929 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
denniscuflat 2011-09-10 00:58:47 +00:00
parent 6110aab762
commit 3e5c2e1b03
4 changed files with 328 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

174
applications/tappytux/gameconfigform.lfm
View File

@ -1,8 +1,172 @@
object Form1: TForm1 object Form1: TForm1
Left = 238 Left = 578
Height = 240 Height = 436
Top = 161 Top = 262
Width = 320 Width = 582
Caption = 'Form1' Caption = 'TappyTux Loader'
ClientHeight = 436
ClientWidth = 582
LCLVersion = '0.9.31' LCLVersion = '0.9.31'
object lblGameType: TLabel
Left = 16
Height = 16
Top = 16
Width = 58
Caption = 'GameType'
ParentColor = False
end
object comboGameType: TComboBox
Left = 17
Height = 23
Top = 38
Width = 100
ItemHeight = 15
Items.Strings = (
'Tappy Words'
'Tappy Math'
)
TabOrder = 0
Text = 'GameType'
end
object memoGameType: TMemo
Left = 17
Height = 290
Top = 72
Width = 143
ReadOnly = True
TabOrder = 1
end
object listWordlist: TLabel
Left = 208
Height = 16
Top = 16
Width = 79
Caption = 'Select Wordlist'
ParentColor = False
end
object ltbWordlist: TListBox
Left = 212
Height = 292
Top = 44
Width = 132
ItemHeight = 0
TabOrder = 2
end
object lblSettings: TLabel
Left = 400
Height = 16
Top = 16
Width = 43
Caption = 'Settings'
ParentColor = False
end
object lblSound: TLabel
Left = 408
Height = 16
Top = 47
Width = 53
Caption = 'Sound FX'
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
end
object lblMusic: TLabel
Left = 408
Height = 16
Top = 79
Width = 33
Caption = 'Music'
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
end
object lblLevel: TLabel
Left = 408
Height = 16
Top = 111
Width = 79
Caption = 'Starting Level'
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
end
object comboSound: TComboBox
Left = 493
Height = 23
Top = 40
Width = 68
ItemHeight = 15
Items.Strings = (
'ON'
'OFF'
)
TabOrder = 3
Text = 'Select'
end
object comboMusic: TComboBox
Left = 493
Height = 23
Top = 72
Width = 68
ItemHeight = 15
Items.Strings = (
'ON'
'OFF'
)
TabOrder = 4
Text = 'Select'
end
object comboLevel: TComboBox
Left = 493
Height = 23
Top = 104
Width = 68
ItemHeight = 15
Items.Strings = (
'1'
'2'
'3'
'4'
'5'
'6'
'7'
'8'
'9'
'10'
)
TabOrder = 5
Text = 'Select'
end
object lblCredits: TLabel
Left = 400
Height = 16
Top = 168
Width = 38
Caption = 'Credits'
ParentColor = False
end
object memoCredits: TMemo
Left = 408
Height = 173
Top = 189
Width = 153
ReadOnly = True
TabOrder = 6
end
object btnLoad: TButton
Left = 19
Height = 37
Top = 379
Width = 542
Caption = 'Load'
TabOrder = 7
end
object btnWordlist: TButton
Left = 211
Height = 20
Top = 342
Width = 133
Caption = 'Wordlist Editor'
TabOrder = 8
end
end end

27
applications/tappytux/gameconfigform.pas
View File

@ -1,22 +1,41 @@
unit gameconfigform; unit gameconfigform;
{$mode objfpc}{$H+} {$mode objfpc}{$H+}
interface interface
uses uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs; Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;
type type
{ TForm1 }
TForm1 = class(TForm) TForm1 = class(TForm)
btnLoad: TButton;
btnWordlist: TButton;
comboGameType: TComboBox;
comboSound: TComboBox;
comboMusic: TComboBox;
comboLevel: TComboBox;
lblGameType: TLabel;
listWordlist: TLabel;
lblSettings: TLabel;
lblSound: TLabel;
lblMusic: TLabel;
lblLevel: TLabel;
lblCredits: TLabel;
ltbWordlist: TListBox;
memoGameType: TMemo;
memoCredits: TMemo;
private private
{ private declarations } { private declarations }
public public
{ public declarations } { public declarations }
end; end;
var var
Form1: TForm1; Form1: TForm1;
implementation implementation

8
applications/tappytux/gameplayform.lfm
View File

@ -1,8 +1,8 @@
object Form2: TForm2 object Form2: TForm2
Left = 238 Left = 754
Height = 240 Height = 0
Top = 161 Top = 230
Width = 320 Width = 108
Caption = 'Form2' Caption = 'Form2'
LCLVersion = '0.9.31' LCLVersion = '0.9.31'
end end

140
applications/tappytux/tappytux.lpi
View File

@ -39,7 +39,7 @@
<Filename Value="tappytux.lpr"/> <Filename Value="tappytux.lpr"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="tappytux"/> <UnitName Value="tappytux"/>
<UsageCount Value="20"/> <UsageCount Value="23"/>
</Unit0> </Unit0>
<Unit1> <Unit1>
<Filename Value="gameconfigform.pas"/> <Filename Value="gameconfigform.pas"/>
@ -47,11 +47,13 @@
<ComponentName Value="Form1"/> <ComponentName Value="Form1"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="gameconfigform"/> <UnitName Value="gameconfigform"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="0"/> <EditorIndex Value="0"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="1"/> <TopLine Value="2"/>
<CursorPos X="1" Y="1"/> <CursorPos X="40" Y="12"/>
<UsageCount Value="20"/> <FoldState Value=" T7DBL T8U211:"/>
<UsageCount Value="23"/>
<Loaded Value="True"/> <Loaded Value="True"/>
<LoadedDesigner Value="True"/> <LoadedDesigner Value="True"/>
</Unit1> </Unit1>
@ -63,14 +65,136 @@
<UnitName Value="gameplayform"/> <UnitName Value="gameplayform"/>
<EditorIndex Value="1"/> <EditorIndex Value="1"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="1"/> <TopLine Value="3"/>
<CursorPos X="1" Y="1"/> <CursorPos X="26" Y="26"/>
<UsageCount Value="20"/> <FoldState Value=" T8D21;"/>
<UsageCount Value="23"/>
<Loaded Value="True"/> <Loaded Value="True"/>
<LoadedDesigner Value="True"/> <LoadedDesigner Value="True"/>
</Unit2> </Unit2>
</Units> </Units>
<JumpHistory Count="0" HistoryIndex="-1"/> <JumpHistory Count="30" HistoryIndex="29">
<Position1>
<Filename Value="gameconfigform.pas"/>
<Caret Line="50" Column="3" TopLine="32"/>
</Position1>
<Position2>
<Filename Value="gameconfigform.pas"/>
<Caret Line="51" Column="3" TopLine="33"/>
</Position2>
<Position3>
<Filename Value="gameconfigform.pas"/>
<Caret Line="50" Column="3" TopLine="32"/>
</Position3>
<Position4>
<Filename Value="gameconfigform.pas"/>
<Caret Line="45" Column="36" TopLine="31"/>
</Position4>
<Position5>
<Filename Value="gameconfigform.pas"/>
<Caret Line="51" Column="55" TopLine="35"/>
</Position5>
<Position6>
<Filename Value="gameconfigform.pas"/>
<Caret Line="49" Column="56" TopLine="35"/>
</Position6>
<Position7>
<Filename Value="gameconfigform.pas"/>
<Caret Line="57" Column="1" TopLine="35"/>
</Position7>
<Position8>
<Filename Value="gameconfigform.pas"/>
<Caret Line="49" Column="56" TopLine="35"/>
</Position8>
<Position9>
<Filename Value="gameconfigform.pas"/>
<Caret Line="47" Column="19" TopLine="35"/>
</Position9>
<Position10>
<Filename Value="gameconfigform.pas"/>
<Caret Line="51" Column="55" TopLine="35"/>
</Position10>
<Position11>
<Filename Value="gameconfigform.pas"/>
<Caret Line="53" Column="55" TopLine="37"/>
</Position11>
<Position12>
<Filename Value="gameconfigform.pas"/>
<Caret Line="50" Column="59" TopLine="37"/>
</Position12>
<Position13>
<Filename Value="gameconfigform.pas"/>
<Caret Line="55" Column="1" TopLine="37"/>
</Position13>
<Position14>
<Filename Value="gameconfigform.pas"/>
<Caret Line="54" Column="92" TopLine="37"/>
</Position14>
<Position15>
<Filename Value="gameconfigform.pas"/>
<Caret Line="50" Column="59" TopLine="37"/>
</Position15>
<Position16>
<Filename Value="gameconfigform.pas"/>
<Caret Line="53" Column="21" TopLine="37"/>
</Position16>
<Position17>
<Filename Value="gameconfigform.pas"/>
<Caret Line="50" Column="29" TopLine="37"/>
</Position17>
<Position18>
<Filename Value="gameconfigform.pas"/>
<Caret Line="56" Column="92" TopLine="37"/>
</Position18>
<Position19>
<Filename Value="gameconfigform.pas"/>
<Caret Line="50" Column="29" TopLine="37"/>
</Position19>
<Position20>
<Filename Value="gameconfigform.pas"/>
<Caret Line="55" Column="55" TopLine="37"/>
</Position20>
<Position21>
<Filename Value="gameconfigform.pas"/>
<Caret Line="50" Column="31" TopLine="37"/>
</Position21>
<Position22>
<Filename Value="gameconfigform.pas"/>
<Caret Line="53" Column="33" TopLine="37"/>
</Position22>
<Position23>
<Filename Value="gameconfigform.pas"/>
<Caret Line="55" Column="41" TopLine="37"/>
</Position23>
<Position24>
<Filename Value="gameconfigform.pas"/>
<Caret Line="56" Column="6" TopLine="38"/>
</Position24>
<Position25>
<Filename Value="gameconfigform.pas"/>
<Caret Line="40" Column="41" TopLine="37"/>
</Position25>
<Position26>
<Filename Value="gameconfigform.pas"/>
<Caret Line="23" Column="15" TopLine="1"/>
</Position26>
<Position27>
<Filename Value="gameconfigform.pas"/>
<Caret Line="17" Column="19" TopLine="12"/>
</Position27>
<Position28>
<Filename Value="gameconfigform.pas"/>
<Caret Line="33" Column="24" TopLine="24"/>
</Position28>
<Position29>
<Filename Value="gameconfigform.pas"/>
<Caret Line="5" Column="32" TopLine="2"/>
</Position29>
<Position30>
<Filename Value="gameconfigform.pas"/>
<Caret Line="12" Column="40" TopLine="2"/>
</Position30>
</JumpHistory>
</ProjectOptions> </ProjectOptions>
<CompilerOptions> <CompilerOptions>
<Version Value="10"/> <Version Value="10"/>