paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 15:59:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

lcl: forms: UpdateScreen: read value from ScreenInfo. Issue #31037 (regression after r54453 #20a9ecf1d5)

Browse Source 
see regression issues #31601, #31598

git-svn-id: trunk@54486 -
This commit is contained in:
ondrej 2017-03-26 18:32:57 +00:00
parent 08c52fc1e0
commit e4a448195b
1 changed files with 1 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/include/screen.inc
View File

@ -265,12 +265,8 @@ begin
end; end;
procedure TScreen.UpdateScreen; procedure TScreen.UpdateScreen;
var
DC: HDC;
begin begin
DC := GetDC(0); FPixelsPerInch := ScreenInfo.PixelsPerInchX;
FPixelsPerInch := GetDeviceCaps(DC, LOGPIXELSX);
ReleaseDC(0, DC);
end; end;
procedure TScreen.RemoveAllHandlersOfObject(AnObject: TObject); procedure TScreen.RemoveAllHandlersOfObject(AnObject: TObject);