pascal/CEF4Delphi
1
0
Fork 0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2025-11-23 21:34:53 +02:00
Code Issues Actions Releases Activity

Fixed GetScreenDPI in VirtualBox with Linux guest and using Lazarus

Browse Source
This commit is contained in:
Salvador Díaz Fau
2025-08-25 17:24:21 +02:00
parent 8871908c94
commit 6fc5983d2f
2 changed files with 8 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
source/uCEFMiscFunctions.pas
View File

@@ -3129,6 +3129,8 @@ begin
{$IFDEF LINUX}
{$IFDEF FPC}
Result := 0;
if (Application <> nil) and
(Application.MainForm <> nil) and
(Application.MainForm.Monitor <> nil) then
@@ -3140,9 +3142,11 @@ begin
Result := screen.PrimaryMonitor.PixelsPerInch
else
Result := screen.PixelsPerInch;
end
else
Result := USER_DEFAULT_SCREEN_DPI;
end;
// Workaround for a VirtualBox issue.
if (Result = 0) then
Result := USER_DEFAULT_SCREEN_DPI;
{$ELSE}
Result := -1;
if TPlatformServices.Current.SupportsPlatformService(IFMXScreenService, TempService) then