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

Anchordocking: fix default monitor, if no monitor is set in config (0/zero may not be the default on all systems)

Browse Source
This commit is contained in:
Martin 2024-11-08 21:26:25 +01:00
parent a116ad932e
commit 0a86b7b053
1 changed files with 6 additions and 6 deletions

12
components/anchordocking/anchordockstorage.pas
View File

@ -771,7 +771,7 @@ procedure DebugWriteChildAnchors(RootNode: TAnchorDockLayoutTreeNode);
,',h=',dbgs(Node.BoundsRect.Bottom-Node.BoundsRect.Top));
if Node.WindowState<>wsNormal then
DbgOut(' WindowState=',dbgs(Node.WindowState));
if Node.Monitor<>0 then
if Node.Monitor<>-1 then
DbgOut(' Monitor=',dbgs(Node.Monitor));
if Node.BoundSplitterPos<>0 then
DbgOut(' SplitterPos=',dbgs(Node.BoundSplitterPos));
@ -1064,7 +1064,7 @@ begin
while Count>0 do Nodes[Count-1].Free;
NodeType:=adltnNone;
WindowState:=wsNormal;
Monitor:=0;
Monitor:=-1;
Align:=alNone;
HeaderPosition:=adlhpAuto;
TabPosition:=tpTop;
@ -1203,7 +1203,7 @@ begin
HeaderPosition:=NameToADLHeaderPosition(Config.GetValue('Header/Position',ADLHeaderPositionNames[adlhpAuto]));
TabPosition:=NameToADLTabPosition(Config.GetValue('Header/TabPosition',ADLTabPostionNames[tpTop]));
PageIndex:=Config.GetValue('Header/PageIndex',0);
Monitor:=Config.GetValue('Monitor',0);
Monitor:=Config.GetValue('Monitor',-1);
NewCount:=Config.GetValue('ChildCount',0);
PixelsPerInch:=Config.GetValue('PixelsPerInch',96);
for i:=1 to NewCount do begin
@ -1240,7 +1240,7 @@ begin
HeaderPosition:=NameToADLHeaderPosition(Config.GetValue(Path+'Header/Position',ADLHeaderPositionNames[adlhpAuto]));
TabPosition:=NameToADLTabPosition(Config.GetValue(Path+'Header/TabPosition',ADLTabPostionNames[tpTop]));
PageIndex:=Config.GetValue(Path+'Header/PageIndex',0);
Monitor:=Config.GetValue(Path+'Monitor',0);
Monitor:=Config.GetValue(Path+'Monitor',-1);
NewCount:=Config.GetValue(Path+'ChildCount',0);
PixelsPerInch:=Config.GetValue(Path+'PixelsPerInch',96);
for i:=1 to NewCount do
@ -1277,7 +1277,7 @@ begin
ADLTabPostionNames[tpTop]);
Config.SetDeleteValue('Header/PageIndex',PageIndex,0);
Config.SetDeleteValue('Minimized',Minimized,False);
Config.SetDeleteValue('Monitor',Monitor,0);
Config.SetDeleteValue('Monitor',Monitor,-1);
Config.SetDeleteValue('ChildCount',Count,0);
Config.SetDeleteValue('PixelsPerInch',PixelsPerInch,96);
for i:=1 to Count do begin
@ -1313,7 +1313,7 @@ begin
ADLTabPostionNames[tpTop]);
Config.SetDeleteValue(Path+'Header/PageIndex',PageIndex,0);
Config.SetDeleteValue(Path+'Minimized',Minimized,False);
Config.SetDeleteValue(Path+'Monitor',Monitor,0);
Config.SetDeleteValue(Path+'Monitor',Monitor,-1);
Config.SetDeleteValue(Path+'ChildCount',Count,0);
Config.SetDeleteValue(Path+'PixelsPerInch',PixelsPerInch,96);
for i:=1 to Count do