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

LCL: fixed mouse down on TTreeView under gtk

Browse Source 
git-svn-id: trunk@13566 -
This commit is contained in:
mattias 2008-01-01 23:59:08 +00:00
parent 903f07d6cb
commit e29b695c61
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lcl/include/control.inc
View File

@ -1552,8 +1552,13 @@ begin
This decision requires full control of focus and mouse, which
do not all LCL interfaces provide. Therefore the mouse down event
is sent immediately.
Further Note:
Under winapi a LM_LBUTTONDOWN ends the drag immediate.
For example: If we exit here, then mouse down on TTreeView does
not work any longer under gtk.
}
exit; //Dont send LM_LBUTTONDOWN as it ends the drag immediate
// VCL: exit;
end;
Include(FControlState,csLButtonDown);
end;