Changeset 184 for trunk/Packages/CevoComponents/ButtonC.pas

Timestamp:

May 4, 2020, 10:24:23 PM (5 years ago)

Author:

chronos

Message:

• Modified: Code formatting.

File:

• trunk/Packages/CevoComponents/ButtonC.pas (modified) (3 diffs)

trunk/Packages/CevoComponents/ButtonC.pas

@@ -4 +4 @@
 
 uses
-  ButtonBase,
-  Classes, Graphics, LCLIntf, LCLType;
+  ButtonBase, Classes, Graphics, LCLIntf, LCLType;
 
 type
@@ -12 +11 @@
   private
     FIndex: Integer;
-    procedure SetIndex(x: Integer);
+    procedure SetIndex(Text: Integer);
   published
     property Visible;
@@ -47 +46 @@
       Brush.Color := $0000FF;
       FrameRect(Rect(0, 0, 12, 12))
-    end
+    end;
 end;
 
-procedure TButtonC.SetIndex(x: integer);
+procedure TButtonC.SetIndex(Text: integer);
 begin
-  if x <> FIndex then
+  if Text <> FIndex then
   begin
-    FIndex := x;
+    FIndex := Text;
     Invalidate;
   end;