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

LCL-Win32: Fix LM_CUT..LM_CLEAR message call order. Issue #32422, patch from Michal Gawrycki.

Browse Source 
git-svn-id: trunk@55909 -
This commit is contained in:
juha 2017-09-23 23:22:51 +00:00
parent 559b2ebd92
commit a2cb6da57d
1 changed files with 25 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2126,9 +2126,21 @@ begin
Window, Msg, WParam, LParam, LMessage.Result, WinProcess) then Exit(LMessage.Result);
DoMsgColor(ChildWindowInfo);
end;
WM_CLEAR: LMessage.Msg := LM_CLEAR;
WM_COPY: LMessage.Msg := LM_COPY;
WM_CUT: LMessage.Msg := LM_CUT;
WM_CLEAR:
begin
LMessage.Msg := LM_CLEAR;
WinProcess := False;
end;
WM_COPY:
begin
LMessage.Msg := LM_COPY;
WinProcess := False;
end;
WM_CUT:
begin
LMessage.Msg := LM_CUT;
WinProcess := False;
end;
{$ifndef RedirectDestroyMessages}
WM_DESTROY:
begin
@ -2260,7 +2272,11 @@ begin
WM_PRINTCLIENT:
if ((LParam and PRF_CLIENT) = PRF_CLIENT) and (lWinControl <> nil) then
SendPaintMessage(HDC(WParam));
WM_PASTE: LMessage.Msg := LM_PASTE;
WM_PASTE:
begin
LMessage.Msg := LM_PASTE;
WinProcess := False;
end;
WM_CONTEXTMENU:
begin
DoMsgContextMenu;
@ -2531,7 +2547,11 @@ begin
WM_IME_REQUEST,
WM_IME_SELECT,
WM_IME_SETCONTEXT,
WM_IME_STARTCOMPOSITION:
WM_IME_STARTCOMPOSITION,
LM_CUT,
LM_COPY,
LM_PASTE,
LM_CLEAR:
begin
WinProcess := LMessage.Result = 0;
end;