From 544d6b5d3ebc527245d20542b6130baef315b715 Mon Sep 17 00:00:00 2001
From: s_alexander <s_alexander@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Sat, 27 Jun 2009 21:40:55 +0000
Subject: merged r1830 trunk (current) in this branch add some files to
 svn:ignore

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/branches/experimental@1831 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 c6c6dd81..8b7a1c3f 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 I: Integer;
+procedure TButtonCollection.SetSelect(Value : boolean);
+var
+  Index: integer;
 begin
   inherited;
 
   //Set Visible for Every Button that is a Child of this ButtonCollection
-  if (Not Fade) then
-    For I := 0 to High(ScreenButton^) do
-      if (ScreenButton^[I].Parent = Parent) then
-        ScreenButton^[I].Visible := Value;
+  if (not Fade) then
+    for Index := 0 to High(ScreenButton^) do
+      if (ScreenButton^[Index].Parent = Parent) then
+        ScreenButton^[Index].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