Changeset 447 for trunk/Packages/CevoComponents/ButtonB.pas

Timestamp:

May 19, 2022, 10:39:34 PM (2 years ago)

Author:

chronos

Message:

• Modified: Use first capital letter in identifiers.

File:

• trunk/Packages/CevoComponents/ButtonB.pas (modified) (2 diffs)

trunk/Packages/CevoComponents/ButtonB.pas

@@ -11 +11 @@
   private
     FMask: TBitmap;
-    FIndex: integer;
-    procedure SetIndex(Text: integer);
+    FIndex: Integer;
+    procedure SetIndex(Text: Integer);
   public
     property Mask: TBitmap read FMask write FMask;
   published
     property Visible;
-    property ButtonIndex: integer read FIndex write SetIndex;
+    property ButtonIndex: Integer read FIndex write SetIndex;
     property OnClick;
   protected
@@ -61 +61 @@
 end;
 
-procedure TButtonB.SetIndex(Text: integer);
+procedure TButtonB.SetIndex(Text: Integer);
 begin
   if Text <> FIndex then begin