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

gtk2: stop motion-notify-event propagation (fixes bug #0013708)

Browse Source 
git-svn-id: trunk@19959 -
This commit is contained in:
paul 2009-05-14 07:44:26 +00:00
parent 8bd03d26b6
commit d03621adc4
1 changed files with 11 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1177,20 +1177,22 @@ begin
{$ENDIF}
end;
if not (csDesigning in TComponent(Data).ComponentState) then begin
DesignOnlySignal:=GetDesignOnlySignalFlag(Widget,dstMouseMotion);
if not (csDesigning in TComponent(Data).ComponentState) then
begin
DesignOnlySignal := GetDesignOnlySignalFlag(Widget, dstMouseMotion);
if DesignOnlySignal then exit;
if not ControlGetsMouseMoveBefore(TControl(Data)) then exit;
end else begin
end else
begin
// stop the signal, so that the widget does not auto react
g_signal_stop_emission_by_name(PGTKObject(Widget),'motion-notify-event');
Result:=CallBackDefaultReturn;
g_signal_stop_emission_by_name(PGTKObject(Widget), 'motion-notify-event');
Result := CallBackDefaultReturn; // why not True if we want to stop it?
end;
DeliverMouseMoveMessage(Widget,Event,TWinControl(Data));
{$IFDEF gtk2}
if TControl(Data).FCompStyle = csWinControl then
Result := not CallBackDefaultReturn; // stop signal
Result := True; // stop signal
{$ENDIF}
end;
@ -1204,8 +1206,8 @@ end;
function GTKMotionNotifyAfter(widget:PGTKWidget; event: PGDKEventMotion;
data: gPointer): GBoolean; cdecl;
begin
Result := CallBackDefaultReturn;
MousePositionValid:=false;
Result := True; // stop event propagation
MousePositionValid := False;
{$IFDEF VerboseMouseBugfix}
DebugLn('[GTKMotionNotifyAfter] ',
@ -1220,7 +1222,7 @@ begin
if (csDesigning in TComponent(Data).ComponentState) then exit;
if ControlGetsMouseMoveBefore(TControl(Data)) then exit;
DeliverMouseMoveMessage(Widget,Event,TWinControl(Data));
DeliverMouseMoveMessage(Widget,Event, TWinControl(Data));
end;
{-------------------------------------------------------------------------------