added hints to buttons of edit sidebar, faded the DropTarget UI (lower opacity), removed old keyboard focus related code from StoryItem

Author: [email protected]

App/Views/READCOM.Views.Main.fmx

@@ -21,8 +21,6 @@ object MainForm: TMainForm
     Size.Width = 876.000000000000000000
     Size.Height = 616.000000000000000000
     Size.PlatformDefault = False
-    ParentShowHint = False
-    ShowHint = True
     inherited layoutContent: TLayout
       Size.Width = 876.000000000000000000
       Size.Height = 616.000000000000000000
@@ -46,6 +44,11 @@ object MainForm: TMainForm
       end
       inherited layoutButtonsMain: TFlowLayout
         Size.Height = 576.000000000000000000
+        inherited btnLoad: TSpeedButton
+          Hint = 
+            'Load Story'#13#13'Clears current contents and loads a Story'#39's contents' +
+            ' from a .readcom file'
+        end
       end
       inherited layoutButtonsEdit: TFlowLayout
         Position.X = 826.000000000000000000

App/Views/READCOM.Views.Menu.HUD.fmx

@@ -251,6 +251,7 @@ object StoryHUD: TStoryHUD
         Action = actionAdd
         Anchors = [akTop, akRight]
         Enabled = True
+        Hint = 'Add Text'#13#13'Adds a TextStoryItem child into the edited StoryItem'
         Images = Globals.SVGIconImageList
         ImageIndex = 10
         Margins.Left = 3.000000000000000000
@@ -268,6 +269,7 @@ object StoryHUD: TStoryHUD
         Action = actionDelete
         Anchors = [akTop, akRight]
         Enabled = True
+        Hint = 'Delete'#13#13'Removes the edited StoryItem'
         Images = Globals.SVGIconImageList
         ImageIndex = 8
         Margins.Left = 3.000000000000000000
@@ -285,6 +287,7 @@ object StoryHUD: TStoryHUD
         Action = actionCopy
         Anchors = [akTop, akRight]
         Enabled = True
+        Hint = 'Copy'#13#13'Copies the edited StoryItem to the system clipboard'
         Images = Globals.SVGIconImageList
         ImageIndex = 17
         Margins.Left = 3.000000000000000000
@@ -302,6 +305,9 @@ object StoryHUD: TStoryHUD
         Action = actionPaste
         Anchors = [akTop, akRight]
         Enabled = True
+        Hint = 
+          'Paste'#13#13'Pastes a StoryItem from the system clipboard into the edi' +
+          'ted StoryItem as a new child'
         Images = Globals.SVGIconImageList
         ImageIndex = 18
         Margins.Left = 3.000000000000000000
@@ -317,6 +323,7 @@ object StoryHUD: TStoryHUD
       end
       object btnFlipHorizontally: TSpeedButton
         Anchors = [akTop, akRight]
+        Hint = 'Flip Horizontally'#13#13'Mirrors the edited StoryItem horizontally'
         Images = Globals.SVGIconImageList
         ImageIndex = 19
         Margins.Left = 3.000000000000000000
@@ -332,6 +339,7 @@ object StoryHUD: TStoryHUD
       end
       object btnFlipVertically: TSpeedButton
         Anchors = [akTop, akRight]
+        Hint = 'Flip Vertically'#13#13'Mirrors the edited StoryItem vertically'
         Images = Globals.SVGIconImageList
         ImageIndex = 20
         Margins.Left = 3.000000000000000000

App/Views/READCOM.Views.StoryItem.pas

@@ -186,11 +186,8 @@   TStoryItem = class(TCustomManipulator, IStoryItem, IClipboardEnabled, IStoreab
 
   protected
     procedure ActiveChanged;
-
-    //procedure CanFocus(var ACanFocus: Boolean); override;
-    procedure KeyDown(var Key: Word; var KeyChar: WideChar; Shift: TShiftState); override;
-    procedure MouseClick(Button: TMouseButton; Shift: TShiftState; X, Y: Single); override; //preferring overriden methods instead of event handlers that get stored with saved state
     procedure DropTargetDropped(const Filepaths: array of string); override;
+    procedure MouseClick(Button: TMouseButton; Shift: TShiftState; X, Y: Single); override; //preferring overriden methods instead of event handlers that get stored with saved state
     procedure Tap(const Point: TPointF); override;
 
   //--- Properties ---
@@ -301,8 +298,6 @@ procedure TStoryItem.Init;
       SendToBack; //TODO: ??? or done at ancestor anyway? (note order of Inits below will play part in resulting order) //always send to back after setting Visible
 
       HitTest := False; //TODO: done at ancestor anyway?
-
-      OnDropped := DropTargetDropped;
     end;
   end;
 
@@ -861,32 +856,6 @@ function TStoryItem.GetOptions: IStoryItemOptions;
 
 {$REGION '--- EVENTS ---'}
 
-{$region 'Keyboard'}
-
-//TODO: fix to work with items that are to be focused only (depending on mode)
-procedure TStoryItem.KeyDown(var Key: Word; var KeyChar: WideChar; Shift: TShiftState);
-begin
-  inherited;
-
-  var CurControl := TControl(Screen.FocusControl);
-  case Key of
-    vkReturn:
-      SelectNext(CurControl);
-    vkTab:
-      SelectNext(CurControl, not (ssShift in Shift));
-  end;
-end;
-
-{
-procedure TStoryItem.CanFocus(var ACanFocus: Boolean);
-begin
-  inherited;
-  ShowMessage('Focused');
-end;
-}
-
-{$endregion}
-
 {$region 'Mouse'}
 
 procedure TStoryItem.MouseClick(Button: TMouseButton; Shift: TShiftState; X, Y: Single);

Zoomicon.Manipulation/Zoomicon.Manipulation.FMX.CustomManipulator.pas

@@ -223,8 +223,11 @@ procedure TCustomManipulator.Loaded;
       SetSubComponent(true); //don't show in Designer for descendents
       HitTest := False; //TODO: check if needed for drag-drop
       Visible := EditMode;
+      Opacity := 0.4;
       SendToBack; //always do after setting Visible
       DropTarget.Align := TAlignLayout.Client;
+
+      Enabled := true;
       OnDragOver := DropTargetDragOver;
       OnDropped := DropTargetDropped;
     end;