Changeset 210 for branches/highdpi/Packages/CevoComponents/ButtonBase.pas

Timestamp:

May 9, 2020, 4:02:07 PM (5 years ago)

Author:

chronos

Message:

• Modified: Improved HighDPI branch. Imported new changes from trunk branch.

File:

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

branches/highdpi/Packages/CevoComponents/ButtonBase.pas

@@ -4 +4 @@
 
 uses
-  Classes, Graphics, Controls, UDpiControls;
+  UDpiControls, Classes, Graphics, Controls;
 
 type
-
-  { TButtonBase }
-
   TButtonBase = class(TDpiGraphicControl)
   protected
@@ -27 +24 @@
   private
     Active: boolean;
-    procedure SetGraphic(AValue: TDpiBitmap);
   public
     constructor Create(aOwner: TComponent); override;
-    property Graphic: TDpiBitmap read FGraphic write SetGraphic;
+    property Graphic: TDpiBitmap read FGraphic write FGraphic;
     // property DownSound: string read FDownSound write FDownSound;
     // property UpSound: string read FUpSound write FUpSound;
@@ -123 +119 @@
 end;
 
-procedure TButtonBase.SetGraphic(AValue: TDpiBitmap);
-begin
-  if FGraphic = AValue then Exit;
-  FGraphic := AValue;
-end;
-
 procedure TButtonBase.SetDown(x: boolean);
 begin