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

branches/highdpi/Packages/CevoComponents/EOTButton.pas

@@ -4 +4 @@
 
 uses
-  ButtonBase, Classes, SysUtils, Graphics, LCLIntf, LCLType;
+  ButtonBase, Classes, SysUtils, Graphics, LCLIntf, LCLType, UDpiControls;
 
 const
@@ -19 +19 @@
     destructor Destroy; override;
     procedure SetButtonIndexFast(x: integer);
-    procedure SetBack(ca: TCanvas; x, y: integer);
+    procedure SetBack(ca: TDpiCanvas; x, y: integer);
   private
-    FTemplate: TBitmap;
+    FTemplate: TDpiBitmap;
     FIndex: integer;
     procedure SetIndex(x: integer);
   public
-    property Template: TBitmap read FTemplate write FTemplate;
+    property Template: TDpiBitmap read FTemplate write FTemplate;
   published
     property Visible;
@@ -31 +31 @@
     property OnClick;
   protected
-    Buffer, Back: TBitmap;
+    Buffer, Back: TDpiBitmap;
     procedure Paint; override;
   end;
@@ -41 +41 @@
 procedure Register;
 begin
-  RegisterComponents('C-evo', [TEOTButton]);
+  RegisterComponents('Samples', [TEOTButton]);
 end;
 
-procedure ImageOp_CBC(Dst, Src: TBitmap; xDst, yDst, xSrc, ySrc, w, h, Color0,
+procedure ImageOp_CBC(Dst, Src: TDpiBitmap; xDst, yDst, xSrc, ySrc, w, h, Color0,
   Color2: integer);
 // Src is template
@@ -99 +99 @@
 begin
   inherited;
-  Buffer := TBitmap.Create;
+  Buffer := TDpiBitmap.Create;
   Buffer.PixelFormat := pf24bit;
   Buffer.SetSize(48, 48);
   Buffer.Canvas.FillRect(0, 0, Buffer.Width, Buffer.Height);
-  Back := TBitmap.Create;
+  Back := TDpiBitmap.Create;
   Back.PixelFormat := pf24bit;
   Back.SetSize(48, 48);
@@ -162 +162 @@
 end;
 
-procedure TEOTButton.SetBack(ca: TCanvas; x, y: integer);
+procedure TEOTButton.SetBack(ca: TDpiCanvas; x, y: integer);
 begin
   BitBlt(Back.Canvas.Handle, 0, 0, 48, 48, ca.Handle, x, y, SRCCOPY);