Added .icns icon file for MacOS-X, Added .ico with white background color, TextStorytItem not getting mouse events when not Editable so that it can be dragged, Allow to paste SVG markup directly as new ImageStoryItem

Author: birbilis@zoomicon.com

App/READCOM_App.deployproj

@@ -270,6 +270,7 @@ function TImageStoryItem.LoadBitmap(const Stream: TStream): TObject;
 
 function TImageStoryItem.Load(const Clipboard: IFMXExtendedClipboardService; const CreateNew: Boolean = false): TObject;
 begin
+  //check for Bitmap image
   if Clipboard.HasImage then
   begin
     var BitmapSurface := Clipboard.GetImage;
@@ -279,6 +280,17 @@ function TImageStoryItem.Load(const Clipboard: IFMXExtendedClipboardService; con
     finally
       FreeAndNil(BitmapSurface); //must release the TBitmapSurface to not have memory leak
     end;
+  end
+
+  //check for SVG markup
+  else if Clipboard.HasText then
+  begin
+    var LText := TrimLeft(Clipboard.GetText); //Trimming since we may have pasted some SVG markup with extra spaces before and after
+    if LText.StartsWith('<svg ') and LText.EndsWith('</svg>') then
+    begin
+      SVGText := LText;
+      Exit(Self);
+    end;
   end;
 
   result := inherited; //fallback to ancestor implementation

App/READCOM_App.dproj

@@ -1343,9 +1343,11 @@ procedure TStoryItem.Paste(const Clipboard: IFMXExtendedClipboardService);
   //Check clipboard contents format
   if Clipboard.HasText then
   begin
-    var LText := TrimLeft(Clipboard.GetText); //Left-trimming since we may have pasted an indented object from a .readcom file
+    var LText := Trim(Clipboard.GetText); //Trimming since we may have pasted an indented object from a .readcom file or some SVG markup with extra spaces before and after
     if LText.StartsWith('object ') then //ignore if not Delphi serialization format (its text-based form), handle other text at descendents like TextStoryItem //TODO: add method to check if text contains object
       FileExt := '.readcom'
+    else if LText.StartsWith('<svg ') and LText.EndsWith('</svg>') then
+      FileExt := '.svg'
     else
       FileExt := '.txt'
   end

App/READCOM_App.res

@@ -242,6 +242,7 @@ function TTextStoryItem.Load(const Clipboard: IFMXExtendedClipboardService; cons
 procedure TTextStoryItem.UpdateMemoReadOnly;
 begin
   Memo.ReadOnly := not (IsEditable or IsEditMode);
+  Memo.HitTest := not Memo.ReadOnly; //TODO: should maybe have a mode that swiches between Editable, Selectable and Read-Only/Inactive (so that it's draggable)
 end;
 
 {$endregion}