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

Timestamp:

Mar 27, 2024, 12:31:14 PM (8 months ago)

Author:

chronos

Message:

• Modified: Code cleanup.

File:

• trunk/Packages/CevoComponents/ButtonA.pas (modified) (1 diff)

trunk/Packages/CevoComponents/ButtonA.pas

@@ -14 +14 @@
     procedure SetCaption(Text: string);
     procedure SetFont(const Font: TFont);
+  protected
+    procedure Paint; override;
+  public
+    property Font: TFont write SetFont;
   published
     property Visible;
     property Caption: string read FCaption write SetCaption;
     property OnClick;
-  public
-    property Font: TFont write SetFont;
-  protected
-    procedure Paint; override;
   end;