Changeset 178 for branches/highdpi/Packages/CevoComponents/ButtonB.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/ButtonB.pas (modified) (3 diffs)

branches/highdpi/Packages/CevoComponents/ButtonB.pas

@@ -4 +4 @@
 
 uses
-  ButtonBase,
-  Classes, Graphics, LCLIntf, LCLType;
+  ButtonBase, Classes, Graphics, LCLIntf, LCLType, UDpiControls;
 
 type
@@ -11 +10 @@
     constructor Create(aOwner: TComponent); override;
   private
-    FMask: TBitmap;
+    FMask: TDpiBitmap;
     FIndex: integer;
     procedure SetIndex(x: integer);
   public
-    property Mask: TBitmap read FMask write FMask;
+    property Mask: TDpiBitmap read FMask write FMask;
   published
     property Visible;
@@ -30 +29 @@
 procedure Register;
 begin
-  RegisterComponents('C-evo', [TButtonB]);
+  RegisterComponents('Samples', [TButtonB]);
 end;