aboutsummaryrefslogtreecommitdiffstats
path: root/src/menu/UMenu.pas
diff options
context:
space:
mode:
authortobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c>2008-10-19 11:45:07 +0000
committertobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c>2008-10-19 11:45:07 +0000
commitaf9523c588b9440880e2d1bebe0cf79235cc4d59 (patch)
tree59a6c82b5c7bf47548bdc061e6fc0b051e567807 /src/menu/UMenu.pas
parent6edda5db659a67a119b3469ad92080e168ed2944 (diff)
downloadusdx-af9523c588b9440880e2d1bebe0cf79235cc4d59.tar.gz
usdx-af9523c588b9440880e2d1bebe0cf79235cc4d59.tar.xz
usdx-af9523c588b9440880e2d1bebe0cf79235cc4d59.zip
- background-type -> enum
- some string function-parameters defined const git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@1458 b956fd51-792f-4845-bead-9b4dfca2ff2c
Diffstat (limited to 'src/menu/UMenu.pas')
-rw-r--r--src/menu/UMenu.pas16
1 files changed, 8 insertions, 8 deletions
diff --git a/src/menu/UMenu.pas b/src/menu/UMenu.pas
index c4e0ece6..c660b585 100644
--- a/src/menu/UMenu.pas
+++ b/src/menu/UMenu.pas
@@ -375,7 +375,7 @@ begin
end;
Case ThemedSettings.BGType of
- BGT_Auto: begin //Automaticly choose one out of BGT_Texture, BGT_Video or BGT_Color
+ bgtAuto: begin //Automaticly choose one out of BGT_Texture, BGT_Video or BGT_Color
if (Length(ThemedSettings.Tex) > 0) then
begin
@@ -401,7 +401,7 @@ begin
end;
end;
- BGT_Color: begin
+ bgtColor: begin
try
Background := TMenuBackgroundColor.Create(ThemedSettings);
except
@@ -413,7 +413,7 @@ begin
end;
end;
- BGT_Texture: begin
+ bgtTexture: begin
try
Background := TMenuBackgroundTexture.Create(ThemedSettings);
except
@@ -425,7 +425,7 @@ begin
end;
end;
- BGT_Video: begin
+ bgtVideo: begin
try
Background := TMenuBackgroundVideo.Create(ThemedSettings);
except
@@ -437,7 +437,7 @@ begin
end;
end;
- BGT_None: begin
+ bgtNone: begin
try
Background := TMenuBackgroundNone.Create(ThemedSettings);
except
@@ -449,7 +449,7 @@ begin
end;
end;
- BGT_Fade: begin
+ bgtFade: begin
try
Background := TMenuBackgroundFade.Create(ThemedSettings);
except
@@ -465,7 +465,7 @@ begin
//Fallback to None Background or Colored Background
if (Background = nil) then
begin
- if (ThemedSettings.BGType = BGT_Color) then
+ if (ThemedSettings.BGType = bgtColor) then
Background := TMenuBackgroundNone.Create(ThemedSettings)
else
Background := TMenuBackgroundColor.Create(ThemedSettings)
@@ -1507,7 +1507,7 @@ begin
end;
end; }
if (Background = nil) then
- AddBackground(DEFAULTBACKGROUND);
+ AddBackground(DEFAULT_BACKGROUND);
Background.OnShow;
end;