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

LCL-GTK2: Filter the messages in function PeekMessage. Issue #41407, patch by Artem Izmaylov.

Browse Source
This commit is contained in:
Juha 2025-02-06 18:12:19 +02:00
parent efe7efbc39
commit 4a8f31afdb
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -6844,10 +6844,18 @@ function TGtk2WidgetSet.PeekMessage(var lpMsg: TMsg; Handle : HWND;
var
vlItem : TGtkMessageQueueItem;
begin
//TODO Filtering
fMessageQueue.Lock;
try
vlItem := fMessageQueue.FirstMessageItem;
// filtering
while (vlItem <> nil) and (
((Handle <> 0) and (vlItem.Msg^.hwnd <> Handle)) or // filter by handle
((wMsgFilterMin <> 0) and (wMsgFilterMax <> 0) and // filter by message-range
not InRange(vlItem.Msg^.message, wMsgFilterMin, wMsgFilterMax)))
do
vlItem := TGtkMessageQueueItem(vlItem.Next);
Result := vlItem <> nil;
if Result then begin
lpMsg := vlItem.Msg^;