paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-11 17:01:14 +01:00
Code Issues Packages Projects Releases Wiki Activity

AnchorDockingDsgn: Enable FreeWindowOnClose per default

Browse Source 
git-svn-id: trunk@64806 -
This commit is contained in:
michl 2021-03-14 18:57:19 +00:00
parent 9777df5da6
commit ccf0334712
3 changed files with 54 additions and 50 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

99
components/anchordocking/design/ADLayoutDefault.lrs
View File

@ -1,51 +1,52 @@
LazarusResources.Add('ADLayoutDefault','XML',[
'<?xml version="1.0"?>'#13#10'<CONFIG>'#13#10' <MainConfig>'#13#10' <Node'
+'s ChildCount="1">'#13#10' <Item1 Name="MainIDE" Type="CustomSite" Chil'
+'dCount="1">'#13#10' <Bounds Width="1024" Height="768">'#13#10' '
+' <WorkArea>'#13#10' <Rect Right="1920" Bottom="1036"/>'#13#10
+' </WorkArea>'#13#10' </Bounds>'#13#10' <Item1 Name="'
+'AnchorDockSite10" Type="Layout" ChildCount="7">'#13#10' <Bounds To'
+'p="60" Width="1024" Height="688" SplitterPos="58"/>'#13#10' <Ancho'
+'rs Align="Bottom"/>'#13#10' <Item1 Name="SourceNotebook" Type="Con'
+'trol">'#13#10' <Bounds Left="177" Width="651" Height="505"/>'#13
+#10' <Anchors Left="AnchorDockSplitter4" Right="AnchorDockSplitte'
+'r3" Bottom="AnchorDockSplitter2"/>'#13#10' <Header Position="lef'
+'t"/>'#13#10' </Item1>'#13#10' <Item2 Name="AnchorDockSpli'
+'tter2" Type="SplitterHorizontal">'#13#10' <Bounds Left="177" Top'
+'="505" Width="651" Height="7"/>'#13#10' <Anchors Left="AnchorDoc'
+'kSplitter4" Right="AnchorDockSplitter3"/>'#13#10' </Item2>'#13#10
+' <Item3 Name="AnchorDockSite11" Type="Pages" ChildCount="5">'#13#10
+' <Bounds Left="177" Top="512" Width="651" Height="176"/>'#13#10
+' <Anchors Left="AnchorDockSplitter4" Top="AnchorDockSplitter2" R'
+'ight="AnchorDockSplitter3"/>'#13#10' <Item1 Name="MessagesView" '
+'Type="Control">'#13#10' <Bounds Width="643" Height="150"/>'#13
+#10' <Anchors Align="Client"/>'#13#10' </Item1>'#13
+#10' <Item2 Name="Watches" Type="Control">'#13#10' <'
+'Bounds Width="932" Height="119"/>'#13#10' <Anchors Align="Clie'
+'nt"/>'#13#10' </Item2>'#13#10' <Item3 Name="SearchRes'
+'ults" Type="Control">'#13#10' <Bounds Width="932" Height="119"'
+'/>'#13#10' <Anchors Align="Client"/>'#13#10' </Item'
+'3>'#13#10' <Item4 Name="Assembler" Type="Control">'#13#10' '
+' <Bounds Width="932" Height="106"/>'#13#10' <Anchors Al'
+'ign="Client"/>'#13#10' </Item4>'#13#10' <Item5 Name="'
+'BreakPoints" Type="Control">'#13#10' <Bounds Width="937" Heigh'
+'t="106"/>'#13#10' <Anchors Align="Client"/>'#13#10' '
+' </Item5>'#13#10' </Item3>'#13#10' <Item4 Name="AnchorDoc'
+'kSplitter3" Type="SplitterVertical">'#13#10' <Bounds Left="828" '
+'Width="9" Height="688"/>'#13#10' </Item4>'#13#10' <Item5 '
+'Name="AnchorDockSite12" Type="Pages" ChildCount="2">'#13#10' <Bo'
+'unds Left="837" Width="187" Height="688"/>'#13#10' <Anchors Left'
+'="AnchorDockSplitter3"/>'#13#10' <Item1 Name="CodeExplorerView" '
+'Type="Control">'#13#10' <Bounds Width="179" Height="662"/>'#13
+#10' <Anchors Align="Client"/>'#13#10' </Item1>'#13
+#10' <Item2 Name="ComponentList" Type="Control">'#13#10' '
+' <Bounds Width="159" Height="626"/>'#13#10' <Anchors Align'
+'="Client"/>'#13#10' </Item2>'#13#10' </Item5>'#13#10' '
+' <Item6 Name="ObjectInspectorDlg" Type="Control">'#13#10' '
+' <Bounds Width="173" Height="688"/>'#13#10' <Anchors Right="Anch'
+'orDockSplitter4"/>'#13#10' </Item6>'#13#10' <Item7 Name="'
+'AnchorDockSplitter4" Type="SplitterVertical">'#13#10' <Bounds Le'
+'ft="173" Width="4" Height="688"/>'#13#10' </Item7>'#13#10' '
+'</Item1>'#13#10' </Item1>'#13#10' </Nodes>'#13#10' </MainConfig>'
+#13#10'</CONFIG>'#13#10
'<?xml version="1.0"?>'#13#10'<CONFIG>'#13#10' <Version Value="1"/>'#13#10' '
+' <MainConfig>'#13#10' <Nodes ChildCount="1">'#13#10' <Item1 Name="M'
+'ainIDE" Type="CustomSite" ChildCount="1">'#13#10' <Bounds Width="102'
+'4" Height="768">'#13#10' <WorkArea>'#13#10' <Rect Right'
+'="1920" Bottom="1036"/>'#13#10' </WorkArea>'#13#10' </Bound'
+'s>'#13#10' <Item1 Name="AnchorDockSite10" Type="Layout" ChildCount="'
+'7">'#13#10' <Bounds Top="60" Width="1024" Height="688" SplitterPos'
+'="58"/>'#13#10' <Anchors Align="Bottom"/>'#13#10' <Item1 '
+'Name="SourceNotebook" Type="Control">'#13#10' <Bounds Left="177"'
+' Width="651" Height="505"/>'#13#10' <Anchors Left="AnchorDockSpl'
+'itter4" Right="AnchorDockSplitter3" Bottom="AnchorDockSplitter2"/>'#13#10' '
+' <Header Position="left"/>'#13#10' </Item1>'#13#10' '
+' <Item2 Name="AnchorDockSplitter2" Type="SplitterHorizontal">'#13#10' '
+' <Bounds Left="177" Top="505" Width="651" Height="7"/>'#13#10' '
+' <Anchors Left="AnchorDockSplitter4" Right="AnchorDockSplitter3"/>'
+#13#10' </Item2>'#13#10' <Item3 Name="AnchorDockSite11" Ty'
+'pe="Pages" ChildCount="5">'#13#10' <Bounds Left="177" Top="512" '
+'Width="651" Height="176"/>'#13#10' <Anchors Left="AnchorDockSpli'
+'tter4" Top="AnchorDockSplitter2" Right="AnchorDockSplitter3"/>'#13#10' '
+' <Item1 Name="MessagesView" Type="Control">'#13#10' <Bou'
+'nds Width="643" Height="150"/>'#13#10' <Anchors Align="Client"'
+'/>'#13#10' </Item1>'#13#10' <Item2 Name="Watches" Typ'
+'e="Control">'#13#10' <Bounds Width="932" Height="119"/>'#13#10
+' <Anchors Align="Client"/>'#13#10' </Item2>'#13#10
+' <Item3 Name="SearchResults" Type="Control">'#13#10' '
+' <Bounds Width="932" Height="119"/>'#13#10' <Anchors Align="C'
+'lient"/>'#13#10' </Item3>'#13#10' <Item4 Name="Assemb'
+'ler" Type="Control">'#13#10' <Bounds Width="932" Height="106"/'
+'>'#13#10' <Anchors Align="Client"/>'#13#10' </Item4'
+'>'#13#10' <Item5 Name="BreakPoints" Type="Control">'#13#10' '
+' <Bounds Width="937" Height="106"/>'#13#10' <Anchors A'
+'lign="Client"/>'#13#10' </Item5>'#13#10' </Item3>'#13#10
+' <Item4 Name="AnchorDockSplitter3" Type="SplitterVertical">'#13#10
+' <Bounds Left="828" Width="9" Height="688"/>'#13#10' </'
+'Item4>'#13#10' <Item5 Name="AnchorDockSite12" Type="Pages" ChildCo'
+'unt="2">'#13#10' <Bounds Left="837" Width="187" Height="688"/>'
+#13#10' <Anchors Left="AnchorDockSplitter3"/>'#13#10' '
+'<Item1 Name="CodeExplorerView" Type="Control">'#13#10' <Bounds'
+' Width="179" Height="662"/>'#13#10' <Anchors Align="Client"/>'
+#13#10' </Item1>'#13#10' <Item2 Name="ComponentList" T'
+'ype="Control">'#13#10' <Bounds Width="159" Height="626"/>'#13
+#10' <Anchors Align="Client"/>'#13#10' </Item2>'#13
+#10' </Item5>'#13#10' <Item6 Name="ObjectInspectorDlg" Typ'
+'e="Control">'#13#10' <Bounds Width="173" Height="688"/>'#13#10' '
+' <Anchors Right="AnchorDockSplitter4"/>'#13#10' </Item6>'
+#13#10' <Item7 Name="AnchorDockSplitter4" Type="SplitterVertical">'
+#13#10' <Bounds Left="173" Width="4" Height="688"/>'#13#10' '
+' </Item7>'#13#10' </Item1>'#13#10' </Item1>'#13#10' </Nod'
+'es>'#13#10' </MainConfig>'#13#10' <Settings FreeWindowOnClose="True"/>'#13
+#10'</CONFIG>'#13#10
]);

2
components/anchordocking/design/ADLayoutDefault.xml
View File

@ -1,5 +1,6 @@
<?xml version="1.0"?>
<CONFIG>
<Version Value="1"/>
<MainConfig>
<Nodes ChildCount="1">
<Item1 Name="MainIDE" Type="CustomSite" ChildCount="1">
@ -70,4 +71,5 @@
</Item1>
</Nodes>
</MainConfig>
<Settings FreeWindowOnClose="True"/>
</CONFIG>

3
components/anchordocking/design/anchordesktopoptions.pas
View File

@ -197,7 +197,8 @@ begin
try
Config:=GetIDEConfigStorage('anchordockoptions.xml',true);
try
FSettings.LoadFromConfig(Config);
if FileExistsUTF8(Config.GetFilename) then
FSettings.LoadFromConfig(Config);
finally
Config.Free;
end;