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

Timestamp:

Jun 23, 2019, 3:15:29 PM (5 years ago)

Author:

chronos

Message:

• Modified: Use DpiControls package for High DPI support.

File:

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

branches/highdpi/Packages/CevoComponents/ButtonBase.pas

@@ -4 +4 @@
 
 uses
-  Classes, Graphics, Controls;
+  Classes, Graphics, Controls, UDpiControls;
 
 type
-  TButtonBase = class(TGraphicControl)
+  TButtonBase = class(TDpiGraphicControl)
   protected
     FDown, FPermanent: boolean;
-    FGraphic: TBitmap;
+    FGraphic: TDpiBitmap;
     // FDownSound, FUpSound: string;
     ClickProc: TNotifyEvent;
@@ -26 +26 @@
   public
     constructor Create(aOwner: TComponent); override;
-    property Graphic: TBitmap read FGraphic write FGraphic;
+    property Graphic: TDpiBitmap read FGraphic write FGraphic;
     // property DownSound: string read FDownSound write FDownSound;
     // property UpSound: string read FUpSound write FUpSound;