paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-26 21:00:34 +02:00
Code Issues Packages Projects Releases Wiki Activity

DockedFormEditor: Remove tab Anchors when disabled per option at runtime.

Browse Source 
git-svn-id: trunk@65106 -
This commit is contained in:
michl 2021-05-11 12:19:23 +00:00
parent 730c781eff
commit 5f52e17206
3 changed files with 10 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/dockedformeditor/source/dockedmainide.pas
View File

@ -228,16 +228,12 @@ end;
procedure TDockedTabMaster.OptionsModified;
var
LPageCtrl: TSourcePageControl;
LPageIndex: Integer;
begin
LPageCtrl := SourceWindows.LastActivePageControl;
LPageIndex := LPageCtrl.PageIndex;
DesignForms.RemoveAllAnchorDesigner;
SourceWindows.ShowCodeTabSkipCurrent(nil, nil);
SourceWindows.RefreshAllPageControls;
TDockedMainIDE.EditorActivated(SourceWindows.LastActiveSourceEditor);
if LPageIndex = 0 then Exit;
LPageCtrl.TabIndex := LPageIndex;
LPageCtrl.OnChange(LPageCtrl);
end;

9
components/dockedformeditor/source/dockedsourcepagecontrol.pas
View File

@ -61,6 +61,7 @@ type
function DesignerPageActive: Boolean;
function FormPageActive: Boolean;
procedure RemoveDesignPages;
procedure RemoveTabSheetAnchors;
procedure InitPage;
procedure RefreshResizer;
procedure ShowCode;
@ -240,11 +241,17 @@ end;
procedure TSourcePageControl.RemoveDesignPages;
begin
{$IFDEF DEBUGDOCKEDFORMEDITOR} DebugLn('TSourcePageControls.RemoveDesignPages'); {$ENDIF}
FreeAndNil(FTabSheetAnchors);
RemoveTabSheetAnchors;
FreeAndNil(FTabSheetDesigner);
ShowTabs := False;
end;
procedure TSourcePageControl.RemoveTabSheetAnchors;
begin
if not Assigned(FTabSheetAnchors) then Exit;
FreeAndNil(FTabSheetAnchors);
end;
procedure TSourcePageControl.InitPage;
begin
ShowTabs := PageCount > 1;

2
components/dockedformeditor/source/dockedsourcewindow.pas
View File

@ -435,6 +435,8 @@ begin
begin
LPageCtrl.TabPosition := DockedOptions.TabPosition;
LPageCtrl.RefreshResizer;
if not DockedOptions.AnchorTabVisible then
LPageCtrl.RemoveTabSheetAnchors;
end;
end;