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