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

branches/highdpi/Packages/CevoComponents/ButtonN.pas

@@ -4 +4 @@
 
 uses
-  Classes, Graphics, Controls, LCLIntf, LCLType;
+  Classes, Graphics, Controls, LCLIntf, LCLType, UDpiControls;
 
 type
@@ -11 +11 @@
   private
     FPossible, FLit: boolean;
-    FGraphic, FMask, FBackGraphic: TBitmap;
+    FGraphic, FMask, FBackGraphic: TDpiBitmap;
     FIndex, BackIndex: integer;
     FSmartHint: string;
@@ -23 +23 @@
     property Lit: boolean read FLit write SetLit;
     property SmartHint: string read FSmartHint write SetSmartHint;
-    property Graphic: TBitmap read FGraphic write FGraphic;
-    property Mask: TBitmap read FMask write FMask;
-    property BackGraphic: TBitmap read FBackGraphic write FBackGraphic;
+    property Graphic: TDpiBitmap read FGraphic write FGraphic;
+    property Mask: TDpiBitmap read FMask write FMask;
+    property BackGraphic: TDpiBitmap read FBackGraphic write FBackGraphic;
     property ButtonIndex: integer read FIndex write SetIndex;
     property OnClick: TNotifyEvent read ChangeProc write ChangeProc;
@@ -40 +40 @@
 procedure Register;
 begin
-  RegisterComponents('C-evo', [TButtonN]);
+  RegisterComponents('Samples', [TButtonN]);
 end;