Browse Source

Update bcmaterialdesignbutton.pas

Leandro Diaz 1 year ago
parent
commit
085cb51d70
1 changed files with 2 additions and 2 deletions
  1. 2 2
      bcmaterialdesignbutton.pas

+ 2 - 2
bcmaterialdesignbutton.pas

@@ -72,7 +72,7 @@ type
   public
   public
     constructor Create(AOwner: TComponent); override;
     constructor Create(AOwner: TComponent); override;
     destructor Destroy; override;
     destructor Destroy; override;
-    procedure Click; override;
+    procedure ClickMe;
   published
   published
     property RoundBorders: single read FRoundBorders write SetFRoundBorders {$IFDEF FPC}default 5{$ENDIF};
     property RoundBorders: single read FRoundBorders write SetFRoundBorders {$IFDEF FPC}default 5{$ENDIF};
     property NormalColor: TColor read FNormalColor write SetFNormalColor default clWhite;
     property NormalColor: TColor read FNormalColor write SetFNormalColor default clWhite;
@@ -519,7 +519,7 @@ begin
   inherited Destroy;
   inherited Destroy;
 end;
 end;
 
 
-procedure TBCMaterialDesignButton.Click;
+procedure TBCMaterialDesignButton.ClickMe;
 begin
 begin
   FMousePos := Point(Width div 2, Height div 2);
   FMousePos := Point(Width div 2, Height div 2);
   FTimer.Enabled := True;
   FTimer.Enabled := True;