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

Timestamp:

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

Author:

chronos

Message:

• Modified: Code formatting.

File:

• trunk/Packages/CevoComponents/ButtonA.pas (modified) (4 diffs)

trunk/Packages/CevoComponents/ButtonA.pas

@@ -4 +4 @@
 
 uses
-  ButtonBase,
-  Classes, Graphics, LCLIntf, LCLType;
+  ButtonBase, Classes, Graphics, LCLIntf, LCLType;
 
 type
@@ -12 +11 @@
   private
     FCaption: string;
-    procedure SetCaption(x: string);
-    procedure SetFont(const x: TFont);
+    procedure SetCaption(Text: string);
+    procedure SetFont(const Font: TFont);
   published
     property Visible;
@@ -25 +24 @@
 
 procedure Register;
+
 
 implementation
@@ -58 +58 @@
 end;
 
-procedure TButtonA.SetCaption(x: string);
+procedure TButtonA.SetCaption(Text: string);
 begin
-  if x <> FCaption then
-  begin
-    FCaption := x;
-    Invalidate
-  end
+  if Text <> FCaption then begin
+    FCaption := Text;
+    Invalidate;
+  end;
 end;
 
-procedure TButtonA.SetFont(const x: TFont);
+procedure TButtonA.SetFont(const Font: TFont);
 begin
-  Canvas.Font.Assign(x);
+  Canvas.Font.Assign(Font);
   Canvas.Font.Color := $000000;
 end;