From e60c0d3e29be2c77e7ab8deca6c37d0b07ebf085 Mon Sep 17 00:00:00 2001
From: k-m_schindler <k-m_schindler@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Sat, 18 Oct 2008 21:13:16 +0000
Subject: style adjustments. no code change.

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@1456 b956fd51-792f-4845-bead-9b4dfca2ff2c
---
 src/menu/UMenuBackgroundTexture.pas | 18 +++++++++---------
 1 file changed, 9 insertions(+), 9 deletions(-)

(limited to 'src/menu/UMenuBackgroundTexture.pas')

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);
-- 
cgit v1.2.3