diff --git a/App/AndroidManifest.template.xml b/App/AndroidManifest.template.xml index a8a61b8..0f90f97 100644 --- a/App/AndroidManifest.template.xml +++ b/App/AndroidManifest.template.xml @@ -5,7 +5,7 @@ android:versionCode="%versionCode%" android:versionName="%versionName%" android:installLocation="%installLocation%"> - + <%uses-permission%> diff --git a/App/READCOM_App.deployproj b/App/READCOM_App.deployproj index dff58fe..0c40b80 100644 --- a/App/READCOM_App.deployproj +++ b/App/READCOM_App.deployproj @@ -5,7 +5,7 @@ - + HGAJGEJN @@ -661,15 +661,6 @@ True - - READCOM_App\library\lib\armeabi-v7a\ - libREADCOM_App.so - ProjectOutput_Android32 - 1 - - - True - READCOM_App\res\values\ strings.xml diff --git a/App/READCOM_App.dproj b/App/READCOM_App.dproj index e6ae570..1de460f 100644 --- a/App/READCOM_App.dproj +++ b/App/READCOM_App.dproj @@ -859,12 +859,6 @@ true - - - libREADCOM_App.so - true - - 64 diff --git a/App/Views/READCOM.Views.Main.pas b/App/Views/READCOM.Views.Main.pas index 5d5e6a1..d855cba 100644 --- a/App/Views/READCOM.Views.Main.pas +++ b/App/Views/READCOM.Views.Main.pas @@ -174,6 +174,7 @@ TMainForm = class(TForm, IStory) implementation uses System.Contnrs, //for TClassList + System.IOUtils, //for TPath System.Math, //for Max System.Net.URLClient, //for TURLStream (Delphi 11.1+) Zoomicon.Helpers.RTL.ClassListHelpers, //for TClassList.Create(TClassArray) @@ -1121,9 +1122,12 @@ function TMainForm.LoadCommandLineParameter: Boolean; function TMainForm.LoadSavedState: Boolean; begin + Log('LoadSavedState'); + With SaveState do begin - //StoragePath := ... //TODO: default is transient, change to make permanent + Name := 'SavedState.readcom'; + StoragePath := TPath.GetHomePath; result := LoadFromStream(Stream, false); //don't ActivateHome, keep last Active one (needed in case the OS brought down the app and need to continue from where we were from saved state) end; end; @@ -1157,13 +1161,17 @@ function TMainForm.LoadDefaultDocument: Boolean; procedure TMainForm.SaveCurrentState; begin - Log('SaveState'); - //StoragePath := ... //TODO: default is transient, change to make permanent - SaveState.Stream.Clear; + Log('SaveCurrentState'); - var TheRootStoryItemView := RootStoryItemView; - if Assigned(TheRootStoryItemView) then - with SaveState do + with SaveState do + begin + Name := 'SavedState.readcom'; + StoragePath := TPath.GetHomePath; + + Stream.Clear; + + var TheRootStoryItemView := RootStoryItemView; + if Assigned(TheRootStoryItemView) then try TheRootStoryItemView.Save(Stream); //default file format is EXT_READCOM except @@ -1173,7 +1181,8 @@ procedure TMainForm.SaveCurrentState; Log(E); ShowException(E, @TMainForm.SaveCurrentState); end; - end; + end; + end; end; procedure TMainForm.FormSaveState(Sender: TObject); diff --git a/Zoomicon.Media/Zoomicon.Media.FMX.dproj b/Zoomicon.Media/Zoomicon.Media.FMX.dproj index 2b7af9a..2119a6a 100644 --- a/Zoomicon.Media/Zoomicon.Media.FMX.dproj +++ b/Zoomicon.Media/Zoomicon.Media.FMX.dproj @@ -6,7 +6,7 @@ None True Debug - Win32 + OSX64 168979 Package OSX64