Changeset 423 for trunk/Packages/Common/UScaleDPI.pas

Timestamp:

Apr 25, 2022, 6:01:01 PM (3 years ago)

Author:

chronos

Message:

• Modified: Do not use explicit mode delphi directive as it is already set in project.
• Modified: Use UNIX instead of LINUX for conditional code to work also on FreeBSD.

File:

• trunk/Packages/Common/UScaleDPI.pas (modified) (2 diffs)

trunk/Packages/Common/UScaleDPI.pas

@@ -2 +2 @@
 
 { See: http://wiki.lazarus.freepascal.org/High_DPI }
-
-{$mode delphi}{$H+}
 
 interface
@@ -227 +225 @@
     Temp[I] := TBitmap.Create;
     Temp[I].SetSize(NewWidth, NewHeight);
-    {$IFDEF Linux}
+    {$IFDEF UNIX}
     Temp[I].PixelFormat := pf24bit;
     {$ELSE}