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

tappytux: Removes the fixed background and implements real drawing in the drawer component

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1960 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
sekelsenmat 2011-09-15 14:14:50 +00:00
parent a487e2f6d7
commit e8a94cd00b
10 changed files with 185 additions and 1628 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

57
applications/tappytux/gameconfigform.lfm
View File

@ -1,4 +1,4 @@
object Form1: TForm1 object formConfig: TformConfig
Left = 578 Left = 578
Height = 436 Height = 436
Top = 262 Top = 262
@ -10,28 +10,28 @@ object Form1: TForm1
OnCreate = FormCreate OnCreate = FormCreate
LCLVersion = '0.9.31' LCLVersion = '0.9.31'
object comboGameType: TComboBox object comboGameType: TComboBox
Left = 17 Left = 9
Height = 23 Height = 27
Top = 38 Top = 38
Width = 100 Width = 183
ItemHeight = 15 ItemHeight = 0
OnChange = comboGameTypeChange OnChange = comboGameTypeChange
TabOrder = 0 TabOrder = 0
Text = 'GameType' Text = 'GameType'
end end
object memoGameType: TMemo object memoGameType: TMemo
Left = 17 Left = 8
Height = 290 Height = 290
Top = 72 Top = 72
Width = 143 Width = 184
ReadOnly = True ReadOnly = True
TabOrder = 1 TabOrder = 1
end end
object listWordlist: TLabel object listWordlist: TLabel
Left = 208 Left = 208
Height = 16 Height = 18
Top = 16 Top = 16
Width = 79 Width = 94
Caption = 'Select Wordlist' Caption = 'Select Wordlist'
ParentColor = False ParentColor = False
end end
@ -47,22 +47,23 @@ object Form1: TForm1
'French' 'French'
'Portuguese' 'Portuguese'
) )
ItemHeight = 15 ItemHeight = 23
ScrollWidth = 130
TabOrder = 2 TabOrder = 2
end end
object lblSettings: TLabel object lblSettings: TLabel
Left = 400 Left = 400
Height = 16 Height = 18
Top = 16 Top = 16
Width = 43 Width = 54
Caption = 'Settings' Caption = 'Settings'
ParentColor = False ParentColor = False
end end
object lblSound: TLabel object lblSound: TLabel
Left = 408 Left = 408
Height = 16 Height = 18
Top = 47 Top = 47
Width = 53 Width = 71
Caption = 'Sound FX' Caption = 'Sound FX'
Font.Style = [fsBold] Font.Style = [fsBold]
ParentColor = False ParentColor = False
@ -70,9 +71,9 @@ object Form1: TForm1
end end
object lblMusic: TLabel object lblMusic: TLabel
Left = 408 Left = 408
Height = 16 Height = 18
Top = 79 Top = 79
Width = 33 Width = 43
Caption = 'Music' Caption = 'Music'
Font.Style = [fsBold] Font.Style = [fsBold]
ParentColor = False ParentColor = False
@ -80,9 +81,9 @@ object Form1: TForm1
end end
object lblLevel: TLabel object lblLevel: TLabel
Left = 408 Left = 408
Height = 16 Height = 18
Top = 111 Top = 111
Width = 79 Width = 103
Caption = 'Starting Level' Caption = 'Starting Level'
Font.Style = [fsBold] Font.Style = [fsBold]
ParentColor = False ParentColor = False
@ -90,10 +91,10 @@ object Form1: TForm1
end end
object comboSound: TComboBox object comboSound: TComboBox
Left = 493 Left = 493
Height = 23 Height = 27
Top = 40 Top = 40
Width = 68 Width = 68
ItemHeight = 15 ItemHeight = 0
Items.Strings = ( Items.Strings = (
'ON' 'ON'
'OFF' 'OFF'
@ -104,10 +105,10 @@ object Form1: TForm1
end end
object comboMusic: TComboBox object comboMusic: TComboBox
Left = 493 Left = 493
Height = 23 Height = 27
Top = 72 Top = 72
Width = 68 Width = 68
ItemHeight = 15 ItemHeight = 0
Items.Strings = ( Items.Strings = (
'ON' 'ON'
'OFF' 'OFF'
@ -117,10 +118,10 @@ object Form1: TForm1
end end
object comboLevel: TComboBox object comboLevel: TComboBox
Left = 493 Left = 493
Height = 23 Height = 27
Top = 104 Top = 104
Width = 68 Width = 68
ItemHeight = 15 ItemHeight = 0
Items.Strings = ( Items.Strings = (
'1' '1'
'2' '2'
@ -138,9 +139,9 @@ object Form1: TForm1
end end
object lblCredits: TLabel object lblCredits: TLabel
Left = 400 Left = 400
Height = 16 Height = 18
Top = 168 Top = 168
Width = 38 Width = 46
Caption = 'Credits' Caption = 'Credits'
ParentColor = False ParentColor = False
end end
@ -188,9 +189,9 @@ object Form1: TForm1
end end
object lblGameType: TLabel object lblGameType: TLabel
Left = 16 Left = 16
Height = 16 Height = 18
Top = 16 Top = 16
Width = 58 Width = 68
Caption = 'GameType' Caption = 'GameType'
ParentColor = False ParentColor = False
end end

25
applications/tappytux/gameconfigform.pas
View File

@ -11,9 +11,9 @@ uses
type type
{ TForm1 } { TformConfig }
TForm1 = class(TForm) TformConfig = class(TForm)
btnLoad: TButton; btnLoad: TButton;
btnWordlist: TButton; btnWordlist: TButton;
comboGameType: TComboBox; comboGameType: TComboBox;
@ -43,16 +43,16 @@ type
end; end;
var var
Form1: TForm1; formConfig: TformConfig;
implementation implementation
{$R *.lfm} {$R *.lfm}
{ TForm1 } { TformConfig }
procedure TForm1.comboGameTypeChange(Sender: TObject); procedure TformConfig.comboGameTypeChange(Sender: TObject);
begin begin
Case comboGameType.itemIndex of Case comboGameType.itemIndex of
@ -74,14 +74,15 @@ begin
end; end;
procedure TForm1.btnLoadClick(Sender: TObject); procedure TformConfig.btnLoadClick(Sender: TObject);
begin begin
Form2.Show; SetCurrentModule(comboGameType.ItemIndex);
Hide;
formTappyTuxGame.Show;
Hide;
end; end;
procedure TForm1.comboSoundChange(Sender: TObject); procedure TformConfig.comboSoundChange(Sender: TObject);
begin begin
{ {
@ -100,17 +101,17 @@ begin
end; end;
procedure TForm1.FormClick(Sender: TObject); procedure TformConfig.FormClick(Sender: TObject);
begin begin
end; end;
procedure TForm1.FormCreate(Sender: TObject); procedure TformConfig.FormCreate(Sender: TObject);
begin begin
TranslateUI(); TranslateUI();
end; end;
procedure TForm1.TranslateUI; procedure TformConfig.TranslateUI;
var var
i: Integer; i: Integer;
lModule: TTappyModule; lModule: TTappyModule;

1466
applications/tappytux/gameplayform.lfm
View File

File diff suppressed because it is too large Load Diff

39
applications/tappytux/gameplayform.pas
View File

@ -6,19 +6,20 @@ interface
uses uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls, Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
ExtCtrls; ExtCtrls,
// TappyTux
tappydrawer;
type type
{ TForm2 } { TformTappyTuxGame }
TForm2 = class(TForm) TformTappyTuxGame = class(TForm)
btnExit: TButton; btnExit: TButton;
Edit1: TEdit; Edit1: TEdit;
Edit2: TEdit; Edit2: TEdit;
Edit3: TEdit; Edit3: TEdit;
Edit4: TEdit; Edit4: TEdit;
Image1: TImage;
Label1: TLabel; Label1: TLabel;
Label2: TLabel; Label2: TLabel;
Label3: TLabel; Label3: TLabel;
@ -30,13 +31,11 @@ type
{ private declarations } { private declarations }
public public
{ public declarations } { public declarations }
backgroundImage: TJpegImage; backgroundImage: TJpegImage;
end;
end;
var var
Form2: TForm2; formTappyTuxGame: TformTappyTuxGame;
implementation implementation
@ -44,27 +43,33 @@ uses gameconfigform;
{$R *.lfm} {$R *.lfm}
{ TForm2 } { TformTappyTuxGame }
procedure TForm2.btnExitClick(Sender: TObject); procedure TformTappyTuxGame.btnExitClick(Sender: TObject);
begin begin
Close; Close;
Form1.Show; formConfig.Show;
end; end;
procedure TForm2.Edit1KeyPress(Sender: TObject; var Key: char); procedure TformTappyTuxGame.Edit1KeyPress(Sender: TObject; var Key: char);
begin begin
if Key = #13 then if Key = #13 then
begin begin
Form2.Memo1.Lines.Add(Edit1.Text); formTappyTuxGame.Memo1.Lines.Add(Edit1.Text);
Form2.Edit1.Clear; formTappyTuxGame.Edit1.Clear;
end; end;
end; end;
procedure TForm2.FormCreate(Sender: TObject); procedure TformTappyTuxGame.FormCreate(Sender: TObject);
begin begin
// Creation of internal components
vTappyTuxDrawer := TTappyTuxDrawer.Create(Self);
vTappyTuxDrawer.Parent := Self;
vTappyTuxDrawer.Top := 0;
vTappyTuxDrawer.Left := 100;
vTappyTuxDrawer.Height := Height-vTappyTuxDrawer.Top;
vTappyTuxDrawer.Width := Width-vTappyTuxDrawer.Left;
vTappyTuxDrawer.SendToBack();
end; end;

9
applications/tappytux/tappyconfig.pas
View File

@ -14,11 +14,11 @@ type
TTappyTuxConfig = class TTappyTuxConfig = class
public public
function GetResourcesDir: string; function GetResourcesDir: string;
function GetCurrentSkinDir: string;
end; end;
const const
STR_LINUX_RESOURCES_FOLDER = '/usr/share/tappytux/'; STR_LINUX_RESOURCES_FOLDER = '/home/felipe/Programas/lazarus-ccr/applications/tappytux/'; // Temporary debug path
//STR_LINUX_RESOURCES_FOLDER = '/usr/share/tappytux/'; // Real path
ID_ENGLISH = 0; ID_ENGLISH = 0;
ID_PORTUGUESE = 1; ID_PORTUGUESE = 1;
@ -65,11 +65,6 @@ begin
{$endif} {$endif}
end; end;
function TTappyTuxConfig.GetCurrentSkinDir: string;
begin
Result := GetResourcesDir() + 'skins' + PathDelim + 'classic' + PathDelim;
end;
initialization initialization
vTappyTuxConfig := TTappyTuxConfig.Create; vTappyTuxConfig := TTappyTuxConfig.Create;

2
applications/tappytux/tappydrawer.pas
View File

@ -160,7 +160,7 @@ begin
lTmpBmp := TBitmap.Create; lTmpBmp := TBitmap.Create;
try try
// First draw the background // First draw the background
lIntfImage.LoadFromBitmap(GetCurrentModule().imgBackground.Handle, 0{bmpBoard.MaskHandle}); lIntfImage.LoadFromBitmap(GetCurrentModule().GetBackgroundImage(2).Handle, 0{bmpBoard.MaskHandle});
// Now the module should draw itself // Now the module should draw itself

2
applications/tappytux/tappygamedata.pas
View File

@ -1,6 +1,6 @@
unit tappygamedata; unit tappygamedata;
{$mode objfpc}{$H} {$mode objfpc}{$H+}
interface interface

37
applications/tappytux/tappymodules.pas
View File

@ -14,11 +14,12 @@ type
TTappyModule = class TTappyModule = class
public public
imgBackground: TPortableNetworkGraphic; imgLevel2, imgLevel3: TJPEGImage;
ShortDescription, LongDescription: string; ShortDescription, LongDescription: string;
constructor Create; virtual; constructor Create; virtual;
destructor Destroy; override; destructor Destroy; override;
procedure LoadImages; virtual; procedure LoadImages; virtual;
function GetBackgroundImage(ALevel: Integer): TJPEGImage;
procedure TranslateTexts(ALanguage: Integer); procedure TranslateTexts(ALanguage: Integer);
procedure TranslateTextsToEnglish; virtual; procedure TranslateTextsToEnglish; virtual;
procedure TranslateTextsToPortuguese; virtual; procedure TranslateTextsToPortuguese; virtual;
@ -67,35 +68,35 @@ constructor TTappyModule.Create;
begin begin
inherited Create; inherited Create;
imgLevel2 := TJPEGImage.Create;
imgLevel3 := TJPEGImage.Create;
LoadImages();
TranslateTexts(ID_ENGLISH); TranslateTexts(ID_ENGLISH);
end; end;
destructor TTappyModule.Destroy; destructor TTappyModule.Destroy;
begin begin
imgLevel2.Free;
imgLevel3.Free;
inherited Destroy; inherited Destroy;
end; end;
procedure TTappyModule.LoadImages; procedure TTappyModule.LoadImages;
var
lDir: string;
begin begin
{ var lDir := vTappyTuxConfig.GetResourcesDir();
lDir: string;
begin
lDir := vChessConfig.GetCurrentSkinDir();}
{ imgBoard.LoadFromFile(lDir + 'base.png'); imgLevel2.LoadFromFile(lDir + 'images/levels/level2.jpg');
imgWPawn.LoadFromFile(lDir + 'wpawn.png'); imgLevel3.LoadFromFile(lDir + 'images/levels/level3.jpg');
imgWKnight.LoadFromFile(lDir + 'wknight.png'); end;
imgWBishop.LoadFromFile(lDir + 'wbishop.png');
imgWRook.LoadFromFile(lDir + 'wrook.png');
imgWQueen.LoadFromFile(lDir + 'wqueen.png');
imgWKing.LoadFromFile(lDir + 'wking.png');
imgBPawn.LoadFromFile(lDir + 'bpawn.png');
imgBKnight.LoadFromFile(lDir + 'bknight.png');
imgBBishop.LoadFromFile(lDir + 'bbishop.png');
imgBRook.LoadFromFile(lDir + 'brook.png');
imgBQueen.LoadFromFile(lDir + 'bqueen.png');
imgBKing.LoadFromFile(lDir + 'bking.png');}
function TTappyModule.GetBackgroundImage(ALevel: Integer): TJPEGImage;
begin
Result := imgLevel3;
end; end;
procedure TTappyModule.TranslateTexts(ALanguage: Integer); procedure TTappyModule.TranslateTexts(ALanguage: Integer);

172
applications/tappytux/tappytux.lpi
View File

@ -27,6 +27,7 @@
<RunParams> <RunParams>
<local> <local>
<FormatVersion Value="1"/> <FormatVersion Value="1"/>
<LaunchingApplication PathPlusParams="\usr\bin\xterm -T 'Lazarus Run Output' -e $(LazarusDir)\tools\runwait.sh $(TargetCmdLine)"/>
</local> </local>
</RunParams> </RunParams>
<RequiredPackages Count="1"> <RequiredPackages Count="1">
@ -39,90 +40,87 @@
<Filename Value="tappytux.lpr"/> <Filename Value="tappytux.lpr"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="tappytux"/> <UnitName Value="tappytux"/>
<UsageCount Value="35"/> <UsageCount Value="36"/>
</Unit0> </Unit0>
<Unit1> <Unit1>
<Filename Value="gameconfigform.pas"/> <Filename Value="gameconfigform.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<ComponentName Value="Form1"/> <ComponentName Value="formConfig"/>
<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="68"/> <TopLine Value="27"/>
<CursorPos X="16" Y="85"/> <CursorPos X="10" Y="55"/>
<UsageCount Value="35"/> <UsageCount Value="36"/>
<Loaded Value="True"/> <Loaded Value="True"/>
<LoadedDesigner Value="True"/> <LoadedDesigner Value="True"/>
</Unit1> </Unit1>
<Unit2> <Unit2>
<Filename Value="gameplayform.pas"/> <Filename Value="gameplayform.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<ComponentName Value="Form2"/> <ComponentName Value="formTappyTuxGame"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="gameplayform"/> <UnitName Value="gameplayform"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="1"/> <EditorIndex Value="1"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="40"/> <TopLine Value="28"/>
<CursorPos X="48" Y="60"/> <CursorPos X="28" Y="69"/>
<UsageCount Value="35"/> <UsageCount Value="36"/>
<Loaded Value="True"/> <Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit2> </Unit2>
<Unit3> <Unit3>
<Filename Value="tappyconfig.pas"/> <Filename Value="tappyconfig.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="tappyconfig"/> <UnitName Value="tappyconfig"/>
<EditorIndex Value="4"/> <EditorIndex Value="3"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="1"/> <TopLine Value="16"/>
<CursorPos X="21" Y="24"/> <CursorPos X="19" Y="50"/>
<UsageCount Value="29"/> <UsageCount Value="30"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit3> </Unit3>
<Unit4> <Unit4>
<Filename Value="tappydrawer.pas"/> <Filename Value="tappydrawer.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="tappydrawer"/> <UnitName Value="tappydrawer"/>
<EditorIndex Value="5"/> <EditorIndex Value="4"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="1"/> <TopLine Value="183"/>
<CursorPos X="70" Y="291"/> <CursorPos X="31" Y="189"/>
<UsageCount Value="29"/> <UsageCount Value="30"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit4> </Unit4>
<Unit5> <Unit5>
<Filename Value="tappygamedata.pas"/> <Filename Value="tappygamedata.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="tappygamedata"/> <UnitName Value="tappygamedata"/>
<EditorIndex Value="3"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="1"/> <TopLine Value="229"/>
<CursorPos X="35" Y="72"/> <CursorPos X="19" Y="3"/>
<UsageCount Value="29"/> <UsageCount Value="30"/>
<Loaded Value="True"/>
</Unit5> </Unit5>
<Unit6> <Unit6>
<Filename Value="mod_tappywords.pas"/> <Filename Value="mod_tappywords.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="mod_tappywords"/> <UnitName Value="mod_tappywords"/>
<EditorIndex Value="6"/> <EditorIndex Value="5"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="12"/> <TopLine Value="1"/>
<CursorPos X="1" Y="15"/> <CursorPos X="1" Y="15"/>
<UsageCount Value="29"/> <UsageCount Value="30"/>
<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"/>
<EditorIndex Value="7"/> <EditorIndex Value="6"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="1"/> <TopLine Value="56"/>
<CursorPos X="30" Y="70"/> <CursorPos X="4" Y="101"/>
<UsageCount Value="29"/> <UsageCount Value="30"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit7> </Unit7>
<Unit8> <Unit8>
@ -133,7 +131,7 @@
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<CursorPos X="6" Y="39"/> <CursorPos X="6" Y="39"/>
<UsageCount Value="28"/> <UsageCount Value="29"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit8> </Unit8>
<Unit9> <Unit9>
@ -147,123 +145,123 @@
<JumpHistory Count="30" HistoryIndex="29"> <JumpHistory Count="30" HistoryIndex="29">
<Position1> <Position1>
<Filename Value="gameplayform.pas"/> <Filename Value="gameplayform.pas"/>
<Caret Line="23" Column="20" TopLine="4"/> <Caret Line="11" Column="30" TopLine="1"/>
</Position1> </Position1>
<Position2> <Position2>
<Filename Value="gameplayform.pas"/> <Filename Value="gameconfigform.pas"/>
<Caret Line="48" Column="41" TopLine="21"/> <Caret Line="85" Column="16" TopLine="68"/>
</Position2> </Position2>
<Position3> <Position3>
<Filename Value="gameconfigform.pas"/> <Filename Value="gameconfigform.pas"/>
<Caret Line="105" Column="52" TopLine="69"/> <Caret Line="80" Column="45" TopLine="55"/>
</Position3> </Position3>
<Position4> <Position4>
<Filename Value="gameconfigform.pas"/> <Filename Value="gameplayform.pas"/>
<Caret Line="108" Column="38" TopLine="96"/> <Caret Line="42" Column="21" TopLine="1"/>
</Position4> </Position4>
<Position5> <Position5>
<Filename Value="gameplayform.pas"/> <Filename Value="gameplayform.pas"/>
<Caret Line="23" Column="28" TopLine="9"/> <Caret Line="51" Column="8" TopLine="27"/>
</Position5> </Position5>
<Position6> <Position6>
<Filename Value="gameplayform.pas"/> <Filename Value="tappydrawer.pas"/>
<Caret Line="47" Column="40" TopLine="23"/> <Caret Line="163" Column="41" TopLine="152"/>
</Position6> </Position6>
<Position7> <Position7>
<Filename Value="gameplayform.pas"/> <Filename Value="tappymodules.pas"/>
<Caret Line="30" Column="35" TopLine="26"/> <Caret Line="22" Column="25" TopLine="1"/>
</Position7> </Position7>
<Position8> <Position8>
<Filename Value="gameplayform.pas"/> <Filename Value="tappymodules.pas"/>
<Caret Line="32" Column="35" TopLine="28"/> <Caret Line="79" Column="17" TopLine="58"/>
</Position8> </Position8>
<Position9> <Position9>
<Filename Value="gameplayform.pas"/> <Filename Value="tappymodules.pas"/>
<Caret Line="31" Column="35" TopLine="27"/> <Caret Line="89" Column="23" TopLine="65"/>
</Position9> </Position9>
<Position10> <Position10>
<Filename Value="gameplayform.pas"/> <Filename Value="tappydrawer.pas"/>
<Caret Line="50" Column="1" TopLine="22"/> <Caret Line="163" Column="41" TopLine="152"/>
</Position10> </Position10>
<Position11> <Position11>
<Filename Value="gameplayform.pas"/> <Filename Value="tappymodules.pas"/>
<Caret Line="51" Column="1" TopLine="23"/> <Caret Line="89" Column="26" TopLine="65"/>
</Position11> </Position11>
<Position12> <Position12>
<Filename Value="gameplayform.pas"/> <Filename Value="tappydrawer.pas"/>
<Caret Line="52" Column="1" TopLine="24"/> <Caret Line="163" Column="50" TopLine="100"/>
</Position12> </Position12>
<Position13> <Position13>
<Filename Value="gameplayform.pas"/> <Filename Value="tappydrawer.pas"/>
<Caret Line="53" Column="1" TopLine="25"/> <Caret Line="149" Column="120" TopLine="139"/>
</Position13> </Position13>
<Position14> <Position14>
<Filename Value="gameplayform.pas"/> <Filename Value="tappydrawer.pas"/>
<Caret Line="54" Column="1" TopLine="26"/> <Caret Line="163" Column="1" TopLine="139"/>
</Position14> </Position14>
<Position15> <Position15>
<Filename Value="gameplayform.pas"/> <Filename Value="tappymodules.pas"/>
<Caret Line="55" Column="1" TopLine="27"/> <Caret Line="47" Column="1" TopLine="23"/>
</Position15> </Position15>
<Position16> <Position16>
<Filename Value="gameplayform.pas"/> <Filename Value="tappymodules.pas"/>
<Caret Line="32" Column="3" TopLine="28"/> <Caret Line="42" Column="15" TopLine="24"/>
</Position16> </Position16>
<Position17> <Position17>
<Filename Value="gameplayform.pas"/> <Filename Value="tappymodules.pas"/>
<Caret Line="34" Column="3" TopLine="30"/> <Caret Line="52" Column="1" TopLine="24"/>
</Position17> </Position17>
<Position18> <Position18>
<Filename Value="gameplayform.pas"/> <Filename Value="tappymodules.pas"/>
<Caret Line="58" Column="26" TopLine="35"/> <Caret Line="42" Column="1" TopLine="24"/>
</Position18> </Position18>
<Position19> <Position19>
<Filename Value="gameplayform.pas"/> <Filename Value="tappymodules.pas"/>
<Caret Line="51" Column="41" TopLine="35"/> <Caret Line="52" Column="1" TopLine="24"/>
</Position19> </Position19>
<Position20> <Position20>
<Filename Value="gameplayform.pas"/> <Filename Value="tappymodules.pas"/>
<Caret Line="45" Column="50" TopLine="31"/> <Caret Line="53" Column="1" TopLine="24"/>
</Position20> </Position20>
<Position21> <Position21>
<Filename Value="gameplayform.pas"/> <Filename Value="gameconfigform.pas"/>
<Caret Line="75" Column="3" TopLine="43"/> <Caret Line="121" Column="1" TopLine="80"/>
</Position21> </Position21>
<Position22> <Position22>
<Filename Value="gameplayform.pas"/> <Filename Value="gameconfigform.pas"/>
<Caret Line="56" Column="5" TopLine="33"/> <Caret Line="120" Column="1" TopLine="80"/>
</Position22> </Position22>
<Position23> <Position23>
<Filename Value="gameplayform.pas"/> <Filename Value="gameconfigform.pas"/>
<Caret Line="28" Column="43" TopLine="23"/> <Caret Line="79" Column="49" TopLine="77"/>
</Position23> </Position23>
<Position24> <Position24>
<Filename Value="gameconfigform.pas"/> <Filename Value="gameconfigform.pas"/>
<Caret Line="82" Column="45" TopLine="66"/> <Caret Line="80" Column="23" TopLine="55"/>
</Position24> </Position24>
<Position25> <Position25>
<Filename Value="gameconfigform.pas"/> <Filename Value="gameconfigform.pas"/>
<Caret Line="80" Column="23" TopLine="64"/> <Caret Line="79" Column="12" TopLine="55"/>
</Position25> </Position25>
<Position26> <Position26>
<Filename Value="gameconfigform.pas"/> <Filename Value="tappymodules.pas"/>
<Caret Line="82" Column="40" TopLine="64"/> <Caret Line="22" Column="75" TopLine="14"/>
</Position26> </Position26>
<Position27> <Position27>
<Filename Value="gameconfigform.pas"/> <Filename Value="tappymodules.pas"/>
<Caret Line="85" Column="52" TopLine="65"/> <Caret Line="98" Column="22" TopLine="77"/>
</Position27> </Position27>
<Position28> <Position28>
<Filename Value="gameconfigform.pas"/> <Filename Value="tappymodules.pas"/>
<Caret Line="80" Column="26" TopLine="64"/> <Caret Line="22" Column="74" TopLine="1"/>
</Position28> </Position28>
<Position29> <Position29>
<Filename Value="gameconfigform.pas"/> <Filename Value="tappymodules.pas"/>
<Caret Line="85" Column="42" TopLine="64"/> <Caret Line="96" Column="29" TopLine="77"/>
</Position29> </Position29>
<Position30> <Position30>
<Filename Value="gameconfigform.pas"/> <Filename Value="tappymodules.pas"/>
<Caret Line="80" Column="41" TopLine="64"/> <Caret Line="22" Column="74" TopLine="1"/>
</Position30> </Position30>
</JumpHistory> </JumpHistory>
</ProjectOptions> </ProjectOptions>

4
applications/tappytux/tappytux.lpr
View File

@ -16,8 +16,8 @@ uses
begin begin
RequireDerivedFormResource := True; RequireDerivedFormResource := True;
Application.Initialize; Application.Initialize;
Application.CreateForm(TForm1, Form1); Application.CreateForm(TformConfig, formConfig);
Application.CreateForm(TForm2, Form2); Application.CreateForm(TformTappyTuxGame, formTappyTuxGame);
Application.Run; Application.Run;
end. end.