style adjustments. no code change.

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@1456 b956fd51-792f-4845-bead-9b4dfca2ff2c

7 files changed, 222 insertions, 223 deletions

diff --git a/src/menu/UMenu.pas b/src/menu/UMenu.pas
index 9068e4cb..c4e0ece6 100644
--- a/src/menu/UMenu.pas
+++ b/src/menu/UMenu.pas
@@ -59,9 +59,9 @@ type
       Interactions:   array of TInteract;
       SelInteraction: integer;
 
-      ButtonPos:      Integer;
+      ButtonPos:      integer;
       Button:         array of TButton;
-      
+     
       SelectsS:       array of TSelectSlide;
       ButtonCollection: array of TButtonCollection;
     public
@@ -73,7 +73,6 @@ type
       Fade:       integer; // fade type
       ShowFinish: boolean; // true if there is no fade
 
-
       destructor Destroy; override;
       constructor Create; overload; virtual;
       //constructor Create(Back: string); overload; virtual; // Back is a JPG resource name for background
@@ -90,7 +89,7 @@ type
       procedure LoadFromTheme(const ThemeBasic: TThemeBasic);
 
       procedure PrepareButtonCollections(const Collections: AThemeButtonCollection);
-      procedure AddButtonCollection(const ThemeCollection: TThemeButtonCollection; Const Num: Byte);
+      procedure AddButtonCollection(const ThemeCollection: TThemeButtonCollection; const Num: byte);
 
       // background
       procedure AddBackground(ThemedSettings: TThemeBackground);
@@ -103,20 +102,20 @@ type
       function AddStatic(X, Y, W, H, Z: real; ColR, ColG, ColB: real; const Name: string; Typ: TTextureType): integer; overload;
       function AddStatic(X, Y, W, H: real; ColR, ColG, ColB: real; const Name: string; Typ: TTextureType; Color: integer): integer; overload;
       function AddStatic(X, Y, W, H, Z: real; ColR, ColG, ColB: real; const Name: string; Typ: TTextureType; Color: integer): integer; overload;
-      function AddStatic(X, Y, W, H, Z: real; ColR, ColG, ColB: real; TexX1, TexY1, TexX2, TexY2: real; const Name: string; Typ: TTextureType; Color: integer; Reflection: Boolean; ReflectionSpacing: Real): integer; overload;
+      function AddStatic(X, Y, W, H, Z: real; ColR, ColG, ColB: real; TexX1, TexY1, TexX2, TexY2: real; const Name: string; Typ: TTextureType; Color: integer; Reflection: boolean; ReflectionSpacing: real): integer; overload;
 
       // text
       function AddText(ThemeText: TThemeText): integer; overload;
       function AddText(X, Y: real; const Text_: string): integer; overload;
       function AddText(X, Y: real; Style: integer; Size, ColR, ColG, ColB: real; const Text: string): integer; overload;
-      function AddText(X, Y, W: real; Style: integer; Size, ColR, ColG, ColB: real; Align: integer; const Text_: string; Reflection_: Boolean; ReflectionSpacing_: Real; Z : Real): integer; overload;
+      function AddText(X, Y, W: real; Style: integer; Size, ColR, ColG, ColB: real; Align: integer; const Text_: string; Reflection_: boolean; ReflectionSpacing_: real; Z : real): integer; overload;
 
       // button
-      Procedure SetButtonLength(Length: Cardinal); //Function that Set Length of Button Array in one Step instead of register new Memory for every Button
+      Procedure SetButtonLength(Length: cardinal); //Function that Set Length of Button Array in one Step instead of register new Memory for every Button
       function AddButton(ThemeButton: TThemeButton): integer; overload;
-      function AddButton(X, Y, W, H: real; const Name: String): integer; overload;
-      function AddButton(X, Y, W, H: real; const Name: String; Typ: TTextureType; Reflection: Boolean): integer; overload;
-      function AddButton(X, Y, W, H, ColR, ColG, ColB, Int, DColR, DColG, DColB, DInt: real; const Name: String; Typ: TTextureType; Reflection: Boolean; ReflectionSpacing, DeSelectReflectionSpacing: Real): integer; overload;
+      function AddButton(X, Y, W, H: real; const Name: string): integer; overload;
+      function AddButton(X, Y, W, H: real; const Name: string; Typ: TTextureType; Reflection: boolean): integer; overload;
+      function AddButton(X, Y, W, H, ColR, ColG, ColB, Int, DColR, DColG, DColB, DInt: real; const Name: string; Typ: TTextureType; Reflection: boolean; ReflectionSpacing, DeSelectReflectionSpacing: real): integer; overload;
       procedure ClearButtons;
       procedure AddButtonText(AddX, AddY: real; const AddText: string); overload;
       procedure AddButtonText(AddX, AddY: real; ColR, ColG, ColB: real; const AddText: string); overload;
@@ -129,10 +128,10 @@ type
         TColR, TColG, TColB, TInt, TDColR, TDColG, TDColB, TDInt,
         SBGColR, SBGColG, SBGColB, SBGInt, SBGDColR, SBGDColG, SBGDColB, SBGDInt,
         STColR, STColG, STColB, STInt, STDColR, STDColG, STDColB, STDInt: real;
