diff options
author | k-m_schindler <k-m_schindler@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2008-08-27 15:00:48 +0000 |
---|---|---|
committer | k-m_schindler <k-m_schindler@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2008-08-27 15:00:48 +0000 |
commit | aa0b17111ef92a6ce4359dd6fa137e8233fcf486 (patch) | |
tree | 054d26c197248e2024a6cea10dad9ca38f23dc9c /src/Menu/UMenuButtonCollection.pas | |
parent | 9506a3ab6ae1b5c51eec2ccb8773eb4219766e7d (diff) | |
download | usdx-aa0b17111ef92a6ce4359dd6fa137e8233fcf486.tar.gz usdx-aa0b17111ef92a6ce4359dd6fa137e8233fcf486.tar.xz usdx-aa0b17111ef92a6ce4359dd6fa137e8233fcf486.zip |
rename Menu part1
git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@1309 b956fd51-792f-4845-bead-9b4dfca2ff2c
Diffstat (limited to 'src/Menu/UMenuButtonCollection.pas')
-rw-r--r-- | src/Menu/UMenuButtonCollection.pas | 71 |
1 files changed, 0 insertions, 71 deletions
diff --git a/src/Menu/UMenuButtonCollection.pas b/src/Menu/UMenuButtonCollection.pas deleted file mode 100644 index c700c812..00000000 --- a/src/Menu/UMenuButtonCollection.pas +++ /dev/null @@ -1,71 +0,0 @@ -unit UMenuButtonCollection; - -interface - -{$I switches.inc} - -uses UMenuButton; - -type - //---------------- - //TButtonCollection - //No Extra Attributes or Functions ATM - //---------------- - AButton = Array of TButton; - PAButton = ^AButton; - TButtonCollection = class(TButton) - //num of the First Button, that can be Selected - FirstChild: Byte; - CountChilds: Byte; - - ScreenButton: PAButton; - - procedure SetSelect(Value : Boolean); override; - procedure Draw; override; - end; - -implementation - -procedure TButtonCollection.SetSelect(Value : Boolean); -var I: Integer; -begin - inherited; - - //Set Visible for Every Button that is a Child of this ButtonCollection - if (Not Fade) then - For I := 0 to High(ScreenButton^) do - if (ScreenButton^[I].Parent = Parent) then - ScreenButton^[I].Visible := Value; -end; - -procedure TButtonCollection.Draw; -var I, J: Integer; -begin - inherited; - //If fading is activated, Fade Child Buttons - if (Fade) then - begin - For I := 0 to High(ScreenButton^) do - if (ScreenButton^[I].Parent = Parent) then - begin - if (FadeProgress < 0.5) then - begin - ScreenButton^[I].Visible := SelectBool; - - For J := 0 to High(ScreenButton^[I].Text) do - ScreenButton^[I].Text[J].Visible := SelectBool; - end - else - begin - ScreenButton^[I].Texture.Alpha := (FadeProgress-0.666)*3; - - For J := 0 to High(ScreenButton^[I].Text) do - ScreenButton^[I].Text[J].Alpha := (FadeProgress-0.666)*3; - end; - end; - end; -end; - - - -end. |