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

gtk1+2: fixed stopping mouse down signal at design time

Browse Source 
git-svn-id: trunk@15998 -
This commit is contained in:
mattias 2008-08-08 13:56:23 +00:00
parent e323565073
commit b7bba11457
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1522,7 +1522,7 @@ begin
end; end;
end else begin end else begin
if (event^.Button=1) if (event^.Button=1)
or ((TControl(Data) is TCustomNoteBook) or (TControl(Data) is TCustomTabControl)) and ((TControl(Data) is TCustomNoteBook) or (TControl(Data) is TCustomTabControl))
then begin then begin
// clicks on the notebook should be handled by the gtk (switching page) // clicks on the notebook should be handled by the gtk (switching page)
{DebugLn(['gtkMouseBtnPress notebook ', {DebugLn(['gtkMouseBtnPress notebook ',