paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-23 04:39:36 +02:00
Code Issues Packages Projects Releases Wiki Activity

Merge branch 'GlGtk3' into 'main'

Browse Source 
glgtk3: Fixed implementation of LBackingScaleFactor. Closes #40315.

See merge request freepascal.org/lazarus/lazarus!205
This commit is contained in:
Maxim Ganetsky 2023-06-17 16:15:07 +00:00
commit 7d438f07af
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
components/opengl/glgtk3glxcontext.pas
View File

@ -67,8 +67,11 @@ function LBackingScaleFactor(Handle: HWND): single;
var
glarea: TGtk3GLArea absolute Handle;
begin
// todo(ryan): get the correct screen for the handle!
result := TGdkScreen.get_default^.get_monitor_scale_factor(0);
if Assigned(glarea) then begin
Result := glarea.GetWindow^.get_scale_factor;
end else begin
Result := 1;
end;
end;
procedure LOpenGLViewport(Handle: HWND; Left, Top, Width, Height: integer);