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

win32: send cut, paste, clear messages of ComboBox to LCL

Browse Source 
git-svn-id: trunk@32485 -
This commit is contained in:
blikblum 2011-09-24 01:34:33 +00:00
parent 2012691818
commit aa32bc701d
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1009,7 +1009,6 @@ begin
NotifyUserInput := False;
// WriteLn('Msg: ', WM_To_String(Msg));
WindowInfo := GetWin32WindowInfo(Window);
if WindowInfo^.isChildEdit then
begin
@ -1041,6 +1040,7 @@ begin
// filter messages we want to pass on to LCL
if (Msg <> WM_KILLFOCUS) and (Msg <> WM_SETFOCUS) and (Msg <> WM_NCDESTROY)
and not ((Msg >= WM_CUT) and (Msg <= WM_CLEAR))
and ((Msg < WM_KEYFIRST) or (Msg > WM_KEYLAST))
and ((Msg < WM_MOUSEFIRST) or (Msg > WM_MOUSELAST)) then
begin