Changeset 554 for trunk/Packages/CevoComponents/ButtonBase.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/ButtonBase.pas (modified) (2 diffs)

trunk/Packages/CevoComponents/ButtonBase.pas

@@ -32 +32 @@
     procedure SetGraphic(AValue: TBitmap);
   public
-    constructor Create(aOwner: TComponent); override;
+    constructor Create(AOwner: TComponent); override;
     property Graphic: TBitmap read FGraphic write SetGraphic;
     // property DownSound: string read FDownSound write FDownSound;
@@ -50 +50 @@
 // MMSystem;
 
-constructor TButtonBase.Create(aOwner: TComponent);
+constructor TButtonBase.Create(AOwner: TComponent);
 begin
   inherited;