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

LCL-GTK2: Remove debug output from TGtk2WidgetSet.PeekMessage(). Issue #37521.

Browse Source 
git-svn-id: trunk@63704 -
This commit is contained in:
juha 2020-08-09 06:16:08 +00:00
parent e698ec471b
commit acc57c654f
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/interfaces/gtk2/gtk2winapi.inc
View File

@ -6834,13 +6834,11 @@ var
vlItem : TGtkMessageQueueItem; vlItem : TGtkMessageQueueItem;
begin begin
//TODO Filtering //TODO Filtering
DebugLn('Peek !!!' );
fMessageQueue.Lock; fMessageQueue.Lock;
try try
vlItem := fMessageQueue.FirstMessageItem; vlItem := fMessageQueue.FirstMessageItem;
Result := vlItem <> nil; Result := vlItem <> nil;
if Result then begin
if Result then begin
lpMsg := vlItem.Msg^; lpMsg := vlItem.Msg^;
if (wRemoveMsg and PM_REMOVE) = PM_REMOVE then if (wRemoveMsg and PM_REMOVE) = PM_REMOVE then
fMessageQueue.RemoveMessage(vlItem,FPMF_Internal,true); fMessageQueue.RemoveMessage(vlItem,FPMF_Internal,true);