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

LCL: add TControlAtPosFlag.capfOnlyWinControls

Browse Source 
git-svn-id: trunk@52355 -
This commit is contained in:
ondrej 2016-05-23 13:51:54 +00:00
parent 522085a524
commit 0897600234
2 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/controls.pp
View File

@ -1862,7 +1862,8 @@ type
capfAllowWinControls,// include TWinControls capfAllowWinControls,// include TWinControls
capfOnlyClientAreas, // use the client areas, not the whole child area capfOnlyClientAreas, // use the client areas, not the whole child area
capfRecursive, // search recursively in grand childrens capfRecursive, // search recursively in grand childrens
capfHasScrollOffset // do not add the scroll offset to Pos (already included) capfHasScrollOffset, // do not add the scroll offset to Pos (already included)
capfOnlyWinControls // include only TWinControls (ignore TControls)
); );
TControlAtPosFlags = set of TControlAtPosFlag; TControlAtPosFlags = set of TControlAtPosFlag;

2
lcl/include/wincontrol.inc
View File

@ -5199,7 +5199,7 @@ begin
and GetControlAtPos(TControl(FControls[I])) then and GetControlAtPos(TControl(FControls[I])) then
Break; Break;
// check controls // check controls
if (LControl = nil) then if (LControl = nil) and not(capfOnlyWinControls in Flags) then
for I := FControls.Count - 1 downto 0 do for I := FControls.Count - 1 downto 0 do
if (not (TObject(FControls[i]) is TWinControl)) if (not (TObject(FControls[i]) is TWinControl))
and GetControlAtPos(TControl(FControls[I])) then and GetControlAtPos(TControl(FControls[I])) then