-        const Name: String; Typ: TTextureType; const SBGName: String; SBGTyp: TTextureType;
+        const Name: string; Typ: TTextureType; const SBGName: string; SBGTyp: TTextureType;
         const Caption: string; var Data: integer): integer; overload;
       procedure AddSelectSlideOption(const AddText: string); overload;
-      procedure AddSelectSlideOption(SelectNo: Cardinal; const AddText: string); overload;
+      procedure AddSelectSlideOption(SelectNo: cardinal; const AddText: string); overload;
       procedure UpdateSelectSlideOptions(ThemeSelectSlide: TThemeSelectSlide; SelectNum: integer; Values: array of string; var Data: integer);
 
 //      function AddWidget(X, Y : UInt16; WidgetSrc : PSDL_Surface): Int16;
@@ -140,23 +139,23 @@ type
       procedure FadeTo(Screen: PMenu); overload;
       procedure FadeTo(Screen: PMenu; aSound: TAudioPlaybackStream); overload;
       //popup hack
-      procedure CheckFadeTo(Screen: PMenu; msg: String);
+      procedure CheckFadeTo(Screen: PMenu; msg: string);
 
       function DrawBG: boolean; virtual;
       function DrawFG: boolean; virtual;
       function Draw: boolean; virtual;
-      function ParseInput(PressedKey: Cardinal; CharCode: WideChar; PressedDown : Boolean): Boolean; virtual;
+      function ParseInput(PressedKey: cardinal; CharCode: WideChar; PressedDown : boolean): boolean; virtual;
       // FIXME: ParseMouse is not implemented in any subclass and not even used anywhere in the code
       //   -> do this before activation of this method
-      //function ParseMouse(Typ: integer; X: integer; Y: integer): Boolean; virtual; abstract;
+      //function ParseMouse(Typ: integer; X: integer; Y: integer): boolean; virtual; abstract;
       procedure onShow; virtual;
       procedure onShowFinish; virtual;
       procedure onHide; virtual;
 
       procedure SetAnimationProgress(Progress: real); virtual;
 
-      function IsSelectable(Int: Cardinal): Boolean;
-      
+      function IsSelectable(Int: cardinal): boolean;
+    
       procedure InteractNext; virtual;
       procedure InteractCustom(CustomSwitch: integer); virtual;
       procedure InteractPrev; virtual;
@@ -200,7 +199,7 @@ uses UCommon,
 
 destructor TMenu.Destroy;
 begin
-  If (Background <> nil) then
+  if (Background <> nil) then
   begin
     Background.Destroy;
   end;
@@ -223,21 +222,23 @@ begin
   Background := nil;
 end;
 {
-constructor TMenu.Create(Back: String);
+constructor TMenu.Create(Back: string);
 begin
   inherited Create;
 
-  if Back <> '' then begin
+  if Back <> '' then
+  begin
 //    BackImg := Texture.GetTexture(true, Back, TEXTURE_TYPE_PLAIN, 0);
     BackImg := Texture.GetTexture(Back, TEXTURE_TYPE_PLAIN, 0); // new theme system
     BackImg.W := 800;//640;
     BackImg.H := 600;//480;
     BackW := 1;
     BackH := 1;
-  end else
+  end
+  else
     BackImg.TexNum := 0;
 
-   //Set ButtonPos to Autoset Length 
+   //Set ButtonPos to Autoset Length
    ButtonPos := -1;
 end;
 
@@ -250,7 +251,7 @@ begin
   BackH := H;
 end;   }
 
-function RGBFloatToInt(R, G, B: Double): Cardinal;
+function RGBFloatToInt(R, G, B: Double): cardinal;
 begin
   Result := (Trunc(255 * R) shl 16) or
             (Trunc(255 * G) shl  8) or
@@ -259,7 +260,7 @@ end;
 
 procedure TMenu.AddInteraction(Typ, Num: integer);
 var
-  IntNum:   integer;
+  IntNum: integer;
 begin
   IntNum := Length(Interactions);
   SetLength(Interactions, IntNum+1);
@@ -270,8 +271,8 @@ end;
 
 procedure TMenu.SetInteraction(Num: integer);
 var
-  OldNum, OldTyp:   integer;
-  NewNum, NewTyp:   integer;
+  OldNum, OldTyp: integer;
+  NewNum, NewTyp: integer;
 begin
   // set inactive
   OldNum := Interactions[Interaction].Num;
@@ -281,32 +282,32 @@ begin
   NewTyp := Interactions[Num].Typ;
 
   case OldTyp of
-    iButton:  Button[OldNum].Selected := False;
-    iText:    Text[OldNum].Selected := False;
-    iSelectS: SelectsS[OldNum].Selected := False;
+    iButton:  Button[OldNum].Selected := false;
+    iText:    Text[OldNum].Selected := false;
+    iSelectS: SelectsS[OldNum].Selected := false;
     //Button Collection Mod
     iBCollectionChild:
       begin
-        Button[OldNum].Selected := False;
-        
+        Button[OldNum].Selected := false;
+      
         //Deselect Collection if Next Button is Not from Collection
         if (NewTyp <> iButton) Or (Button[NewNum].Parent <> Button[OldNum].Parent) then
