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

trunk/Log.pas

@@ -5 +5 @@
 
 uses
-  LCLIntf, LCLType, Messages, SysUtils, Classes, Graphics, Controls, Forms,
-  StdCtrls, Menus;
+  LCLIntf, LCLType, Messages, SysUtils, Classes,
+  {$IFDEF DPI}Dpi.Graphics, Dpi.Controls, Dpi.Forms, Dpi.StdCtrls, Dpi.Menus{$ELSE}
+  Graphics, Controls, Forms, StdCtrls, Menus{$ENDIF};
 
 type
@@ -130 +131 @@
   Shift: TShiftState; X, Y: Integer);
 begin
-  if Button = mbRight then
+  if Button = TMouseButton.mbRight then
     LogPopup.Popup(Left + X, Top + Y);
 end;