paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-30 22:42:39 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: anchordocking: updating TLazDockForm.Caption when switching page in nested TLazDockPages

Browse Source 
git-svn-id: trunk@14088 -
This commit is contained in:
mattias 2008-02-11 14:27:31 +00:00
parent fc14dbf587
commit 84a2ec0155
1 changed files with 20 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
lcl/ldocktree.pas
View File

@ -166,6 +166,7 @@ type
procedure SetActiveNotebookPageComponent(const AValue: TLazDockPage);
protected
function GetFloatingDockSiteClass: TWinControlClass; override;
procedure Change; override;
public
constructor Create(TheOwner: TComponent); override;
property Page[Index: Integer]: TLazDockPage read GetNoteBookPage;
@ -796,7 +797,7 @@ end;
function TLazDockPages.GetActiveNotebookPageComponent: TLazDockPage;
begin
Result:=TLazDockPage(ActivePageComponent);
Result:=TLazDockPage(inherited ActivePageComponent);
end;
function TLazDockPages.GetNoteBookPage(Index: Integer): TLazDockPage;
@ -815,6 +816,12 @@ begin
Result:=TLazDockForm;
end;
procedure TLazDockPages.Change;
begin
inherited Change;
TLazDockForm.UpdateMainControlInParents(Self);
end;
constructor TLazDockPages.Create(TheOwner: TComponent);
begin
PageClass:=TLazDockPage;
@ -2737,7 +2744,7 @@ procedure TLazDockForm.UpdateMainControl;
var
NewMainControl: TControl;
begin
if FMainControl=nil then begin
if (FMainControl=nil) or (not FMainControl.IsVisible) then begin
NewMainControl:=FindMainControlCandidate;
if NewMainControl<>nil then
MainControl:=NewMainControl;
@ -2858,11 +2865,17 @@ end;
class procedure TLazDockForm.UpdateMainControlInParents(StartControl: TControl
);
var
Form: TLazDockForm;
begin
while StartControl<>nil do begin
if (StartControl is TLazDockForm)
and (TLazDockForm(StartControl).MainControl=nil) then
TLazDockForm(StartControl).UpdateMainControl;
if (StartControl is TLazDockForm) then
begin
Form:=TLazDockForm(StartControl);
if (Form.MainControl=nil)
or (not Form.MainControl.IsVisible) then
Form.UpdateMainControl;
end;
StartControl:=StartControl.Parent;
end;
end;
@ -2879,7 +2892,8 @@ var
begin
for i:=0 to ParentControl.ControlCount-1 do begin
AControl:=ParentControl.Controls[i];
DebugLn(['FindCandidate ParentControl=',DbgSName(ParentControl),' AControl=',DbgSName(AControl)]);
//DebugLn(['FindCandidate ParentControl=',DbgSName(ParentControl),' AControl=',DbgSName(AControl)]);
if (not AControl.IsControlVisible) then continue;
if ((AControl.Name<>'') or (AControl.Caption<>''))
and (not (AControl is TLazDockForm))
and (not (AControl is TLazDockSplitter))