From af9523c588b9440880e2d1bebe0cf79235cc4d59 Mon Sep 17 00:00:00 2001
From: tobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Sun, 19 Oct 2008 11:45:07 +0000
Subject: - 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
---
src/menu/UMenu.pas | 16 ++++++++--------
1 file changed, 8 insertions(+), 8 deletions(-)
(limited to 'src/menu')
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;
--
cgit v1.2.3