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

gtk: formatting

Browse Source 
git-svn-id: trunk@20659 -
This commit is contained in:
paul 2009-06-18 01:35:06 +00:00
parent 0de0f63bc5
commit 0a4a8d01f4
1 changed files with 43 additions and 45 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1323,7 +1323,7 @@ var
function LastClickInTime: boolean;
begin
Result:=((now - LastMouse.TheTime) <= ((1/86400)*(DblClickTime/1000)));
Result := ((now - LastMouse.TheTime) <= ((1/86400)*(DblClickTime/1000)));
end;
function TestIfMultiClick: boolean;
@ -1336,10 +1336,10 @@ var
var
IsMultiClick: boolean;
begin
Result:=false;
Result := False;
if (LastMouse.Down) and
(not (gdk_event_get_type(Event) in [gdk_2button_press,gdk_3button_press]))
(not (gdk_event_get_type(Event) in [gdk_2button_press, gdk_3button_press]))
then begin
{$IFDEF VerboseMouseBugfix}
DebugLn(' NO CLICK: LastMouse.Down=',dbgs(LastMouse.Down),
@ -1349,11 +1349,9 @@ var
end;
MessI.Keys := MessI.Keys or BtnKey;
IsMultiClick:=TestIfMultiClick;
IsMultiClick := TestIfMultiClick;
case gdk_event_get_type(Event) of
gdk_2button_press:
// the gtk itself has detected a double click
if (LastMouse.ClickCount>=2)
@ -1404,7 +1402,7 @@ var
LastMouse.Window := Event^.Window;
LastMouse.WindowPoint := EventXY;
LastMouse.Down := True;
LastMouse.Component:=AWinControl;
LastMouse.Component := AWinControl;
//DebugLn('DeliverMouseDownMessage ',DbgSName(AWinControl),' Mapped=',dbgs(MappedXY.X),',',dbgs(MappedXY.Y),' Event=',dbgs(EventXY.X),',',dbgs(EventXY.Y),' ',dbgs(LastMouse.ClickCount));
case LastMouse.ClickCount of
@ -1416,7 +1414,7 @@ var
MessI.Msg := LM_NULL;
end;
Result:=true;
Result := True;
end;
begin