aboutsummaryrefslogtreecommitdiffstats
path: root/Game/Code/Menu/UMenuButtonCollection.pas
diff options
context:
space:
mode:
authorwhiteshark0 <whiteshark0@b956fd51-792f-4845-bead-9b4dfca2ff2c>2007-06-14 13:08:54 +0000
committerwhiteshark0 <whiteshark0@b956fd51-792f-4845-bead-9b4dfca2ff2c>2007-06-14 13:08:54 +0000
commit5f45fd926da919d8057dfcca4101dc305bd230df (patch)
treec9256ffdedd42363296501b314f9759bfe8b7b19 /Game/Code/Menu/UMenuButtonCollection.pas
parent3ecabca816142dcc2b7044aa637285514a4f9b2d (diff)
downloadusdx-5f45fd926da919d8057dfcca4101dc305bd230df.tar.gz
usdx-5f45fd926da919d8057dfcca4101dc305bd230df.tar.xz
usdx-5f45fd926da919d8057dfcca4101dc305bd230df.zip
Added Text Fading to ButtonCollection
git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@262 b956fd51-792f-4845-bead-9b4dfca2ff2c
Diffstat (limited to 'Game/Code/Menu/UMenuButtonCollection.pas')
-rw-r--r--Game/Code/Menu/UMenuButtonCollection.pas15
1 files changed, 12 insertions, 3 deletions
diff --git a/Game/Code/Menu/UMenuButtonCollection.pas b/Game/Code/Menu/UMenuButtonCollection.pas
index 66ac70fc..5c9045a7 100644
--- a/Game/Code/Menu/UMenuButtonCollection.pas
+++ b/Game/Code/Menu/UMenuButtonCollection.pas
@@ -36,7 +36,7 @@ begin
end;
procedure TButtonCollection.Draw;
-var I: Integer;
+var I, J: Integer;
begin
inherited;
//If fading is activated, Fade Child Buttons
@@ -46,10 +46,19 @@ begin
if (ScreenButton^[I].Parent = Parent) then
begin
if (FadeProgress < 0.5) then
- ScreenButton^[I].Visible := SelectBool
+ 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;
- //ScreenButton^[I].Text[0].
+
+ For J := 0 to High(ScreenButton^[I].Text) do
+ ScreenButton^[I].Text[J].Alpha := (FadeProgress-0.666)*3;
+ end;
end;
end;
end;