Changeset 502 for trunk/Packages/CevoComponents/ScreenTools.pas

Timestamp:

Dec 23, 2023, 1:50:31 PM (11 months ago)

Author:

chronos

Message:

• Fixed: Non-DPI build.
• Modified: Code cleanup.

File:

• trunk/Packages/CevoComponents/ScreenTools.pas (modified) (2 diffs)

trunk/Packages/CevoComponents/ScreenTools.pas

@@ -100 +100 @@
 {$IFNDEF DPI}
 function ScaleToNative(Value: Integer): Integer;
+function ScaleToNativeDist(Base, Value: Integer): Integer;
 function ScaleFromNative(Value: Integer): Integer;
 {$ENDIF}
@@ -1652 +1653 @@
 end;
 
+function ScaleToNativeDist(Base, Value: Integer): Integer;
+begin
+  Result := Value;
+end;
+
 function ScaleFromNative(Value: Integer): Integer;
 begin