Skip to content

Commit

Permalink
Fix to FindObject method from TreeViewHelpers, StructureView now auto…
Browse files Browse the repository at this point in the history 
…removes freed items, MainForm now updates StructureView when RootStoryItemView changes and sets its selection in its SetActiveStoryItem
  • Loading branch information
birbilis@zoomicon.com committed Feb 22, 2022
1 parent 47bfa52 commit 68be70b
Show file tree
Hide file tree
Showing 15 changed files with 184 additions and 111 deletions.
112 changes: 67 additions & 45 deletions App/READCOM.App.Globals.dfm
View file
Original file line number Diff line number Diff line change
Expand Up @@ -68072,6 +68072,7 @@ object Globals: TGlobals
item
MultiResBitmap = <
item
Size = 30
end>
IconName = 'Edit'
SVGText =
Expand Down Expand Up @@ -68116,6 +68117,7 @@ object Globals: TGlobals
item
MultiResBitmap = <
item
Size = 30
end>
IconName = 'reverse'
SVGText =
Expand All @@ -68135,6 +68137,7 @@ object Globals: TGlobals
item
MultiResBitmap = <
item
Size = 30
end>
IconName = 'play'
SVGText =
Expand All @@ -68154,7 +68157,8 @@ object Globals: TGlobals
item
MultiResBitmap = <
item
Width = 26
Width = 24
Height = 30
end>
IconName = 'Diagram'
SVGText =
Expand All @@ -68170,6 +68174,7 @@ object Globals: TGlobals
item
MultiResBitmap = <
item
Size = 30
end>
IconName = 'TargetArrow'
SVGText =
Expand Down Expand Up @@ -68223,6 +68228,7 @@ object Globals: TGlobals
item
MultiResBitmap = <
item
Size = 64
end>
IconName = 'Anchor'
SVGText =
Expand All @@ -68248,6 +68254,7 @@ object Globals: TGlobals
item
MultiResBitmap = <
item
Size = 30
end>
IconName = 'OpenFileFolder'
SVGText =
Expand Down Expand Up @@ -68283,6 +68290,7 @@ object Globals: TGlobals
item
MultiResBitmap = <
item
Size = 30
end>
IconName = 'Save'
SVGText =
Expand Down Expand Up @@ -68315,6 +68323,7 @@ object Globals: TGlobals
item
MultiResBitmap = <
item
Size = 30
end>
IconName = 'Delete'
SVGText =
Expand Down Expand Up @@ -68349,6 +68358,7 @@ object Globals: TGlobals
item
MultiResBitmap = <
item
Size = 64
end>
IconName = 'GlobeWithMeridians'
SVGText =
Expand Down Expand Up @@ -68377,6 +68387,7 @@ object Globals: TGlobals
item
MultiResBitmap = <
item
Size = 64
end>
IconName = 'Plus'
SVGText =
Expand Down Expand Up @@ -68416,6 +68427,7 @@ object Globals: TGlobals
item
MultiResBitmap = <
item
Size = 64
end>
IconName = 'Camera'
SVGText =
Expand Down Expand Up @@ -68474,6 +68486,7 @@ object Globals: TGlobals
item
MultiResBitmap = <
item
Size = 30
end>
IconName = 'PaperA4'
SVGText =
Expand All @@ -68495,6 +68508,7 @@ object Globals: TGlobals
item
MultiResBitmap = <
item
Size = 30
end>
IconName = 'Home'
SVGText =
Expand Down Expand Up @@ -68522,6 +68536,7 @@ object Globals: TGlobals
item
MultiResBitmap = <
item
Size = 64
end>
IconName = 'Signpost'
SVGText =
Expand Down Expand Up @@ -68551,6 +68566,7 @@ object Globals: TGlobals
item
MultiResBitmap = <
item
Size = 30
end>
IconName = 'Info'
SVGText =
Expand All @@ -68575,6 +68591,7 @@ object Globals: TGlobals
item
MultiResBitmap = <
item
Size = 30
end>
IconName = 'Questionmark'
SVGText =
Expand Down Expand Up @@ -68614,6 +68631,7 @@ object Globals: TGlobals
item
MultiResBitmap = <
item
Size = 30
end>
IconName = 'CopyAction'
SVGText =
Expand Down Expand Up @@ -68648,6 +68666,7 @@ object Globals: TGlobals
item
MultiResBitmap = <
item
Size = 30
end>
IconName = 'PasteAction'
SVGText =
Expand Down Expand Up @@ -68697,6 +68716,7 @@ object Globals: TGlobals
item
MultiResBitmap = <
item
Size = 30
end>
IconName = 'FlipHorizontally'
SVGText =
Expand Down Expand Up @@ -68732,6 +68752,7 @@ object Globals: TGlobals
item
MultiResBitmap = <
item
Size = 30
end>
IconName = 'FlipVertically'
SVGText =
Expand Down Expand Up @@ -68767,6 +68788,7 @@ object Globals: TGlobals
item
MultiResBitmap = <
item
Size = 30
end>
IconName = 'ThoughtEllipsis'
SVGText =
Expand Down Expand Up @@ -68796,176 +68818,176 @@ object Globals: TGlobals
Layers = <
item
Name = 'Edit'
SourceRect.Right = 78.000000000000000000
SourceRect.Bottom = 78.000000000000000000
SourceRect.Right = 30.000000000000000000
SourceRect.Bottom = 30.000000000000000000
end>
end
item
Layers = <
item
Name = 'reverse'
SourceRect.Right = 78.000000000000000000
SourceRect.Bottom = 78.000000000000000000
SourceRect.Right = 30.000000000000000000
SourceRect.Bottom = 30.000000000000000000
end>
end
item
Layers = <
item
Name = 'play'
SourceRect.Right = 78.000000000000000000
SourceRect.Bottom = 78.000000000000000000
SourceRect.Right = 30.000000000000000000
SourceRect.Bottom = 30.000000000000000000
end>
end
item
Layers = <
item
Name = 'Diagram'
SourceRect.Right = 78.000000000000000000
SourceRect.Bottom = 78.000000000000000000
SourceRect.Right = 30.000000000000000000
SourceRect.Bottom = 30.000000000000000000
end>
end
item
Layers = <
item
Name = 'TargetArrow'
SourceRect.Right = 78.000000000000000000
SourceRect.Bottom = 78.000000000000000000
SourceRect.Right = 30.000000000000000000
SourceRect.Bottom = 30.000000000000000000
end>
end
item
Layers = <
item
Name = 'Anchor'
SourceRect.Right = 78.000000000000000000
SourceRect.Bottom = 78.000000000000000000
SourceRect.Right = 64.000000000000000000
SourceRect.Bottom = 64.000000000000000000
end>
end
item
Layers = <
item
Name = 'OpenFileFolder'
SourceRect.Right = 78.000000000000000000
SourceRect.Bottom = 78.000000000000000000
SourceRect.Right = 30.000000000000000000
SourceRect.Bottom = 30.000000000000000000
end>
end
item
Layers = <
item
Name = 'Save'
SourceRect.Right = 78.000000000000000000
SourceRect.Bottom = 78.000000000000000000
SourceRect.Right = 30.000000000000000000
SourceRect.Bottom = 30.000000000000000000
end>
end
item
Layers = <
item
Name = 'Delete'
SourceRect.Right = 78.000000000000000000
SourceRect.Bottom = 78.000000000000000000
SourceRect.Right = 30.000000000000000000
SourceRect.Bottom = 30.000000000000000000
end>
end
item
Layers = <
item
Name = 'GlobeWithMeridians'
SourceRect.Right = 78.000000000000000000
SourceRect.Bottom = 78.000000000000000000
SourceRect.Right = 64.000000000000000000
SourceRect.Bottom = 64.000000000000000000
end>
end
item
Layers = <
item
Name = 'Plus'
SourceRect.Right = 78.000000000000000000
SourceRect.Bottom = 78.000000000000000000
SourceRect.Right = 64.000000000000000000
SourceRect.Bottom = 64.000000000000000000
end>
end
item
Layers = <
item
Name = 'Camera'
SourceRect.Right = 78.000000000000000000
SourceRect.Bottom = 78.000000000000000000
SourceRect.Right = 64.000000000000000000
SourceRect.Bottom = 64.000000000000000000
end>
end
item
Layers = <
item
Name = 'PaperA4'
SourceRect.Right = 78.000000000000000000
SourceRect.Bottom = 78.000000000000000000
SourceRect.Right = 30.000000000000000000
SourceRect.Bottom = 30.000000000000000000
end>
end
item
Layers = <
item
Name = 'Home'
SourceRect.Right = 78.000000000000000000
SourceRect.Bottom = 78.000000000000000000
SourceRect.Right = 30.000000000000000000
SourceRect.Bottom = 30.000000000000000000
end>
end
item
Layers = <
item
Name = 'Signpost'
SourceRect.Right = 78.000000000000000000
SourceRect.Bottom = 78.000000000000000000
SourceRect.Right = 64.000000000000000000
SourceRect.Bottom = 64.000000000000000000
end>
end
item
Layers = <
item
Name = 'Info'
SourceRect.Right = 78.000000000000000000
SourceRect.Bottom = 78.000000000000000000
SourceRect.Right = 30.000000000000000000
SourceRect.Bottom = 30.000000000000000000
end>
end
item
Layers = <
item
Name = 'Questionmark'
SourceRect.Right = 78.000000000000000000
SourceRect.Bottom = 78.000000000000000000
SourceRect.Right = 30.000000000000000000
SourceRect.Bottom = 30.000000000000000000
end>
end
item
Layers = <
item
Name = 'CopyAction'
SourceRect.Right = 78.000000000000000000
SourceRect.Bottom = 78.000000000000000000
SourceRect.Right = 30.000000000000000000
SourceRect.Bottom = 30.000000000000000000
end>
end
item
Layers = <
item
Name = 'PasteAction'
SourceRect.Right = 78.000000000000000000
SourceRect.Bottom = 78.000000000000000000
SourceRect.Right = 30.000000000000000000
SourceRect.Bottom = 30.000000000000000000
end>
end
item
Layers = <
item
Name = 'FlipHorizontally'
SourceRect.Right = 78.000000000000000000
SourceRect.Bottom = 78.000000000000000000
SourceRect.Right = 30.000000000000000000
SourceRect.Bottom = 30.000000000000000000
end>
end
item
Layers = <
item
Name = 'FlipVertically'
SourceRect.Right = 78.000000000000000000
SourceRect.Bottom = 78.000000000000000000
SourceRect.Right = 30.000000000000000000
SourceRect.Bottom = 30.000000000000000000
end>
end
item
Layers = <
item
Name = 'ThoughtEllipsis'
SourceRect.Right = 150.000000000000000000
SourceRect.Bottom = 150.000000000000000000
SourceRect.Right = 30.000000000000000000
SourceRect.Bottom = 30.000000000000000000
end>
end
item
Expand Down
Loading

0 comments on commit 68be70b

Please sign in to comment.