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

Fixed bug #8639 SynEdit was getting 3-4 messages for the mousemove and mouseup events. Only the first was correct.

Browse Source 
git-svn-id: trunk@10910 -
This commit is contained in:
andrew 2007-04-07 14:49:20 +00:00
parent 395cbb23b9
commit cca247d50f
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lcl/interfaces/gtk/gtkcallback.inc
View File

@ -1018,6 +1018,9 @@ begin
end;
DeliverMouseMoveMessage(Widget,Event,TWinControl(Data));
{$IFDEF gtk2}
if TControl(Data).FCompStyle = csWinControl then Result := True;
{$ENDIF}
end;
{-------------------------------------------------------------------------------
@ -1618,6 +1621,12 @@ begin
end;
DeliverMouseUpMessage(Widget,Event,TWinControl(Data));
{$IFDEF gtk2}
// stop the message here because it can get sent to the parent to make
// multiple incorrect mousemove messages
if TWinControl(Data).FCompStyle = csWinControl then Result := True;
{$ENDIF}
end;
{-------------------------------------------------------------------------------