Changeset 617 for trunk/Packages/DpiControls/Dpi.Common.pas
- Timestamp:
- Sep 15, 2024, 1:31:30 PM (4 days ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Packages/DpiControls/Dpi.Common.pas
r608 r617 225 225 function ScaleToNative(Value: Integer): Integer; inline; 226 226 begin 227 Result := ScreenInfo.Lookup [Value];227 Result := ScreenInfo.LookupToNative[Value]; 228 228 // Round and Trunc are fast. Ceil and Floor are slow. 229 229 // Without lookup table we would use: … … 238 238 function ScaleFromNative(Value: Integer): Integer; 239 239 begin 240 Result := Trunc(Value * ScreenInfo.FromNative); 240 Result := ScreenInfo.LookupFromNative[Value]; 241 // Round and Trunc are fast. Ceil and Floor are slow. 242 // Without lookup table we would use: 243 // Result := Floor(Value * ScreenInfo.FromNative); 241 244 end; 242 245
Note:
See TracChangeset
for help on using the changeset viewer.