-          ButtonCollection[Button[OldNum].Parent-1].Selected := False;
+          ButtonCollection[Button[OldNum].Parent-1].Selected := false;
       end;
   end;
 
   // set active
   SelInteraction := Num;
   case NewTyp of
-    iButton:  Button[NewNum].Selected := True;
-    iText:    Text[NewNum].Selected := True;
-    iSelectS: SelectsS[NewNum].Selected := True;
+    iButton:  Button[NewNum].Selected := true;
+    iText:    Text[NewNum].Selected := true;
+    iSelectS: SelectsS[NewNum].Selected := true;
 
     //Button Collection Mod
     iBCollectionChild:
       begin
-        Button[NewNum].Selected := True;
-        ButtonCollection[Button[NewNum].Parent-1].Selected := True;
+        Button[NewNum].Selected := true;
+        ButtonCollection[Button[NewNum].Parent-1].Selected := true;
       end;
   end;
 end;
@@ -317,7 +318,7 @@ end;
 //----------------------
 procedure TMenu.LoadFromTheme(const ThemeBasic: TThemeBasic);
 var
-  I: Integer;
+  I: integer;
 begin
   //Add Button Collections (Set Button CollectionsLength)
   //Button Collections are Created when the first ChildButton is Created
@@ -336,24 +337,24 @@ end;
 
 procedure TMenu.AddBackground(ThemedSettings: TThemeBackground);
   var
-    FileExt: String;
+    FileExt: string;
 
-  Function IsInArray(const Piece: String; const A: Array of String): Boolean;
-  var I: Integer;
+  Function IsInArray(const Piece: string; const A: array of string): boolean;
+  var I: integer;
   begin
-    Result := False;
-    
-    For I := 0 to High(A) do
-      If (A[I] = Piece) then
+    Result := false;
+  
+    for I := 0 to High(A) do
+      if (A[I] = Piece) then
       begin
-        Result := True;
+        Result := true;
         Exit;
       end;
   end;
 
-  Function TryBGCreate(Typ: cMenuBackground): Boolean;
+  Function TryBGCreate(Typ: cMenuBackground): boolean;
   begin
-    Result := True;
+    Result := true;
 
     try
       Background := Typ.Create(ThemedSettings);
@@ -361,12 +362,13 @@ procedure TMenu.AddBackground(ThemedSettings: TThemeBackground);
       on E: EMenuBackgroundError do
       begin //Background failes to create
         Freeandnil(Background);
-        Result := False;
+        Result := false;
       end;
     end;
   end;
+
 begin
-  If (Background <> nil) then
+  if (Background <> nil) then
   begin
     Background.Destroy;
     Background := nil;
@@ -375,21 +377,20 @@ begin
   Case ThemedSettings.BGType of
     BGT_Auto: begin //Automaticly choose one out of BGT_Texture, BGT_Video or BGT_Color
 
-      If (Length(ThemedSettings.Tex) > 0) then
+      if (Length(ThemedSettings.Tex) > 0) then
       begin
 
         //At first some intelligent try to decide which BG to load
         FileExt := lowercase(ExtractFileExt(Skin.GetTextureFileName(ThemedSettings.Tex)));
 
-        If IsInArray(FileExt, SUPPORTED_EXTS_BACKGROUNDTEXTURE) then
+        if IsInArray(FileExt, SUPPORTED_EXTS_BACKGROUNDTEXTURE) then
           TryBGCreate(TMenuBackgroundTexture)
-        Else If IsInArray(FileExt, SUPPORTED_EXTS_BACKGROUNDVIDEO) then
+        else if IsInArray(FileExt, SUPPORTED_EXTS_BACKGROUNDVIDEO) then
           TryBGCreate(TMenuBackgroundVideo);
 
-
         //If the intelligent method don't succeed
         //do it by trial and error
-        If (Background = nil) then
+        if (Background = nil) then
         begin
           //Try Textured Bg
           if not TryBGCreate(TMenuBackgroundTexture) then
@@ -462,11 +463,11 @@ begin
   end;
 
   //Fallback to None Background or Colored Background
-  If (Background = nil) then
+  if (Background = nil) then
   begin
-    If (ThemedSettings.BGType = BGT_Color) then
+    if (ThemedSettings.BGType = BGT_Color) then
       Background := TMenuBackgroundNone.Create(ThemedSettings)
-    Else
+    else
       Background := TMenuBackgroundColor.Create(ThemedSettings)
   end;
 end;
@@ -477,10 +478,10 @@ end;
 //----------------------
 procedure TMenu.PrepareButtonCollections(const Collections: AThemeButtonCollection);
 var
-  I: Integer;
+  I: integer;
 begin
   SetLength(ButtonCollection, Length(Collections));
-  For I := 0 to High(ButtonCollection) do
+  for I := 0 to High(ButtonCollection) do
     AddButtonCollection(Collections[I], I);
 end;
 
@@ -488,10 +489,10 @@ end;
 //AddButtonCollection:
 //Create a Button Collection;
 //----------------------
-procedure TMenu.AddButtonCollection(const ThemeCollection: TThemeButtonCollection; Const Num: Byte);
+procedure TMenu.AddButtonCollection(const ThemeCollection: TThemeButtonCollection; const Num: byte);
 var
