411a412
>   OldDefaultIfValueNotExists : Boolean;
474a476,477
>     OldDefaultIfValueNotExists := FAppStorage.StorageOptions.DefaultIfValueNotExists;
>     FAppStorage.StorageOptions.DefaultIfValueNotExists := True;
499a503
>       FAppStorage.StorageOptions.DefaultIfValueNotExists := OldDefaultIfValueNotExists;
780a785,798
> 
>   procedure WriteIntegerIfNonZero(const Path: string; Value: Integer);
>   begin
>     if Value <> 0 then
>       fAppStorage.WriteInteger(Path, Value);
>   end;
> 
>   procedure WriteBooleanIfFalse(const Path: string; Value: Boolean);
>   begin
>     if not Value then
>       fAppStorage.WriteBoolean(Path, Value);
>   end;
> 
> 
801,804c819,822
<           WriteInteger('DockLeft', DockRect.Left);
<           WriteInteger('DockTop', DockRect.Top);
<           WriteInteger('DockRight', DockRect.Right);
<           WriteInteger('DockBottom', DockRect.Bottom);
---
>           WriteIntegerIfNonZero('DockLeft', DockRect.Left);
>           WriteIntegerIfNonZero('DockTop', DockRect.Top);
>           WriteIntegerIfNonZero('DockRight', DockRect.Right);
>           WriteIntegerIfNonZero('DockBottom', DockRect.Bottom);
806,824c824,842
<           WriteInteger('UnDockLeft', UnDockLeft);
<           WriteInteger('UnDockTop', UnDockTop);
<           WriteInteger('LRDockWidth', LRDockWidth);
<           WriteInteger('TBDockHeight', TBDockHeight);
<           WriteInteger('UnDockWidth', UnDockWidth);
<           WriteInteger('UnDockHeight', UnDockHeight);
<           WriteInteger('VSPaneWidth', VSPaneWidth);
<           WriteBoolean('Visible', Visible);
<           WriteInteger('BorderStyle', Integer(BorderStyle));
<           WriteInteger('FormStyle', Integer(FormStyle));
<           WriteInteger('WindowState', Integer(WindowState));
<           WriteInteger('DockFormStyle', Integer(DockFormStyle));
<           WriteBoolean('CanDocked', CanDocked);
<           WriteBoolean('EachOtherDocked', EachOtherDocked);
<           WriteBoolean('LeftDocked', LeftDocked);
<           WriteBoolean('TopDocked', TopDocked);
<           WriteBoolean('RightDocked', RightDocked);
<           WriteBoolean('BottomDocked', BottomDocked);
<           WriteBoolean('CustomDocked', CustomDocked); {NEW!}
---
>           WriteIntegerIfNonZero('UnDockLeft', UnDockLeft);
>           WriteIntegerIfNonZero('UnDockTop', UnDockTop);
>           WriteIntegerIfNonZero('LRDockWidth', LRDockWidth);
>           WriteIntegerIfNonZero('TBDockHeight', TBDockHeight);
>           WriteIntegerIfNonZero('UnDockWidth', UnDockWidth);
>           WriteIntegerIfNonZero('UnDockHeight', UnDockHeight);
>           WriteIntegerIfNonZero('VSPaneWidth', VSPaneWidth);
>           WriteBooleanIfFalse('Visible', Visible);
>           WriteIntegerIfNonZero('BorderStyle', Integer(BorderStyle));
>           WriteIntegerIfNonZero('FormStyle', Integer(FormStyle));
>           WriteIntegerIfNonZero('WindowState', Integer(WindowState));
>           WriteIntegerIfNonZero('DockFormStyle', Integer(DockFormStyle));
>           WriteBooleanIfFalse('CanDocked', CanDocked);
>           WriteBooleanIfFalse('EachOtherDocked', EachOtherDocked);
>           WriteBooleanIfFalse('LeftDocked', LeftDocked);
>           WriteBooleanIfFalse('TopDocked', TopDocked);
>           WriteBooleanIfFalse('RightDocked', RightDocked);
>           WriteBooleanIfFalse('BottomDocked', BottomDocked);
>           WriteBooleanIfFalse('CustomDocked', CustomDocked); {NEW!}