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

LCL: FindDockSiteAtPosition: prefer child before parent and prefer Screen higher Z order

Browse Source 
git-svn-id: trunk@25783 -
This commit is contained in:
mattias 2010-05-30 20:18:49 +00:00
parent ac6c79148a
commit fb64f40660
2 changed files with 27 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/forms.pp
View File

@ -1020,7 +1020,7 @@ type
property CustomForms[Index: Integer]: TCustomForm read GetCustomForms;
property CustomFormZOrderCount: Integer read GetCustomFormZOrderCount;
property CustomFormsZOrdered[Index: Integer]: TCustomForm
read GetCustomFormsZOrdered;
read GetCustomFormsZOrdered; // lower index means on top
property DesktopHeight: Integer read GetDesktopHeight;
property DesktopWidth: Integer read GetDesktopWidth;
property FocusedForm: TCustomForm read FFocusedForm;

31
lcl/include/dragmanager.inc
View File

@ -352,15 +352,15 @@ procedure TDockPerformer.DragMove(APosition: TPoint);
end;
end;
function FindDockSiteAtPosition: TWinControl;
//Replace with lookup in Application.Zorder(?)
//Replace with lookup in Screen.Zorder(?)
var
AControl: TWinControl;
CanDock: Boolean;
QualifyingSites: TList;
ARect: TRect;
I: Integer;
j: Integer;
begin
Result := nil;
@ -390,9 +390,30 @@ procedure TDockPerformer.DragMove(APosition: TPoint);
if QualifyingSites.Count > 0 then
begin
Result := TWinControl(QualifyingSites[0]); //.GetTopSite; TODO!!!
//if not ValidDockTarget(Result) TODO!!!
//then Result := nil; TODO!!!
// if a parent and a child has qualified remove the parent
for i:=QualifyingSites.Count-1 downto 0 do
for j:=i+1 to QualifyingSites.Count-1 do
if TWinControl(QualifyingSites[i]).IsParentOf(TWinControl(QualifyingSites[j]))
then begin
QualifyingSites.Delete(i);
break;
end;
i:=0;
if QualifyingSites.Count>1 then
begin
// there are multiple candidates => use the top level
for j:=0 to Screen.CustomFormZOrderCount-1 do begin
i:=QualifyingSites.Count-1;
while (i>=0)
and (GetParentForm(TWinControl(QualifyingSites[i]))<>Screen.CustomFormsZOrdered[j])
do
dec(i);
if i>=0 then break;
end;
if i<0 then i:=0;
end;
Result := TWinControl(QualifyingSites[i]);
end;
finally
QualifyingSites.Free;