From 94cefdb78044e0f9996e3032de34b690de98b708 Mon Sep 17 00:00:00 2001
From: tobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Thu, 23 Jul 2009 12:34:07 +0000
Subject: - revert to 1777 - Ocean.ini and SVN properties are not reverted

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/branches/experimental@1854 b956fd51-792f-4845-bead-9b4dfca2ff2c
---
 unicode/src/menu/UMenuButtonCollection.pas | 32 +++++++++++++++---------------
 1 file changed, 16 insertions(+), 16 deletions(-)

(limited to 'unicode/src/menu/UMenuButtonCollection.pas')

diff --git a/unicode/src/menu/UMenuButtonCollection.pas b/unicode/src/menu/UMenuButtonCollection.pas
index 8b7a1c3f..c6c6dd81 100644
--- a/unicode/src/menu/UMenuButtonCollection.pas
+++ b/unicode/src/menu/UMenuButtonCollection.pas
@@ -41,61 +41,61 @@ type
   //TButtonCollection
   //No Extra Attributes or Functions ATM
   //----------------
-  AButton = array of TButton;
+  AButton = Array of TButton;
   PAButton = ^AButton;
   TButtonCollection = class(TButton)
     //num of the First Button, that can be Selected
-    FirstChild: byte;
-    CountChilds: byte;
+    FirstChild: Byte;
+    CountChilds: Byte;
     
     ScreenButton: PAButton;
 
-    procedure SetSelect(Value : boolean); override;
+    procedure SetSelect(Value : Boolean); override;
     procedure Draw; override;
   end;
 
 implementation
 
-procedure TButtonCollection.SetSelect(Value : boolean);
-var
-  Index: integer;
+procedure TButtonCollection.SetSelect(Value : Boolean);
+var I: Integer;
 begin
   inherited;
 
   //Set Visible for Every Button that is a Child of this ButtonCollection
-  if (not Fade) then
-    for Index := 0 to High(ScreenButton^) do
-      if (ScreenButton^[Index].Parent = Parent) then
-        ScreenButton^[Index].Visible := Value;
+  if (Not Fade) then
+    For I := 0 to High(ScreenButton^) do
+      if (ScreenButton^[I].Parent = Parent) then
+        ScreenButton^[I].Visible := Value;
 end;
 
 procedure TButtonCollection.Draw;
-var
-  I, J: integer;
+var I, J: Integer;
 begin
   inherited;
   //If fading is activated, Fade Child Buttons
   if (Fade) then
   begin
-    for I := 0 to High(ScreenButton^) do
+    For I := 0 to High(ScreenButton^) do
       if (ScreenButton^[I].Parent = Parent) then
       begin
         if (FadeProgress < 0.5) then
         begin
           ScreenButton^[I].Visible := SelectBool;
 
-          for J := 0 to High(ScreenButton^[I].Text) do
+          For J := 0 to High(ScreenButton^[I].Text) do
             ScreenButton^[I].Text[J].Visible := SelectBool;
         end
         else
         begin
           ScreenButton^[I].Texture.Alpha := (FadeProgress-0.666)*3;
           
-          for J := 0 to High(ScreenButton^[I].Text) do
+          For J := 0 to High(ScreenButton^[I].Text) do
             ScreenButton^[I].Text[J].Alpha := (FadeProgress-0.666)*3;
         end;
       end;
   end;
 end;
 
+
+
 end.
-- 
cgit v1.2.3