-  BT, BTLen: Integer;
-  TempCol, TempDCol: Cardinal;
+  BT, BTLen: integer;
+  TempCol, TempDCol: cardinal;
 
 begin
   if (Num > High(ButtonCollection)) then
@@ -528,7 +529,8 @@ begin
   ButtonCollection[Num].Y := ThemeCollection.Style.Y;
   ButtonCollection[Num].W := ThemeCollection.Style.W;
   ButtonCollection[Num].H := ThemeCollection.Style.H;
-  if (ThemeCollection.Style.Typ <> TEXTURE_TYPE_COLORIZED) then begin
+  if (ThemeCollection.Style.Typ <> TEXTURE_TYPE_COLORIZED) then
+  begin
     ButtonCollection[Num].SelectColR := ThemeCollection.Style.ColR;
     ButtonCollection[Num].SelectColG := ThemeCollection.Style.ColG;
     ButtonCollection[Num].SelectColB := ThemeCollection.Style.ColB;
@@ -560,15 +562,17 @@ begin
   begin
     ButtonCollection[Num].FadeTex := Texture.GetTexture(
       Skin.GetTextureFileName(ThemeCollection.Style.FadeTex), TEXTURE_TYPE_COLORIZED, TempCol)
-  end else begin
+  end
+  else
+  begin
     ButtonCollection[Num].FadeTex := Texture.GetTexture(
       Skin.GetTextureFileName(ThemeCollection.Style.FadeTex), ThemeCollection.Style.Typ);
   end;
   ButtonCollection[Num].FadeTexPos := ThemeCollection.Style.FadeTexPos;
 
-
   BTLen := Length(ThemeCollection.Style.Text);
-  for BT := 0 to BTLen-1 do begin
+  for BT := 0 to BTLen-1 do
+  begin
       AddButtonText(ButtonCollection[Num], ThemeCollection.Style.Text[BT].X, ThemeCollection.Style.Text[BT].Y,
       ThemeCollection.Style.Text[BT].ColR, ThemeCollection.Style.Text[BT].ColG, ThemeCollection.Style.Text[BT].ColB,
       ThemeCollection.Style.Text[BT].Font, ThemeCollection.Style.Text[BT].Size, ThemeCollection.Style.Text[BT].Align,
@@ -602,7 +606,7 @@ end;
 
 function TMenu.AddStatic(X, Y, W, H: real; const Name: string; Typ: TTextureType): integer;
 var
-  StatNum:  integer;
+  StatNum: integer;
 begin
   // adds static
   StatNum := Length(Static);
@@ -625,12 +629,12 @@ end;
 
 function TMenu.AddStatic(X, Y, W, H, Z: real; ColR, ColG, ColB: real; const Name: string; Typ: TTextureType; Color: integer): integer;
 begin
-  Result := AddStatic(X, Y, W, H, Z, ColR, ColG, ColB, 0, 0, 1, 1, Name, Typ, Color, False, 0);
+  Result := AddStatic(X, Y, W, H, Z, ColR, ColG, ColB, 0, 0, 1, 1, Name, Typ, Color, false, 0);
 end;
 
-function TMenu.AddStatic(X, Y, W, H, Z: real; ColR, ColG, ColB: real; TexX1, TexY1, TexX2, TexY2: real; const Name: string; Typ: TTextureType; Color: integer; Reflection: Boolean; ReflectionSpacing: Real): integer;
+function TMenu.AddStatic(X, Y, W, H, Z: real; ColR, ColG, ColB: real; TexX1, TexY1, TexX2, TexY2: real; const Name: string; Typ: TTextureType; Color: integer; Reflection: boolean; ReflectionSpacing: real): integer;
 var
-  StatNum:  integer;
+  StatNum: integer;
 begin
   // adds static
   StatNum := Length(Static);
@@ -681,7 +685,7 @@ end;
 
 function TMenu.AddText(X, Y: real; const Text_: string): integer;
 var
-  TextNum:  integer;
+  TextNum: integer;
 begin
   // adds text
   TextNum := Length(Text);
@@ -695,9 +699,9 @@ begin
   Result := AddText(X, Y, 0, Style, Size, ColR, ColG, ColB, 0, Text, false, 0, 0);
 end;
 
-function TMenu.AddText(X, Y, W: real; Style: integer; Size, ColR, ColG, ColB: real; Align: integer; const Text_: string; Reflection_: Boolean; ReflectionSpacing_: Real; Z : Real): integer;
+function TMenu.AddText(X, Y, W: real; Style: integer; Size, ColR, ColG, ColB: real; Align: integer; const Text_: string; Reflection_: boolean; ReflectionSpacing_: real; Z : real): integer;
 var
-  TextNum:  integer;
+  TextNum: integer;
 begin
   // adds text
   TextNum := Length(Text);
@@ -706,8 +710,8 @@ begin
   Result := TextNum;
 end;
 
-//Function that Set Length of Button Array in one Step instead of register new Memory for every Button
-Procedure TMenu.SetButtonLength(Length: Cardinal);
+//Function that Set Length of Button boolean in one Step instead of register new Memory for every Button
+Procedure TMenu.SetButtonLength(Length: cardinal);
 begin
   if (ButtonPos = -1) AND (Length > 0) then
   begin
@@ -719,12 +723,11 @@ begin
   end;
 end;
 
-
 // Method to add a button in our TMenu. It returns the assigned ButtonNumber
 function TMenu.AddButton(ThemeButton: TThemeButton): integer;
 var
-  BT:     integer;
-  BTLen:  integer;
+  BT:    integer;
+  BTLen: integer;
 begin
   Result := AddButton(ThemeButton.X, ThemeButton.Y, ThemeButton.W, ThemeButton.H,
     ThemeButton.ColR, ThemeButton.ColG, ThemeButton.ColB, ThemeButton.Int,
@@ -773,7 +776,7 @@ begin
     if (@ButtonCollection[ThemeButton.Parent-1] <> nil) then
     begin
       Interactions[High(Interactions)].Typ := iBCollectionChild;
-      Button[Result].Visible := False;
+      Button[Result].Visible := false;
 
       for BT := 0 to BTLen-1 do
         Button[Result].Text[BT].Alpha := 0;
@@ -787,19 +790,19 @@ begin
   Log.LogBenchmark('====> Screen Options32', 6);
 end;
 
-function TMenu.AddButton(X, Y, W, H: real; const Name: String): integer;
+function TMenu.AddButton(X, Y, W, H: real; const Name: string): integer;
 begin
-  Result := AddButton(X, Y, W, H, Name, TEXTURE_TYPE_PLAIN, False);
+  Result := AddButton(X, Y, W, H, Name, TEXTURE_TYPE_PLAIN, false);
 end;
 
-function TMenu.AddButton(X, Y, W, H: real; const Name: String; Typ: TTextureType; Reflection: Boolean): integer;
+function TMenu.AddButton(X, Y, W, H: real; const Name: string; Typ: TTextureType; Reflection: boolean): integer;
 begin
   Result := AddButton(X, Y, W, H, 1, 1, 1, 1, 1, 1, 1, 0.5, Name, TEXTURE_TYPE_PLAIN, Reflection, 15, 15);
 end;
 
 function TMenu.AddButton(X, Y, W, H, ColR, ColG, ColB, Int, DColR, DColG, DColB, DInt: real;
-                         const Name: String; Typ: TTextureType;
-                         Reflection: Boolean; ReflectionSpacing, DeSelectReflectionSpacing: Real): integer;
+                         const Name: string; Typ: TTextureType;
+                         Reflection: boolean; ReflectionSpacing, DeSelectReflectionSpacing: real): integer;
 begin
   // adds button
   //SetLength is used once to reduce Memory usement
@@ -855,7 +858,6 @@ begin
   //Button Collection Mod
   Button[Result].Parent := 0;
 
-
   // adds interaction
   AddInteraction(iButton, Result);
   Interaction := 0;
@@ -876,7 +878,7 @@ end;
 
 function TMenu.DrawFG: boolean;
 var
-  J:      Integer;
+  J: integer;
 begin
   // We don't forget about newly implemented static for nice skin ...
   for J := 0 to Length(Static) - 1 do
@@ -900,7 +902,7 @@ begin
   // Third, we draw all our widgets
   //  for J := 0 to Length(WidgetsSrc) - 1 do
   //    SDL_BlitSurface(WidgetsSrc[J], nil, ParentBackBuf, WidgetsRect[J]);
-  Result := True;
+  Result := true;
 end;
 
 function TMenu.Draw: boolean;
@@ -959,9 +961,9 @@ begin
 end;
 }
 
