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

win32: HighDPI: handle WM_DPICHANGED message

Browse Source 
git-svn-id: trunk@53488 -
This commit is contained in:
ondrej 2016-11-30 21:26:13 +00:00
parent 0a9e580d30
commit 7f6a826e0c
2 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/interfaces/win32/win32callback.inc
View File

@ -1946,6 +1946,10 @@ var
CharCodeNotEmpty: boolean;
R: TRect;
ACtl: TWinControl;
{$IF NOT DECLARED(WM_DPICHANGED)} // WM_DPICHANGED was added in FPC 3.1.1
const
WM_DPICHANGED = $02E0;
{$ENDIF}
begin
FillChar(LMessage, SizeOf(LMessage), 0);
PLMsg := @LMessage;
@ -1981,6 +1985,7 @@ begin
end;
WM_ENTERIDLE: Application.Idle(False);
WM_ACTIVATE: SetLMessageAndParams(LM_ACTIVATE);
WM_DPICHANGED: SetLMessageAndParams(LM_DPICHANGED);
WM_IME_ENDCOMPOSITION:
begin
{IME Windows the composition has finished}

1
lcl/lmessages.pp
View File

@ -218,6 +218,7 @@ const
LM_DROPFILES = $0233;
LM_SELCHANGE = $0234;
LM_DPICHANGED = $02E0;
LM_CUT = $0300;
LM_COPY = $0301;
LM_PASTE = $0302;