paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-15 18:19:07 +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

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

@ -1336,7 +1336,7 @@ var
var var
IsMultiClick: boolean; IsMultiClick: boolean;
begin begin
Result:=false; Result := False;
if (LastMouse.Down) and 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]))
@ -1349,11 +1349,9 @@ var
end; end;
MessI.Keys := MessI.Keys or BtnKey; MessI.Keys := MessI.Keys or BtnKey;
IsMultiClick := TestIfMultiClick; IsMultiClick := TestIfMultiClick;
case gdk_event_get_type(Event) of case gdk_event_get_type(Event) of
gdk_2button_press: gdk_2button_press:
// the gtk itself has detected a double click // the gtk itself has detected a double click
if (LastMouse.ClickCount>=2) if (LastMouse.ClickCount>=2)
@ -1416,7 +1414,7 @@ var
MessI.Msg := LM_NULL; MessI.Msg := LM_NULL;
end; end;
Result:=true; Result := True;
end; end;
begin begin