Changeset 468 for trunk/Packages/CevoComponents/ButtonBase.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/ButtonBase.pas (modified) (2 diffs)

trunk/Packages/CevoComponents/ButtonBase.pas

@@ -4 +4 @@
 
 uses
-  Classes, Graphics, Controls;
+  {$IFDEF DPI}Dpi.Graphics, Dpi.Controls,{$ELSE}
+  Graphics, Controls,{$ENDIF}
+  Classes;
 
 type
@@ -84 +86 @@
         DownChangedProc(self);
     end;
-    if (Button = mbLeft) and (@ClickProc <> nil) then
+    if (Button = TMouseButton.mbLeft) and (@ClickProc <> nil) then
       ClickProc(self);
   end