diff options
| -rw-r--r-- | docview/components/richtext/RichTextView.pas | 22 |
1 files changed, 13 insertions, 9 deletions
diff --git a/docview/components/richtext/RichTextView.pas b/docview/components/richtext/RichTextView.pas index 9d5f4b76..4c63f013 100644 --- a/docview/components/richtext/RichTextView.pas +++ b/docview/components/richtext/RichTextView.pas @@ -364,7 +364,7 @@ Type function LinkFromIndex( const CharIndexToFind: longint): string; - Published + published property Align; property BackgroundColor default clBoxColor; //property ParentColor; @@ -544,16 +544,20 @@ begin FDefaultMenu := TfpgPopupMenu.Create(nil); FDefaultMenu.OnShow := @DefaultMenuPopup; - FSelectAllMI := FDefaultMenu.AddMenuItem('Select &All', '', @SelectAllMIClick); + with FDefaultMenu do + begin + FSelectAllMI := AddMenuItem('Select &All', '', @SelectAllMIClick); + FCopyMI := AddMenuItem('&Copy', '', @CopyMIClick); + AddMenuItem('-', '', nil); + FRefreshMI := AddMenuItem('&Refresh', '', @RefreshMIClick); + AddMenuItem('-', '', nil); + FSmoothScrollMI := AddMenuItem('&Smooth Scrolling', '', @SmoothScrollMIClick); + FWordWrapMI := AddMenuItem('&Word Wrap', '', @WordWrapMIClick); + FDebugMI := AddMenuItem('&Debug', '', @DebugMIClick); + end; + FSelectAllMI.Enabled := False; // TODO: implement me - FCopyMI := FDefaultMenu.AddMenuItem('&Copy', '', @CopyMIClick); FCopyMI.Enabled := False; // TODO: implement me - FDefaultMenu.AddMenuItem('-', '', nil); - FRefreshMI := FDefaultMenu.AddMenuItem('&Refresh', '', @RefreshMIClick); - FDefaultMenu.AddMenuItem('-', '', nil); - FSmoothScrollMI := FDefaultMenu.AddMenuItem('&Smooth Scrolling', '', @SmoothScrollMIClick); - FWordWrapMI := FDefaultMenu.AddMenuItem('&Word Wrap', '', @WordWrapMIClick); - FDebugMI := FDefaultMenu.AddMenuItem('&Debug', '', @DebugMIClick); end; Procedure TRichTextView.SelectAllMIClick( Sender: TObject ); |