aboutsummaryrefslogtreecommitdiffstats
path: root/src/menu/UMenuBackgroundTexture.pas
diff options
context:
space:
mode:
authork-m_schindler <k-m_schindler@b956fd51-792f-4845-bead-9b4dfca2ff2c>2008-10-18 21:13:16 +0000
committerk-m_schindler <k-m_schindler@b956fd51-792f-4845-bead-9b4dfca2ff2c>2008-10-18 21:13:16 +0000
commite60c0d3e29be2c77e7ab8deca6c37d0b07ebf085 (patch)
treea4c29e7270e22540b334938848b5b20b7854fa1d /src/menu/UMenuBackgroundTexture.pas
parentf004b6574c5311c743472010beb01a723e0baac5 (diff)
downloadusdx-e60c0d3e29be2c77e7ab8deca6c37d0b07ebf085.tar.gz
usdx-e60c0d3e29be2c77e7ab8deca6c37d0b07ebf085.tar.xz
usdx-e60c0d3e29be2c77e7ab8deca6c37d0b07ebf085.zip
style adjustments. no code change.
git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@1456 b956fd51-792f-4845-bead-9b4dfca2ff2c
Diffstat (limited to 'src/menu/UMenuBackgroundTexture.pas')
-rw-r--r--src/menu/UMenuBackgroundTexture.pas18
1 files changed, 9 insertions, 9 deletions
diff --git a/src/menu/UMenuBackgroundTexture.pas b/src/menu/UMenuBackgroundTexture.pas
index 55d1d0b6..e8678fc5 100644
--- a/src/menu/UMenuBackgroundTexture.pas
+++ b/src/menu/UMenuBackgroundTexture.pas
@@ -47,13 +47,13 @@ type
Tex: TTexture;
Color: TRGB;
public
- Constructor Create(const ThemedSettings: TThemeBackground); override;
- Procedure Draw; override;
- Destructor Destroy; override;
+ constructor Create(const ThemedSettings: TThemeBackground); override;
+ procedure Draw; override;
+ destructor Destroy; override;
end;
const
- SUPPORTED_EXTS_BACKGROUNDTEXTURE: Array[0..13] of String = ('.png', '.bmp', '.jpg', '.jpeg', '.gif', '.pnm', '.ppm', '.pgm', '.pbm', '.xpm', '.lbm', '.pcx', '.tga', '.tiff');
+ SUPPORTED_EXTS_BACKGROUNDTEXTURE: array[0..13] of string = ('.png', '.bmp', '.jpg', '.jpeg', '.gif', '.pnm', '.ppm', '.pgm', '.pbm', '.xpm', '.lbm', '.pcx', '.tga', '.tiff');
implementation
uses
@@ -63,12 +63,12 @@ uses
gl,
glext;
-Constructor TMenuBackgroundTexture.Create(const ThemedSettings: TThemeBackground);
-var texFilename: String;
+constructor TMenuBackgroundTexture.Create(const ThemedSettings: TThemeBackground);
+var texFilename: string;
begin
inherited;
- If (Length(ThemedSettings.Tex) = 0) then
+ if (Length(ThemedSettings.Tex) = 0) then
raise EMenuBackgroundError.Create('TMenuBackgroundTexture: No texture filename present');
Color := ThemedSettings.Color;
@@ -84,13 +84,13 @@ begin
end;
end;
-Destructor TMenuBackgroundTexture.Destroy;
+destructor TMenuBackgroundTexture.Destroy;
begin
//freeandnil(Tex); <- this causes an Access Violation o0
inherited;
end;
-Procedure TMenuBackgroundTexture.Draw;
+procedure TMenuBackgroundTexture.Draw;
begin
glClear(GL_DEPTH_BUFFER_BIT);
glColorRGB(Color);