diff options
author | k-m_schindler <k-m_schindler@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2008-10-18 21:13:16 +0000 |
---|---|---|
committer | k-m_schindler <k-m_schindler@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2008-10-18 21:13:16 +0000 |
commit | e60c0d3e29be2c77e7ab8deca6c37d0b07ebf085 (patch) | |
tree | a4c29e7270e22540b334938848b5b20b7854fa1d /src/menu/UMenuBackgroundTexture.pas | |
parent | f004b6574c5311c743472010beb01a723e0baac5 (diff) | |
download | usdx-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.pas | 18 |
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);
|