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/UMenuBackgroundVideo.pas | 68 +++++++++++++++++++--------------------
 1 file changed, 33 insertions(+), 35 deletions(-)

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

diff --git a/src/menu/UMenuBackgroundVideo.pas b/src/menu/UMenuBackgroundVideo.pas
index a6d02828..377c2170 100644
--- a/src/menu/UMenuBackgroundVideo.pas
+++ b/src/menu/UMenuBackgroundVideo.pas
@@ -44,57 +44,57 @@ uses
 type
   //DefaultBGVideoPlayback = TVideoPlayback_FFmpeg;
 
-{type 
+{type
   TBGVideoPool = class;
 
   PBGVideoPoolItem = ^TBGVideoPoolItem;
   TBGVideoPoolItem = record
     Parent: TBGVideoPool;
     VideoPlayback = IVideoPlayback;
-    ReferenceCounter: Cardinal; //Number of Creations
+    ReferenceCounter: cardinal; //Number of Creations
   end;
 
   TBGVideo = class
     private
       myItem: PBGVideoPoolItem;
     public
-      Constructor Create(Item: PBGVideoPoolItem); override;
+      constructor Create(Item: PBGVideoPoolItem); override;
 
-      Function    GetVideoPlayback: IVideoPlayback;
-      Procedure   Draw;
+      function    GetVideoPlayback: IVideoPlayback;
+      procedure   Draw;
 
-      Destructor  Destroy;
+      destructor  Destroy;
   end;
 
   TBGVideoPool = class
     private
       Items: PBGVideoPoolItem;
     public
-      Constructor Create;
+      constructor Create;
 
-      Function    GetBGVideo(filename: String): TBGVideo;
-      Procedure   RemoveItem(
-      Procedure   FreeAllItems;
+      function    GetBGVideo(filename: string): TBGVideo;
+      procedure   RemoveItem(
+      procedure   FreeAllItems;
 
-      Destructor  Destroy;
+      destructor  Destroy;
   end;
-        
+
 type }
   TMenuBackgroundVideo = class (TMenuBackground)
     private
-      fFilename: String;
+      fFilename: string;
     public
-      Constructor Create(const ThemedSettings: TThemeBackground); override;
-      Procedure   OnShow; override;
-      Procedure   Draw; override;
-      Procedure   OnFinish; override;
-      Destructor  Destroy; override;
+      constructor Create(const ThemedSettings: TThemeBackground); override;
+      procedure   OnShow; override;
+      procedure   Draw; override;
+      procedure   OnFinish; override;
+      destructor  Destroy; override;
   end;
 
 {var
   BGVideoPool: TBGVideoPool;  }
 const
-  SUPPORTED_EXTS_BACKGROUNDVIDEO: Array[0..6] of String = ('.avi', '.mov', '.divx', '.mpg', '.mp4', '.mpeg', '.m2v');
+  SUPPORTED_EXTS_BACKGROUNDVIDEO: array[0..6] of string = ('.avi', '.mov', '.divx', '.mpg', '.mp4', '.mpeg', '.m2v');
 
 implementation
 
@@ -107,10 +107,10 @@ uses
   USkins,
   UCommon;
 
-Constructor TMenuBackgroundVideo.Create(const ThemedSettings: TThemeBackground);
+constructor TMenuBackgroundVideo.Create(const ThemedSettings: TThemeBackground);
 begin
   inherited;
-  If (Length(ThemedSettings.Tex) = 0) then
+  if (Length(ThemedSettings.Tex) = 0) then
     raise EMenuBackgroundError.Create('TMenuBackgroundVideo: No video filename present');
 
   fFileName := Skin.GetTextureFileName(ThemedSettings.Tex);
@@ -125,13 +125,12 @@ begin
     raise EMenuBackgroundError.Create('TMenuBackgroundVideo: Can''t load background video: ' + fFilename);
 end;
 
-Destructor  TMenuBackgroundVideo.Destroy;
+destructor  TMenuBackgroundVideo.Destroy;
 begin
 
 end;
 
-
-Procedure   TMenuBackgroundVideo.OnShow;
+procedure   TMenuBackgroundVideo.OnShow;
 begin
   if VideoPlayback.Open( fFileName ) then
   begin
@@ -140,13 +139,12 @@ begin
   end;
 end;
 
-Procedure   TMenuBackgroundVideo.OnFinish;
+procedure   TMenuBackgroundVideo.OnFinish;
 begin
 
 end;
 
-
-Procedure   TMenuBackgroundVideo.Draw;
+procedure   TMenuBackgroundVideo.Draw;
 begin
   glClear(GL_DEPTH_BUFFER_BIT);
 
@@ -157,23 +155,23 @@ end;
 
 // Implementation of TBGVideo
 //--------
-{Constructor TBGVideo.Create(Item: PBGVideoPoolItem);
+{constructor TBGVideo.Create(Item: PBGVideoPoolItem);
 begin
   myItem := PBGVideoPoolItem;
   Inc(myItem.ReferenceCounter);
 end;
 
-Destructor  TBGVideo.Destroy;
+destructor  TBGVideo.Destroy;
 begin
   Dec(myItem.ReferenceCounter);
 end;
 
-Function    TBGVideo.GetVideoPlayback: IVideoPlayback;
+function    TBGVideo.GetVideoPlayback: IVideoPlayback;
 begin
 
 end;
 
-Procedure   TBGVideo.Draw;
+procedure   TBGVideo.Draw;
 begin
 
 end;
@@ -181,22 +179,22 @@ end;
 // Implementation of TBGVideoPool
 //--------
 
-Constructor TBGVideoPool.Create;
+constructor TBGVideoPool.Create;
 begin
 
 end;
 
-Destructor  TBGVideoPool.Destroy;
+destructor  TBGVideoPool.Destroy;
 begin
 
 end;
 
-Function    TBGVideoPool.GetBGVideo(filename: String): TBGVideo;
+function    TBGVideoPool.GetBGVideo(filename: string): TBGVideo;
 begin
 
 end;
 
-Procedure   TBGVideoPool.FreeAllItems;
+procedure   TBGVideoPool.FreeAllItems;
 begin
 
 end;  }
-- 
cgit v1.2.3