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

Timestamp:

Dec 3, 2023, 11:28:08 AM (6 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/ButtonA.pas (modified) (2 diffs)

trunk/Packages/CevoComponents/ButtonA.pas

@@ -4 +4 @@
 
 uses
-  ButtonBase, Classes, Graphics, LCLIntf, LCLType, ScreenTools, Types;
+  {$IFDEF DPI}Dpi.Graphics,{$ELSE}Graphics,{$ENDIF}
+  ButtonBase, Classes, LCLIntf, LCLType, ScreenTools, Types;
 
 type
@@ -48 +49 @@
       BitBltCanvas(Canvas, 0, 0, 100, 25, Graphic.Canvas, 195,
         243 + 26 * Byte(Down));
-      Canvas.Brush.Style := bsClear;
+      Canvas.Brush.Style := TBrushStyle.bsClear;
       TextSize := TextExtent(FCaption);
       TextOut(50 - (TextSize.Width + 1) div 2,