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

gtk2 intf: clean up

Browse Source 
git-svn-id: trunk@26646 -
This commit is contained in:
mattias 2010-07-14 15:14:00 +00:00
parent 5c9d0e55da
commit a8d5b99b2b
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/interfaces/gtk2/gtk2callback.inc
View File

@ -1419,18 +1419,20 @@ function gtkMouseBtnPress(widget: PGtkWidget; event: pgdkEventButton; data: gPoi
var
DesignOnlySignal: boolean;
AWinControl: TWinControl;
Msg: TLMContextMenu;
x, y: gint;
W: PGtkWidget;
Info: PWidgetInfo;
Old: TObject;
{$IFDEF VerboseMouseBugfix}
AWinControl: TWinControl;
{$ENDIF}
begin
Result := CallBackDefaultReturn;
MousePositionValid := False;
AWinControl := TWinControl(Data);
{$IFDEF VerboseMouseBugfix}
AWinControl := TWinControl(Data);
DebugLn('');
DesignOnlySignal:=GetDesignOnlySignalFlag(Widget,dstMousePress);
DebugLn('[gtkMouseBtnPress] ',