Changeset 468 for trunk/Packages/CevoComponents/EOTButton.pas

Timestamp:

Dec 3, 2023, 11:28:08 AM (5 months ago)

Author:

chronos

Message:

• Added: High DPI support integrated into trunk branch. It can be enabled by adding DPI define to compiler parameters for main project and packages.

File:

• trunk/Packages/CevoComponents/EOTButton.pas (modified) (2 diffs)

trunk/Packages/CevoComponents/EOTButton.pas

@@ -4 +4 @@
 
 uses
-  ButtonBase, Classes, SysUtils, Graphics, LCLIntf, LCLType;
+  {$IFDEF DPI}Dpi.Graphics,{$ELSE}Graphics,{$ENDIF}
+  ButtonBase, Classes, SysUtils, LCLIntf, LCLType;
 
 const
@@ -53 +54 @@
   inherited;
   Buffer := TBitmap.Create;
-  Buffer.PixelFormat := pf24bit;
+  Buffer.PixelFormat := TPixelFormat.pf24bit;
   Buffer.SetSize(48, 48);
   Buffer.Canvas.FillRect(0, 0, Buffer.Width, Buffer.Height);
   Back := TBitmap.Create;
-  Back.PixelFormat := pf24bit;
+  Back.PixelFormat := TPixelFormat.pf24bit;
   Back.SetSize(48, 48);
   Back.Canvas.FillRect(0, 0, Back.Width, Back.Height);