paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-18 10:39:21 +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
capfOnlyClientAreas, // use the client areas, not the whole child area
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;

2
lcl/include/wincontrol.inc
View File

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