tappytux: use anchoring for the labels in the gameplayform.
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@9810 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
parent
11fcbc1600
commit
2f2f9a67fa
@ -6,33 +6,36 @@ object formTappyTuxGame: TformTappyTuxGame
|
||||
Caption = 'Tappy Tux'
|
||||
ClientHeight = 425
|
||||
ClientWidth = 621
|
||||
Position = poDesktopCenter
|
||||
LCLVersion = '4.99.0.0'
|
||||
OnClose = FormClose
|
||||
OnCreate = FormCreate
|
||||
OnShow = FormShow
|
||||
Position = poDesktopCenter
|
||||
LCLVersion = '0.9.31'
|
||||
object btnExit: TButton
|
||||
Left = 8
|
||||
Height = 31
|
||||
Top = 384
|
||||
Width = 64
|
||||
Caption = 'Exit'
|
||||
OnClick = btnExitClick
|
||||
TabOrder = 0
|
||||
OnClick = btnExitClick
|
||||
end
|
||||
object Answer: TEdit
|
||||
Left = 104
|
||||
Height = 23
|
||||
Top = 392
|
||||
Width = 514
|
||||
OnKeyPress = AnswerKeyPress
|
||||
TabOrder = 1
|
||||
OnKeyPress = AnswerKeyPress
|
||||
end
|
||||
object LabelLevels: TLabel
|
||||
AnchorSideLeft.Control = Level
|
||||
AnchorSideRight.Control = Level
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 8
|
||||
Height = 39
|
||||
Height = 38
|
||||
Top = 24
|
||||
Width = 78
|
||||
Width = 76
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
Caption = 'Level '
|
||||
Color = 7737967
|
||||
Font.CharSet = ANSI_CHARSET
|
||||
@ -47,10 +50,14 @@ object formTappyTuxGame: TformTappyTuxGame
|
||||
Transparent = False
|
||||
end
|
||||
object LabelScore: TLabel
|
||||
AnchorSideLeft.Control = Score
|
||||
AnchorSideRight.Control = Score
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 8
|
||||
Height = 39
|
||||
Height = 38
|
||||
Top = 112
|
||||
Width = 76
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
Caption = 'Score'
|
||||
Color = 7737967
|
||||
Font.CharSet = ANSI_CHARSET
|
||||
@ -65,10 +72,14 @@ object formTappyTuxGame: TformTappyTuxGame
|
||||
Transparent = False
|
||||
end
|
||||
object LabelLives: TLabel
|
||||
Left = 9
|
||||
Height = 39
|
||||
AnchorSideLeft.Control = Lives
|
||||
AnchorSideRight.Control = Lives
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 8
|
||||
Height = 38
|
||||
Top = 192
|
||||
Width = 77
|
||||
Width = 76
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
Caption = 'Lives '
|
||||
Color = 7737967
|
||||
Font.CharSet = ANSI_CHARSET
|
||||
|
||||
@ -28,11 +28,6 @@ type
|
||||
procedure AnswerKeyPress(Sender: TObject; var Key: char);
|
||||
procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
|
||||
procedure FormCreate(Sender: TObject);
|
||||
procedure FormShow(Sender: TObject);
|
||||
procedure NoClick(Sender: TObject);
|
||||
procedure TestChange(Sender: TObject);
|
||||
procedure YesClick(Sender: TObject);
|
||||
|
||||
private
|
||||
{ private declarations }
|
||||
public
|
||||
@ -88,26 +83,5 @@ begin
|
||||
|
||||
end;
|
||||
|
||||
procedure TformTappyTuxGame.FormShow(Sender: TObject);
|
||||
begin
|
||||
|
||||
end;
|
||||
|
||||
procedure TformTappyTuxGame.NoClick(Sender: TObject);
|
||||
begin
|
||||
|
||||
end;
|
||||
|
||||
procedure TformTappyTuxGame.TestChange(Sender: TObject);
|
||||
begin
|
||||
|
||||
end;
|
||||
|
||||
procedure TformTappyTuxGame.YesClick(Sender: TObject);
|
||||
begin
|
||||
|
||||
end;
|
||||
|
||||
|
||||
end.
|
||||
|
||||
|
||||
@ -1,11 +1,13 @@
|
||||
<?xml version="1.0"?>
|
||||
<?xml version="1.0" encoding="UTF-8"?>
|
||||
<CONFIG>
|
||||
<ProjectOptions>
|
||||
<Version Value="9"/>
|
||||
<Version Value="12"/>
|
||||
<PathDelim Value="\"/>
|
||||
<General>
|
||||
<Flags>
|
||||
<CompatibilityMode Value="True"/>
|
||||
</Flags>
|
||||
<SessionStorage Value="InProjectDir"/>
|
||||
<MainUnit Value="0"/>
|
||||
<ResourceType Value="res"/>
|
||||
<UseXPManifest Value="True"/>
|
||||
<Icon Value="0"/>
|
||||
@ -13,9 +15,6 @@
|
||||
<i18n>
|
||||
<EnableI18N LFM="False"/>
|
||||
</i18n>
|
||||
<VersionInfo>
|
||||
<StringTable ProductVersion=""/>
|
||||
</VersionInfo>
|
||||
<BuildModes Count="2">
|
||||
<Item1 Name="Default" Default="True"/>
|
||||
<Item2 Name="Profiler On">
|
||||
@ -40,25 +39,26 @@
|
||||
</Options>
|
||||
</Linking>
|
||||
<Other>
|
||||
<CompilerMessages>
|
||||
<UseMsgFile Value="True"/>
|
||||
</CompilerMessages>
|
||||
<CustomOptions Value="-dTAPPY_PROFILER"/>
|
||||
<CompilerPath Value="$(CompPath)"/>
|
||||
</Other>
|
||||
</CompilerOptions>
|
||||
</Item2>
|
||||
</BuildModes>
|
||||
<PublishOptions>
|
||||
<Version Value="2"/>
|
||||
<IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
|
||||
<ExcludeFileFilter Value="*.(bak|ppu|o|so);*~;backup"/>
|
||||
</PublishOptions>
|
||||
<RunParams>
|
||||
<local>
|
||||
<FormatVersion Value="1"/>
|
||||
<LaunchingApplication PathPlusParams="\usr\bin\xterm -T 'Lazarus Run Output' -e $(LazarusDir)\tools\runwait.sh $(TargetCmdLine)"/>
|
||||
<LaunchingApplication PathPlusParams="\usr\bin\xterm -T 'Lazarus Run Output' -e $(LazarusDir)\tools\runwait.sh $(TargetCmdLine)"/>
|
||||
</local>
|
||||
<FormatVersion Value="2"/>
|
||||
<Modes Count="1">
|
||||
<Mode0 Name="default">
|
||||
<local>
|
||||
<LaunchingApplication PathPlusParams="\usr\bin\xterm -T 'Lazarus Run Output' -e $(LazarusDir)\tools\runwait.sh $(TargetCmdLine)"/>
|
||||
</local>
|
||||
</Mode0>
|
||||
</Modes>
|
||||
</RunParams>
|
||||
<RequiredPackages Count="4">
|
||||
<Item1>
|
||||
@ -79,51 +79,44 @@
|
||||
<Unit0>
|
||||
<Filename Value="tappytux.lpr"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<UnitName Value="tappytux"/>
|
||||
</Unit0>
|
||||
<Unit1>
|
||||
<Filename Value="gameconfigform.pas"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<ComponentName Value="formConfig"/>
|
||||
<HasResources Value="True"/>
|
||||
<ResourceBaseClass Value="Form"/>
|
||||
<UnitName Value="gameconfigform"/>
|
||||
</Unit1>
|
||||
<Unit2>
|
||||
<Filename Value="gameplayform.pas"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<ComponentName Value="formTappyTuxGame"/>
|
||||
<HasResources Value="True"/>
|
||||
<ResourceBaseClass Value="Form"/>
|
||||
<UnitName Value="gameplayform"/>
|
||||
</Unit2>
|
||||
<Unit3>
|
||||
<Filename Value="tappyconfig.pas"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<UnitName Value="tappyconfig"/>
|
||||
</Unit3>
|
||||
<Unit4>
|
||||
<Filename Value="tappydrawer.pas"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<UnitName Value="tappydrawer"/>
|
||||
</Unit4>
|
||||
<Unit5>
|
||||
<Filename Value="tappygamedata.pas"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<UnitName Value="tappygamedata"/>
|
||||
</Unit5>
|
||||
<Unit6>
|
||||
<Filename Value="mod_tappywords.pas"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<UnitName Value="mod_tappywords"/>
|
||||
</Unit6>
|
||||
<Unit7>
|
||||
<Filename Value="tappymodules.pas"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<UnitName Value="tappymodules"/>
|
||||
</Unit7>
|
||||
<Unit8>
|
||||
<Filename Value="mod_tappymath.pas"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<UnitName Value="mod_tappymath"/>
|
||||
</Unit8>
|
||||
</Units>
|
||||
</ProjectOptions>
|
||||
@ -147,12 +140,6 @@
|
||||
</Win32>
|
||||
</Options>
|
||||
</Linking>
|
||||
<Other>
|
||||
<CompilerMessages>
|
||||
<UseMsgFile Value="True"/>
|
||||
</CompilerMessages>
|
||||
<CompilerPath Value="$(CompPath)"/>
|
||||
</Other>
|
||||
</CompilerOptions>
|
||||
<Debugging>
|
||||
<Exceptions Count="3">
|
||||
|
||||
@ -14,6 +14,7 @@ uses
|
||||
|
||||
begin
|
||||
RequireDerivedFormResource := True;
|
||||
Application.Title:='';
|
||||
Application.Initialize;
|
||||
Application.CreateForm(TformConfig, formConfig);
|
||||
//Application.CreateForm(TformTappyTuxGame, formTappyTuxGame);
|
||||
|
||||
Loading…
Reference in New Issue
Block a user