-function TMenu.IsSelectable(Int: Cardinal): Boolean;
+function TMenu.IsSelectable(Int: cardinal): boolean;
 begin
-  Result := True;
+  Result := true;
   case Interactions[Int].Typ of
     //Button
     iButton: Result := Button[Interactions[Int].Num].Visible and Button[Interactions[Int].Num].Selectable;
@@ -980,7 +982,7 @@ end;
 // this behaviour doesn't make sense for two rows of buttons
 procedure TMenu.InteractPrevRow;
 var
-  Int:   integer;
+  Int: integer;
 begin
 // these two procedures just make sense for at least 5 buttons, because we
 // usually start a second row when there are more than 4 buttons
@@ -996,7 +998,7 @@ end;
 
 procedure TMenu.InteractNextRow;
 var
-  Int:   integer;
+  Int: integer;
 begin
   Int := Interaction;
 
@@ -1046,22 +1048,23 @@ begin
   Interaction := Int
 end;
 
-
 procedure TMenu.InteractCustom(CustomSwitch: integer);
 { needed only for below
 var
-  Num:    integer;
-  Typ:    integer;
-  Again:  boolean;
+  Num:   integer;
+  Typ:   integer;
+  Again: boolean;
 }
 begin
   //Code Commented atm, because it needs to be Rewritten
   //it doesn't work with Button Collections
