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

lcl: CheckTransparentWindow: ignore nested transparent windows.

Browse Source 
git-svn-id: trunk@52370 -
This commit is contained in:
ondrej 2016-05-23 17:13:54 +00:00
parent 271d17e240
commit 744b5e7ca8
1 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lcl/controls.pp
View File

@ -2982,12 +2982,14 @@ begin
NewFrm := nil;
for I := 0 to Screen.CustomFormZOrderCount-1 do
begin
if (Screen.CustomFormsZOrdered[I]<>Frm)
and PtInRect(Screen.CustomFormsZOrdered[I].BoundsRect, MousePos) then
begin
NewFrm := Screen.CustomFormsZOrdered[I];
NewFrm := Screen.CustomFormsZOrdered[I];
if (NewFrm<>Frm)
and PtInRect(NewFrm.BoundsRect, MousePos)
and (NewFrm.Perform(WM_NCHITTEST, 0, 0) <> HTTRANSPARENT)
then
Break;
end;
NewFrm := nil;
end;
if NewFrm=nil then
Exit;