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

Timestamp:

Apr 24, 2024, 11:19:11 AM (7 months ago)

Author:

chronos

Message:

• Added: TButtonG class as a button class component referencing TGraphicSet item.
• Modified: Code cleanup.

File:

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

trunk/Packages/CevoComponents/ButtonA.pas

@@ -9 +9 @@
 type
   TButtonA = class(TButtonBase)
-    constructor Create(aOwner: TComponent); override;
+    constructor Create(AOwner: TComponent); override;
   private
     FCaption: string;
-    procedure SetCaption(Text: string); override;
     procedure SetFont(const Font: TFont);
   protected
+    procedure SetCaption(Text: string); override;
     procedure Paint; override;
   public
@@ -34 +34 @@
 end;
 
-constructor TButtonA.Create(aOwner: TComponent);
+constructor TButtonA.Create(AOwner: TComponent);
 begin
   inherited;