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

trunk/Packages/CevoComponents/ButtonN.pas

@@ -4 +4 @@
 
 uses
-  Classes, Graphics, Controls, LCLIntf, LCLType, ScreenTools;
+  {$IFDEF DPI}Dpi.Graphics, Dpi.Controls,{$ELSE}Graphics, Controls,{$ENDIF}
+  Classes, LCLIntf, LCLType, ScreenTools;
 
 type
@@ -85 +86 @@
   X, Y: Integer);
 begin
-  if FPossible and (Button = mbLeft) and (@ChangeProc <> nil) then
+  if FPossible and (Button = TMouseButton.mbLeft) and (@ChangeProc <> nil) then
     ChangeProc(Self);
 end;