Changeset 552 for trunk/Packages/DpiControls/Dpi.Graphics.pas
- Timestamp:
- Apr 24, 2024, 10:28:34 AM (4 weeks ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Packages/DpiControls/Dpi.Graphics.pas
r548 r552 4 4 5 5 uses 6 Classes, SysUtils, Graphics, LCLType, GraphType, Types;6 Classes, SysUtils, Math, Graphics, LCLType, GraphType, Types; 7 7 8 8 const … … 347 347 ToNative: Double; 348 348 FromNative: Double; 349 Lookup: array[-10000..10000] of Integer; // Should be sufficient for 8K screens 349 350 property Dpi: Integer read FDpi write SetDpi; 350 351 end; … … 1322 1323 1323 1324 procedure TScreenInfo.SetDpi(AValue: Integer); 1325 var 1326 I: Integer; 1324 1327 begin 1325 1328 if FDpi = AValue then Exit; … … 1327 1330 ToNative := ScreenInfo.Dpi / 96; 1328 1331 FromNative := 96 / ScreenInfo.Dpi; 1332 for I := -10000 to 10000 do 1333 Lookup[I] := Ceil(I * ToNative); 1329 1334 end; 1330 1335
Note:
See TracChangeset
for help on using the changeset viewer.