From e60c0d3e29be2c77e7ab8deca6c37d0b07ebf085 Mon Sep 17 00:00:00 2001 From: k-m_schindler 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/UMenuBackgroundColor.pas | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'src/menu/UMenuBackgroundColor.pas') diff --git a/src/menu/UMenuBackgroundColor.pas b/src/menu/UMenuBackgroundColor.pas index 26385b44..68cf2de4 100644 --- a/src/menu/UMenuBackgroundColor.pas +++ b/src/menu/UMenuBackgroundColor.pas @@ -45,8 +45,8 @@ type private Color: TRGB; public - Constructor Create(const ThemedSettings: TThemeBackground); override; - Procedure Draw; override; + constructor Create(const ThemedSettings: TThemeBackground); override; + procedure Draw; override; end; implementation @@ -54,13 +54,13 @@ uses gl, glext; -Constructor TMenuBackgroundColor.Create(const ThemedSettings: TThemeBackground); +constructor TMenuBackgroundColor.Create(const ThemedSettings: TThemeBackground); begin inherited; Color := ThemedSettings.Color; end; -Procedure TMenuBackgroundColor.Draw; +procedure TMenuBackgroundColor.Draw; begin glClearColor(Color.R, Color.G, Color.B, 0); glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT); -- cgit v1.2.3