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

Timestamp:

Jun 23, 2019, 9:12:54 PM (5 years ago)

Author:

chronos

Message:

• Modified: Improved scaling support.

File:

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

branches/highdpi/Packages/CevoComponents/ButtonBase.pas

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