diff w C:\TEMP\JvAppStorage.pas C:\Sandbox\P4D\PythonForDelphi\PythonIDE\JvAppStorage.pas
669a670
>     FStoreDefaultValues : Boolean;
681a683
>     procedure SetStoreDefaultValues(const Value: Boolean);
702a705,706
>     property StoreDefaultValues : Boolean read FStoreDefaultValues
>       write SetStoreDefaultValues default False;
716a721
>     property StoreDefaultValues;
1128a1134,1139
> procedure TJvCustomAppStorageOptions.SetStoreDefaultValues(
>   const Value: Boolean);
> begin
>   FStoreDefaultValues := Value;
> end;
> 
2461a2473,2507
> 
>   function IsDefaultOrdProp(PropInfo: PPropInfo): Boolean;
>   var
>     Value: Longint;
>     Default: LongInt;
>   begin
>     Value := GetOrdProp(PersObj, PropInfo);
>     Default := PPropInfo(PropInfo)^.Default;
>     Result :=  (Default <> LongInt($80000000)) and (Value = Default);
>   end;
> 
>   function IsDefaultStrProp(PropInfo: PPropInfo): Boolean;
>   var
>     Value: WideString;
>   begin
>     Value := GetWideStrProp(PersObj, PropInfo);
>     Result := Value = '';
>   end;
> 
>   function IsDefaultInt64Prop(PropInfo: PPropInfo): Boolean;
>   var
>     Value: Int64;
>   begin
>     Value := GetInt64Prop(PersObj, PropInfo);
>     Result := Value = 0;
>   end;
> 
>   function IsDefaultFloatProp(PropInfo: PPropInfo): Boolean;
>   var
>     Value: Extended;
>   begin
>     Value := GetFloatProp(PersObj, PropInfo);
>     Result := Value = 0;
>   end;
> 
2470a2517,2519
>       begin
>         P := GetPropInfo(PersObj, PropName, tkAny);
>         if StorageOptions.StoreDefaultValues or not IsDefaultStrProp(P) then
2471a2521
>       end;
2473a2524,2526
>         P := GetPropInfo(PersObj, PropName, tkAny);
>         if StorageOptions.StoreDefaultValues or not IsDefaultOrdProp(P) then
>         begin
2476a2530
>       end;
2478a2533,2535
>         P := GetPropInfo(PersObj, PropName, tkAny);
>         if StorageOptions.StoreDefaultValues or not IsDefaultOrdProp(P) then
>         begin
2481a2539
>       end;
2483a2542,2544
>         P := GetPropInfo(PersObj, PropName, tkAny);
>         if StorageOptions.StoreDefaultValues or not IsDefaultOrdProp(P) then
>         begin
2491a2553
>       end;
2492a2555,2557
>       begin
>         P := GetPropInfo(PersObj, PropName, tkAny);
>         if StorageOptions.StoreDefaultValues or not IsDefaultInt64Prop(P) then
2493a2559
>       end;
2496a2563,2564
>         if StorageOptions.StoreDefaultValues or not IsDefaultFloatProp(P) then
>         begin
2500a2569
>         end;