-  {then begin
+  {then
+  begin
     CustomSwitch:= CustomSwitch*(-1);
     Again := true;
   // change interaction as long as it's needed
-  while (Again = true) do begin
+  while (Again = true) do
+  begin
     Num := SelInteraction - CustomSwitch;
     if Num = -1 then Num := High(Interactions);
     Interaction := Num;
@@ -1073,34 +1076,36 @@ begin
     case Typ of
     iButton:
       begin
-        if Button[Num].Selectable = false then Again := True;
+        if Button[Num].Selectable = false then
+	  Again := true;
       end;
     end; // case
   end; // while
   end
-  else if num>0 then begin
+  else if num>0 then
+  begin
     Again := true;
     // change interaction as long as it's needed
-  while (Again = true) do begin
+  while (Again = true) do
+  begin
     Num := (Interaction + CustomSwitch) Mod Length(Interactions);
     Interaction := Num;
     Again := false; // reset, default to accept changing interaction
 
-
     // checking newly interacted element
     Num := Interactions[Interaction].Num;
     Typ := Interactions[Interaction].Typ;
     case Typ of
     iButton:
       begin
-        if Button[Num].Selectable = false then Again := True;
+        if Button[Num].Selectable = false then
+	  Again := true;
       end;
     end; // case
   end; // while
     end     }
 end;
 
-
 procedure TMenu.FadeTo(Screen: PMenu);
 begin
   Display.Fade := 0;
@@ -1113,13 +1118,12 @@ begin
   AudioPlayback.PlaySound( aSound );
 end;
 
-
 //popup hack
-procedure TMenu.CheckFadeTo(Screen: PMenu; msg: String);
+procedure TMenu.CheckFadeTo(Screen: PMenu; msg: string);
 begin
   Display.Fade := 0;
   Display.NextScreenWithCheck := Screen;
-  Display.CheckOK:=False;
+  Display.CheckOK := false;
   ScreenPopupCheck.ShowPopup(msg);
 end;
 
@@ -1130,9 +1134,10 @@ end;
 
 procedure TMenu.AddButtonText(AddX, AddY: real; ColR, ColG, ColB: real; const AddText: string);
 var
-  Il:   integer;
+  Il: integer;
 begin
-  with Button[High(Button)] do begin
+  with Button[High(Button)] do
+  begin
     Il := Length(Text);
     SetLength(Text, Il+1);
     Text[Il] := TText.Create(X + AddX, Y + AddY, AddText);
@@ -1145,9 +1150,10 @@ end;
 
 procedure TMenu.AddButtonText(AddX, AddY: real; ColR, ColG, ColB: real; Font: integer; Size: integer; Align: integer; const AddText: string);
 var
-  Il:   integer;
+  Il: integer;
 begin
-  with Button[High(Button)] do begin
+  with Button[High(Button)] do
+  begin
     Il := Length(Text);
     SetLength(Text, Il+1);
     Text[Il] := TText.Create(X + AddX, Y + AddY, AddText);
@@ -1163,9 +1169,10 @@ end;
 
 procedure TMenu.AddButtonText(CustomButton: TButton; AddX, AddY: real; ColR, ColG, ColB: real; Font: integer; Size: integer; Align: integer; const AddText: string);
 var
-  Il:   integer;
+  Il: integer;
 begin
-  with CustomButton do begin
+  with CustomButton do
+  begin
     Il := Length(Text);
     SetLength(Text, Il+1);
     Text[Il] := TText.Create(X + AddX, Y + AddY, AddText);
@@ -1179,10 +1186,9 @@ begin
   end;
 end;
 
-
 function TMenu.AddSelectSlide(ThemeSelectS: TThemeSelectSlide; var Data: integer; Values: array of string): integer;
 var
-  SO:     integer;
+  SO: integer;
 begin
   Result := AddSelectSlide(ThemeSelectS.X, ThemeSelectS.Y, ThemeSelectS.W, ThemeSelectS.H, ThemeSelectS.SkipX, ThemeSelectS.SBGW,
     ThemeSelectS.ColR, ThemeSelectS.ColG, ThemeSelectS.ColB, ThemeSelectS.Int,
@@ -1214,11 +1220,11 @@ function TMenu.AddSelectSlide(X, Y, W, H, SkipX, SBGW, ColR, ColG, ColB, Int, DC
   TColR, TColG, TColB, TInt, TDColR, TDColG, TDColB, TDInt,
   SBGColR, SBGColG, SBGColB, SBGInt, SBGDColR, SBGDColG, SBGDColB, SBGDInt,
   STColR, STColG, STColB, STInt, STDColR, STDColG, STDColB, STDInt: real;
-  const Name: String; Typ: TTextureType; const SBGName: String; SBGTyp: TTextureType;
+  const Name: string; Typ: TTextureType; const SBGName: string; SBGTyp: TTextureType;
   const Caption: string; var Data: integer): integer;
 var
-  S:    integer;
-  I:    integer;
+  S: integer;
+  I: integer;
 begin
   S := Length(SelectsS);
   SetLength(SelectsS, S + 1);
@@ -1313,14 +1319,14 @@ begin
   SelectsS[S].SetSelect(false);
 
   {// Configures 3 select options
-  for I := 0 to 2 do begin
+  for I := 0 to 2 do
+  begin
     SelectsS[S].TextOpt[I].X := SelectsS[S].TextureSBG.X + 20 + (50 + 20) + (150 - 20) * I;
     SelectsS[S].TextOpt[I].Y := SelectsS[S].TextureSBG.Y + 20;
     SelectsS[S].TextOpt[I].Text := IntToStr(I+1);
     SelectsS[S].TextOpt[I].Size := 10;
     SelectsS[S].TextOpt[I].Align := 1;
 
-
     SelectsS[S].TextOpt[I].ColR := SelectsS[S].STDColR;
     SelectsS[S].TextOpt[I].ColG := SelectsS[S].STDColG;
     SelectsS[S].TextOpt[I].ColB := SelectsS[S].STDColB;
@@ -1328,7 +1334,6 @@ begin
     SelectsS[S].TextOpt[I].Visible := true;
   end;}
 
-
   // adds interaction
   AddInteraction(iSelectS, S);
   Result := S;
@@ -1339,12 +1344,12 @@ begin
   AddSelectSlideOption(High(SelectsS), AddText);
 end;
 
-procedure TMenu.AddSelectSlideOption(SelectNo: Cardinal; const AddText: string);
+procedure TMenu.AddSelectSlideOption(SelectNo: cardinal; const AddText: string);
 var
-  SO:     integer;
+  SO: integer;
 begin
   SO := Length(SelectsS[SelectNo].TextOptT);
-  
+
   SetLength(SelectsS[SelectNo].TextOptT, SO + 1);
   SelectsS[SelectNo].TextOptT[SO] := AddText;
 
@@ -1355,7 +1360,7 @@ end;
 
 procedure TMenu.UpdateSelectSlideOptions(ThemeSelectSlide: TThemeSelectSlide; SelectNum: integer; Values: array of string; var Data: integer);
 var
-  SO:   integer;
+  SO: integer;
 begin
   SetLength(SelectsS[SelectNum].TextOptT, 0);
   for SO := 0 to High(Values) do
@@ -1376,8 +1381,8 @@ end;
 
 procedure TMenu.InteractInc;
 var
-  Num:    integer;
-  Value:  integer;
+  Num:   integer;
+  Value: integer;
 begin
   case Interactions[Interaction].Typ of
     iSelectS: begin
@@ -1395,7 +1400,7 @@ begin
       begin
 
         //Select Next Button in Collection
-        For Num := 1 to High(Button) do
+        for Num := 1 to High(Button) do
         begin
           Value := (Interaction + Num) Mod Length(Button);
           if Value = 0 then
@@ -1417,8 +1422,8 @@ end;
 
 procedure TMenu.InteractDec;
 var
-  Num:    integer;
-  Value:  integer;
+  Num:   integer;
+  Value: integer;
 begin
   case Interactions[Interaction].Typ of
     iSelectS: begin
@@ -1435,7 +1440,7 @@ begin
     iBCollectionChild:
       begin
         //Select Prev Button in Collection
-        For Num := High(Button) downto 1 do
+        for Num := High(Button) downto 1 do
         begin
           Value := (Interaction + Num) Mod Length(Button);
           if Value = High(Button) then
@@ -1458,7 +1463,7 @@ begin
         if (Button[Interactions[Interaction].Num].Parent <> 0) AND (ButtonCollection[Button[Interactions[Interaction].Num].Parent-1].CountChilds > 1) then
         begin
           //Select Last Child
-          For Num := High(Button) downto 1 do
+          for Num := High(Button) downto 1 do
           begin
             Value := (Interaction + Num) Mod Length(Button);
             if (Button[Value].Parent = Button[Interaction].Parent) then
@@ -1484,7 +1489,7 @@ begin
   // VideoBackground so we can check whether a video-background is enabled or not.
   // Second, a video should be stopped if the screen is hidden, but the Video.Stop()
   // method is not implemented by now. This is necessary for theme-switching too.
-  // At the moment videos cannot be turned off without restarting USDX. 
+  // At the moment videos cannot be turned off without restarting USDX.
 
   {// check if a background texture was found
   if (BackImg.TexNum = 0)  then
@@ -1501,7 +1506,7 @@ begin
       end;
     end;
   end; }
-  If (Background = nil) then
+  if (Background = nil) then
     AddBackground(DEFAULTBACKGROUND);
 
   Background.OnShow;
@@ -1553,7 +1558,7 @@ begin
   Background.OnFinish;
 end;
 
-function TMenu.ParseInput(PressedKey: Cardinal; CharCode: WideChar; PressedDown: Boolean): Boolean;
+function TMenu.ParseInput(PressedKey: cardinal; CharCode: WideChar; PressedDown: boolean): boolean;
 begin
   // nothing
   Result := true;
diff --git a/src/menu/UMenuBackground.pas b/src/menu/UMenuBackground.pas
index 762faf34..6a73b621 100644
--- a/src/menu/UMenuBackground.pas
+++ b/src/menu/UMenuBackground.pas
@@ -45,39 +45,37 @@ uses
 type

   EMenuBackgroundError = class(Exception);

   TMenuBackground = class

-    Constructor Create(const ThemedSettings: TThemeBackground); virtual;

-    Procedure   OnShow; virtual;

-    Procedure   Draw; virtual;

-    Procedure   OnFinish; virtual;

-    Destructor  Destroy; virtual;

+    constructor Create(const ThemedSettings: TThemeBackground); virtual;

+    procedure   OnShow; virtual;

+    procedure   Draw; virtual;

+    procedure   OnFinish; virtual;

+    destructor  Destroy; virtual;

   end;

   cMenuBackground = class of TMenuBackground;

 

 implementation

 

-Constructor TMenuBackground.Create(const ThemedSettings: TThemeBackground);

+constructor TMenuBackground.Create(const ThemedSettings: TThemeBackground);

 begin

   inherited Create;

 end;

 

-Destructor  TMenuBackground.Destroy;

+destructor  TMenuBackground.Destroy;

 begin

   inherited;

 end;

 

-

-Procedure   TMenuBackground.OnShow;

+procedure   TMenuBackground.OnShow;

 begin

 

 end;

 

-Procedure   TMenuBackground.OnFinish;

+procedure   TMenuBackground.OnFinish;

 begin

 

 end;

 

-

-Procedure   TMenuBackground.Draw;

+procedure   TMenuBackground.Draw;

 begin

 

 end;

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);

diff --git a/src/menu/UMenuBackgroundFade.pas b/src/menu/UMenuBackgroundFade.pas
index 3bdd631e..b6174738 100644
--- a/src/menu/UMenuBackgroundFade.pas
+++ b/src/menu/UMenuBackgroundFade.pas
@@ -44,18 +44,18 @@ uses
 type

   TMenuBackgroundFade = class (TMenuBackground)

     private

-      Tex:    TTexture;

+      Tex:        TTexture;

       Color:      TRGB;

-      Alpha:      Real;

+      Alpha:      real;

       

-      useTexture: Boolean;

+      useTexture: boolean;

 

-      FadeTime:   Cardinal;

+      FadeTime:   cardinal;

     public

-      Constructor Create(const ThemedSettings: TThemeBackground); override;

-      Procedure   OnShow; override;

-      Procedure   Draw; override;

-      Destructor  Destroy; override;

+      constructor Create(const ThemedSettings: TThemeBackground); override;

+      procedure   OnShow; override;

+      procedure   Draw; override;

+      destructor  Destroy; override;

   end;

 

 const

@@ -68,15 +68,15 @@ uses sdl,
      USkins,

      UCommon;

 

-Constructor TMenuBackgroundFade.Create(const ThemedSettings: TThemeBackground);

-var texFilename: String;

+constructor TMenuBackgroundFade.Create(const ThemedSettings: TThemeBackground);

+var texFilename: string;

 begin

   inherited;

   FadeTime := 0;

 

   Color := ThemedSettings.Color;

   Alpha := ThemedSettings.Alpha;

-  If (Length(ThemedSettings.Tex) > 0) then

+  if (Length(ThemedSettings.Tex) > 0) then

   begin

     texFilename := Skin.GetTextureFileName(ThemedSettings.Tex);

     texFilename := AdaptFilePaths(texFilename);

@@ -85,43 +85,41 @@ begin
     UseTexture  := (Tex.TexNum <> 0);

   end

   else

-    UseTexture := False;

+    UseTexture := false;

 

-  If (not UseTexture) then

+  if (not UseTexture) then

     FreeandNil(Tex);

 end;

 

-Destructor  TMenuBackgroundFade.Destroy;

+destructor  TMenuBackgroundFade.Destroy;

 begin

   //Why isn't there any Tex.free method?

-  {If UseTexture then

+  {if UseTexture then

     FreeandNil(Tex); }

   inherited;

 end;

 

-

-Procedure   TMenuBackgroundFade.OnShow;

+procedure   TMenuBackgroundFade.OnShow;

 begin

   FadeTime := SDL_GetTicks;

 end;

 

-

-Procedure   TMenuBackgroundFade.Draw;

+procedure   TMenuBackgroundFade.Draw;

 var

-  Progress: Real;

+  Progress: real;

 begin

-  If FadeTime = 0 then

+  if FadeTime = 0 then

     Progress := Alpha

-  Else

+  else

     Progress := Alpha * (SDL_GetTicks - FadeTime) / FADEINTIME;

 

-  If Progress > Alpha then

+  if Progress > Alpha then

   begin

     FadeTime := 0;

     Progress := Alpha;

   end;

 

-  If (UseTexture) then

+  if (UseTexture) then

   begin //Draw Texture to Screen

     glClear(GL_DEPTH_BUFFER_BIT);

 

diff --git a/src/menu/UMenuBackgroundNone.pas b/src/menu/UMenuBackgroundNone.pas
index d4188395..6b63742a 100644
--- a/src/menu/UMenuBackgroundNone.pas
+++ b/src/menu/UMenuBackgroundNone.pas
@@ -45,8 +45,8 @@ type
     private

 

     public

-      Constructor Create(const ThemedSettings: TThemeBackground); override;

-      Procedure   Draw; override;

+      constructor Create(const ThemedSettings: TThemeBackground); override;

+      procedure   Draw; override;

   end;

 

 implementation

@@ -54,12 +54,12 @@ uses
   gl,

   glext;

 

-Constructor TMenuBackgroundNone.Create(const ThemedSettings: TThemeBackground);

+constructor TMenuBackgroundNone.Create(const ThemedSettings: TThemeBackground);

 begin

   inherited;

 end;

 

-Procedure   TMenuBackgroundNone.Draw;

+procedure   TMenuBackgroundNone.Draw;

 begin

   //Do just nothing in here!

   glClear(GL_DEPTH_BUFFER_BIT);

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);

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;  }