pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

"TappyTux" interface designed.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1940 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
denniscuflat
2011-09-14 00:35:25 +00:00
parent 26cb0d15b6
commit 832ed6e0d5
5 changed files with 1735 additions and 117 deletions
Download Patch File Download Diff File Expand all files Collapse all files

47
applications/tappytux/gameconfigform.lfm
View File

@ -6,14 +6,15 @@ object Form1: TForm1
Caption = 'TappyTux Loader' Caption = 'TappyTux Loader'
ClientHeight = 436 ClientHeight = 436
ClientWidth = 582 ClientWidth = 582
OnClick = btnLoadClick
OnCreate = FormCreate OnCreate = FormCreate
LCLVersion = '0.9.31' LCLVersion = '0.9.31'
object comboGameType: TComboBox object comboGameType: TComboBox
Left = 17 Left = 17
Height = 21 Height = 23
Top = 38 Top = 38
Width = 100 Width = 100
ItemHeight = 0 ItemHeight = 15
OnChange = comboGameTypeChange OnChange = comboGameTypeChange
TabOrder = 0 TabOrder = 0
Text = 'GameType' Text = 'GameType'
@ -28,9 +29,9 @@ object Form1: TForm1
end end
object listWordlist: TLabel object listWordlist: TLabel
Left = 208 Left = 208
Height = 17 Height = 16
Top = 16 Top = 16
Width = 93 Width = 79
Caption = 'Select Wordlist' Caption = 'Select Wordlist'
ParentColor = False ParentColor = False
end end
@ -51,17 +52,17 @@ object Form1: TForm1
end end
object lblSettings: TLabel object lblSettings: TLabel
Left = 400 Left = 400
Height = 17 Height = 16
Top = 16 Top = 16
Width = 52 Width = 43
Caption = 'Settings' Caption = 'Settings'
ParentColor = False ParentColor = False
end end
object lblSound: TLabel object lblSound: TLabel
Left = 408 Left = 408
Height = 17 Height = 16
Top = 47 Top = 47
Width = 63 Width = 53
Caption = 'Sound FX' Caption = 'Sound FX'
Font.Style = [fsBold] Font.Style = [fsBold]
ParentColor = False ParentColor = False
@ -69,9 +70,9 @@ object Form1: TForm1
end end
object lblMusic: TLabel object lblMusic: TLabel
Left = 408 Left = 408
Height = 17 Height = 16
Top = 79 Top = 79
Width = 40 Width = 33
Caption = 'Music' Caption = 'Music'
Font.Style = [fsBold] Font.Style = [fsBold]
ParentColor = False ParentColor = False
@ -79,9 +80,9 @@ object Form1: TForm1
end end
object lblLevel: TLabel object lblLevel: TLabel
Left = 408 Left = 408
Height = 17 Height = 16
Top = 111 Top = 111
Width = 93 Width = 79
Caption = 'Starting Level' Caption = 'Starting Level'
Font.Style = [fsBold] Font.Style = [fsBold]
ParentColor = False ParentColor = False
@ -89,23 +90,24 @@ object Form1: TForm1
end end
object comboSound: TComboBox object comboSound: TComboBox
Left = 493 Left = 493
Height = 21 Height = 23
Top = 40 Top = 40
Width = 68 Width = 68
ItemHeight = 0 ItemHeight = 15
Items.Strings = ( Items.Strings = (
'ON' 'ON'
'OFF' 'OFF'
) )
OnChange = comboSoundChange
TabOrder = 3 TabOrder = 3
Text = 'Select' Text = 'Select'
end end
object comboMusic: TComboBox object comboMusic: TComboBox
Left = 493 Left = 493
Height = 21 Height = 23
Top = 72 Top = 72
Width = 68 Width = 68
ItemHeight = 0 ItemHeight = 15
Items.Strings = ( Items.Strings = (
'ON' 'ON'
'OFF' 'OFF'
@ -115,10 +117,10 @@ object Form1: TForm1
end end
object comboLevel: TComboBox object comboLevel: TComboBox
Left = 493 Left = 493
Height = 21 Height = 23
Top = 104 Top = 104
Width = 68 Width = 68
ItemHeight = 0 ItemHeight = 15
Items.Strings = ( Items.Strings = (
'1' '1'
'2' '2'
@ -136,9 +138,9 @@ object Form1: TForm1
end end
object lblCredits: TLabel object lblCredits: TLabel
Left = 400 Left = 400
Height = 17 Height = 16
Top = 168 Top = 168
Width = 46 Width = 38
Caption = 'Credits' Caption = 'Credits'
ParentColor = False ParentColor = False
end end
@ -173,6 +175,7 @@ object Form1: TForm1
Top = 379 Top = 379
Width = 542 Width = 542
Caption = 'Load' Caption = 'Load'
OnClick = btnLoadClick
TabOrder = 7 TabOrder = 7
end end
object btnWordlist: TButton object btnWordlist: TButton
@ -185,9 +188,9 @@ object Form1: TForm1
end end
object lblGameType: TLabel object lblGameType: TLabel
Left = 16 Left = 16
Height = 17 Height = 16
Top = 16 Top = 16
Width = 67 Width = 58
Caption = 'GameType' Caption = 'GameType'
ParentColor = False ParentColor = False
end end

37
applications/tappytux/gameconfigform.pas
View File

@ -7,7 +7,7 @@ interface
uses uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls, Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
ExtCtrls, ExtCtrls,
tappymodules; tappymodules, gameplayform;
type type
@ -30,7 +30,10 @@ type
ltbWordlist: TListBox; ltbWordlist: TListBox;
memoGameType: TMemo; memoGameType: TMemo;
memoCredits: TMemo; memoCredits: TMemo;
procedure btnLoadClick(Sender: TObject);
procedure comboGameTypeChange(Sender: TObject); procedure comboGameTypeChange(Sender: TObject);
procedure comboSoundChange(Sender: TObject);
procedure FormClick(Sender: TObject);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
private private
{ private declarations } { private declarations }
@ -44,6 +47,7 @@ var
implementation implementation
{$R *.lfm} {$R *.lfm}
{ TForm1 } { TForm1 }
@ -70,6 +74,37 @@ begin
end; end;
procedure TForm1.btnLoadClick(Sender: TObject);
begin
Hide;
Form2.Show;
end;
procedure TForm1.comboSoundChange(Sender: TObject);
begin
{
Case comboSound.itemIndex of
0: begin
TTappyGameData.SndFX = true;
end;
1: begin
TTappyGameData.SndFX = false;
end;
end; }
end;
procedure TForm1.FormClick(Sender: TObject);
begin
end;
procedure TForm1.FormCreate(Sender: TObject); procedure TForm1.FormCreate(Sender: TObject);
begin begin
TranslateUI(); TranslateUI();

1551
applications/tappytux/gameplayform.lfm
View File

File diff suppressed because it is too large Load Diff

36
applications/tappytux/gameplayform.pas
View File

@ -5,14 +5,32 @@ unit gameplayform;
interface interface
uses uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs; Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
ExtCtrls;
type type
{ TForm2 }
TForm2 = class(TForm) TForm2 = class(TForm)
btnExit: TButton;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Image1: TImage;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
procedure btnExitClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
private private
{ private declarations } { private declarations }
public public
{ public declarations } { public declarations }
backgroundImage: TJpegImage;
end; end;
var var
@ -20,7 +38,23 @@ var
implementation implementation
uses gameconfigform;
{$R *.lfm} {$R *.lfm}
{ TForm2 }
procedure TForm2.btnExitClick(Sender: TObject);
begin
Close;
Form1.Show;
end;
procedure TForm2.FormCreate(Sender: TObject);
begin
end;
end. end.

181
applications/tappytux/tappytux.lpi
View File

@ -34,12 +34,12 @@
<PackageName Value="LCL"/> <PackageName Value="LCL"/>
</Item1> </Item1>
</RequiredPackages> </RequiredPackages>
<Units Count="9"> <Units Count="10">
<Unit0> <Unit0>
<Filename Value="tappytux.lpr"/> <Filename Value="tappytux.lpr"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="tappytux"/> <UnitName Value="tappytux"/>
<UsageCount Value="27"/> <UsageCount Value="34"/>
</Unit0> </Unit0>
<Unit1> <Unit1>
<Filename Value="gameconfigform.pas"/> <Filename Value="gameconfigform.pas"/>
@ -47,14 +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="67"/> <TopLine Value="96"/>
<CursorPos X="17" Y="75"/> <CursorPos X="70" Y="97"/>
<FoldState Value=" T8Y21,"/> <UsageCount Value="34"/>
<UsageCount Value="27"/>
<Loaded Value="True"/> <Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit1> </Unit1>
<Unit2> <Unit2>
<Filename Value="gameplayform.pas"/> <Filename Value="gameplayform.pas"/>
@ -62,11 +61,11 @@
<ComponentName Value="Form2"/> <ComponentName Value="Form2"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="gameplayform"/> <UnitName Value="gameplayform"/>
<EditorIndex Value="2"/> <EditorIndex Value="1"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="1"/> <TopLine Value="28"/>
<CursorPos X="1" Y="19"/> <CursorPos X="83" Y="42"/>
<UsageCount Value="27"/> <UsageCount Value="34"/>
<Loaded Value="True"/> <Loaded Value="True"/>
<LoadedDesigner Value="True"/> <LoadedDesigner Value="True"/>
</Unit2> </Unit2>
@ -76,9 +75,9 @@
<UnitName Value="tappyconfig"/> <UnitName Value="tappyconfig"/>
<EditorIndex Value="4"/> <EditorIndex Value="4"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="16"/> <TopLine Value="1"/>
<CursorPos X="21" Y="24"/> <CursorPos X="21" Y="24"/>
<UsageCount Value="21"/> <UsageCount Value="28"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit3> </Unit3>
<Unit4> <Unit4>
@ -87,9 +86,9 @@
<UnitName Value="tappydrawer"/> <UnitName Value="tappydrawer"/>
<EditorIndex Value="5"/> <EditorIndex Value="5"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="272"/> <TopLine Value="67"/>
<CursorPos X="70" Y="291"/> <CursorPos X="70" Y="291"/>
<UsageCount Value="21"/> <UsageCount Value="28"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit4> </Unit4>
<Unit5> <Unit5>
@ -98,9 +97,9 @@
<UnitName Value="tappygamedata"/> <UnitName Value="tappygamedata"/>
<EditorIndex Value="3"/> <EditorIndex Value="3"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="14"/> <TopLine Value="1"/>
<CursorPos X="24" Y="23"/> <CursorPos X="35" Y="72"/>
<UsageCount Value="21"/> <UsageCount Value="28"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit5> </Unit5>
<Unit6> <Unit6>
@ -109,155 +108,161 @@
<UnitName Value="mod_tappywords"/> <UnitName Value="mod_tappywords"/>
<EditorIndex Value="6"/> <EditorIndex Value="6"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="6"/> <TopLine Value="1"/>
<CursorPos X="1" Y="20"/> <CursorPos X="1" Y="15"/>
<UsageCount Value="21"/> <UsageCount Value="28"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit6> </Unit6>
<Unit7> <Unit7>
<Filename Value="tappymodules.pas"/> <Filename Value="tappymodules.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="tappymodules"/> <UnitName Value="tappymodules"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="7"/> <EditorIndex Value="7"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="66"/> <TopLine Value="1"/>
<CursorPos X="30" Y="70"/> <CursorPos X="30" Y="70"/>
<UsageCount Value="21"/> <UsageCount Value="28"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit7> </Unit7>
<Unit8> <Unit8>
<Filename Value="mod_tappymath.pas"/> <Filename Value="mod_tappymath.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="mod_tappymath"/> <UnitName Value="mod_tappymath"/>
<EditorIndex Value="1"/> <EditorIndex Value="2"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="19"/> <TopLine Value="1"/>
<CursorPos X="3" Y="38"/> <CursorPos X="6" Y="39"/>
<UsageCount Value="20"/> <UsageCount Value="27"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit8> </Unit8>
<Unit9>
<Filename Value="..\..\..\Lazarus\lcl\include\fpimagebitmap.inc"/>
<WindowIndex Value="0"/>
<TopLine Value="130"/>
<CursorPos X="1" Y="146"/>
<UsageCount Value="10"/>
</Unit9>
</Units> </Units>
<JumpHistory Count="30" HistoryIndex="29"> <JumpHistory Count="30" HistoryIndex="29">
<Position1> <Position1>
<Filename Value="tappyconfig.pas"/> <Filename Value="gameconfigform.pas"/>
<Caret Line="8" Column="37" TopLine="1"/> <Caret Line="53" Column="82" TopLine="53"/>
</Position1> </Position1>
<Position2> <Position2>
<Filename Value="tappydrawer.pas"/> <Filename Value="gameconfigform.pas"/>
<Caret Line="33" Column="3" TopLine="27"/> <Caret Line="92" Column="6" TopLine="92"/>
</Position2> </Position2>
<Position3> <Position3>
<Filename Value="tappymodules.pas"/> <Filename Value="gameconfigform.pas"/>
<Caret Line="17" Column="11" TopLine="5"/> <Caret Line="77" Column="3" TopLine="77"/>
</Position3> </Position3>
<Position4> <Position4>
<Filename Value="tappymodules.pas"/> <Filename Value="gameconfigform.pas"/>
<Caret Line="18" Column="36" TopLine="14"/> <Caret Line="104" Column="3" TopLine="104"/>
</Position4> </Position4>
<Position5> <Position5>
<Filename Value="tappymodules.pas"/> <Filename Value="gameconfigform.pas"/>
<Caret Line="19" Column="34" TopLine="5"/> <Caret Line="78" Column="3" TopLine="60"/>
</Position5> </Position5>
<Position6> <Position6>
<Filename Value="tappymodules.pas"/> <Filename Value="gameplayform.pas"/>
<Caret Line="20" Column="41" TopLine="6"/> <Caret Line="18" Column="14" TopLine="1"/>
</Position6> </Position6>
<Position7> <Position7>
<Filename Value="tappydrawer.pas"/> <Filename Value="gameplayform.pas"/>
<Caret Line="165" Column="46" TopLine="152"/> <Caret Line="23" Column="14" TopLine="1"/>
</Position7> </Position7>
<Position8> <Position8>
<Filename Value="tappymodules.pas"/> <Filename Value="gameplayform.pas"/>
<Caret Line="50" Column="33" TopLine="33"/> <Caret Line="21" Column="14" TopLine="6"/>
</Position8> </Position8>
<Position9> <Position9>
<Filename Value="tappymodules.pas"/> <Filename Value="gameplayform.pas"/>
<Caret Line="8" Column="30" TopLine="1"/> <Caret Line="35" Column="8" TopLine="8"/>
</Position9> </Position9>
<Position10> <Position10>
<Filename Value="tappymodules.pas"/> <Filename Value="gameplayform.pas"/>
<Caret Line="38" Column="50" TopLine="16"/> <Caret Line="8" Column="77" TopLine="1"/>
</Position10> </Position10>
<Position11> <Position11>
<Filename Value="tappydrawer.pas"/> <Filename Value="gameplayform.pas"/>
<Caret Line="10" Column="43" TopLine="1"/> <Caret Line="9" Column="3" TopLine="1"/>
</Position11> </Position11>
<Position12> <Position12>
<Filename Value="tappydrawer.pas"/> <Filename Value="gameconfigform.pas"/>
<Caret Line="187" Column="5" TopLine="172"/> <Caret Line="98" Column="19" TopLine="71"/>
</Position12> </Position12>
<Position13> <Position13>
<Filename Value="tappymodules.pas"/> <Filename Value="gameconfigform.pas"/>
<Caret Line="17" Column="31" TopLine="1"/> <Caret Line="96" Column="6" TopLine="73"/>
</Position13> </Position13>
<Position14> <Position14>
<Filename Value="tappymodules.pas"/> <Filename Value="gameplayform.pas"/>
<Caret Line="19" Column="35" TopLine="4"/> <Caret Line="29" Column="7" TopLine="10"/>
</Position14> </Position14>
<Position15> <Position15>
<Filename Value="tappydrawer.pas"/> <Filename Value="gameplayform.pas"/>
<Caret Line="45" Column="1" TopLine="34"/> <Caret Line="35" Column="79" TopLine="21"/>
</Position15> </Position15>
<Position16> <Position16>
<Filename Value="tappydrawer.pas"/> <Filename Value="gameplayform.pas"/>
<Caret Line="291" Column="1" TopLine="272"/> <Caret Line="23" Column="20" TopLine="4"/>
</Position16> </Position16>
<Position17> <Position17>
<Filename Value="tappydrawer.pas"/> <Filename Value="gameplayform.pas"/>
<Caret Line="51" Column="57" TopLine="51"/> <Caret Line="48" Column="41" TopLine="21"/>
</Position17> </Position17>
<Position18> <Position18>
<Filename Value="mod_tappywords.pas"/> <Filename Value="gameconfigform.pas"/>
<Caret Line="12" Column="24" TopLine="1"/> <Caret Line="105" Column="52" TopLine="69"/>
</Position18> </Position18>
<Position19> <Position19>
<Filename Value="mod_tappywords.pas"/> <Filename Value="gameconfigform.pas"/>
<Caret Line="17" Column="11" TopLine="1"/> <Caret Line="108" Column="38" TopLine="96"/>
</Position19> </Position19>
<Position20> <Position20>
<Filename Value="mod_tappymath.pas"/> <Filename Value="gameplayform.pas"/>
<Caret Line="16" Column="3" TopLine="1"/> <Caret Line="23" Column="28" TopLine="9"/>
</Position20> </Position20>
<Position21> <Position21>
<Filename Value="mod_tappymath.pas"/> <Filename Value="gameplayform.pas"/>
<Caret Line="15" Column="25" TopLine="9"/> <Caret Line="47" Column="40" TopLine="23"/>
</Position21> </Position21>
<Position22> <Position22>
<Filename Value="tappymodules.pas"/> <Filename Value="gameplayform.pas"/>
<Caret Line="21" Column="28" TopLine="8"/> <Caret Line="30" Column="35" TopLine="26"/>
</Position22> </Position22>
<Position23> <Position23>
<Filename Value="tappymodules.pas"/> <Filename Value="gameplayform.pas"/>
<Caret Line="98" Column="40" TopLine="93"/> <Caret Line="32" Column="35" TopLine="28"/>
</Position23> </Position23>
<Position24> <Position24>
<Filename Value="mod_tappywords.pas"/> <Filename Value="gameplayform.pas"/>
<Caret Line="18" Column="24" TopLine="8"/> <Caret Line="31" Column="35" TopLine="27"/>
</Position24> </Position24>
<Position25> <Position25>
<Filename Value="mod_tappymath.pas"/> <Filename Value="gameplayform.pas"/>
<Caret Line="18" Column="49" TopLine="9"/> <Caret Line="50" Column="1" TopLine="22"/>
</Position25> </Position25>
<Position26> <Position26>
<Filename Value="gameconfigform.pas"/> <Filename Value="gameplayform.pas"/>
<Caret Line="37" Column="29" TopLine="19"/> <Caret Line="51" Column="1" TopLine="23"/>
</Position26> </Position26>
<Position27> <Position27>
<Filename Value="gameconfigform.pas"/> <Filename Value="gameplayform.pas"/>
<Caret Line="76" Column="8" TopLine="55"/> <Caret Line="52" Column="1" TopLine="24"/>
</Position27> </Position27>
<Position28> <Position28>
<Filename Value="gameconfigform.pas"/> <Filename Value="gameplayform.pas"/>
<Caret Line="79" Column="53" TopLine="58"/> <Caret Line="53" Column="1" TopLine="25"/>
</Position28> </Position28>
<Position29> <Position29>
<Filename Value="gameconfigform.pas"/> <Filename Value="gameplayform.pas"/>
<Caret Line="10" Column="15" TopLine="1"/> <Caret Line="54" Column="1" TopLine="26"/>
</Position29> </Position29>
<Position30> <Position30>
<Filename Value="gameconfigform.pas"/> <Filename Value="gameplayform.pas"/>
<Caret Line="78" Column="29" TopLine="61"/> <Caret Line="55" Column="1" TopLine="27"/>
</Position30> </Position30>
</JumpHistory> </JumpHistory>
</ProjectOptions> </ProjectOptions>