Changeset 464 for trunk/Packages/CevoComponents/ButtonBase.pas

Timestamp:

Nov 29, 2023, 6:25:22 PM (12 months ago)

Author:

chronos

Message:

• Modified: Code cleanup.

File:

• trunk/Packages/CevoComponents/ButtonBase.pas (modified) (3 diffs)

trunk/Packages/CevoComponents/ButtonBase.pas

@@ -7 +7 @@
 
 type
+
+  { TButtonBase }
+
   TButtonBase = class(TGraphicControl)
   protected
@@ -25 +28 @@
   private
     Active: Boolean;
+    procedure SetGraphic(AValue: TBitmap);
   public
     constructor Create(aOwner: TComponent); override;
-    property Graphic: TBitmap read FGraphic write FGraphic;
+    property Graphic: TBitmap read FGraphic write SetGraphic;
     // property DownSound: string read FDownSound write FDownSound;
     // property UpSound: string read FUpSound write FUpSound;
@@ -120 +124 @@
 end;
 
+procedure TButtonBase.SetGraphic(AValue: TBitmap);
+begin
+  if FGraphic = AValue then Exit;
+  FGraphic := AValue;
+end;
+
 procedure TButtonBase.SetDown(X: Boolean);
 begin