From 11bc52823dca1cd5121be21d14c5eed85db6f8b6 Mon Sep 17 00:00:00 2001 From: Graeme Geldenhuys Date: Mon, 29 Aug 2011 11:45:32 +0200 Subject: richview: neatened up the CreateDefaultMenu() method. The code is more human readable now. --- docview/components/richtext/RichTextView.pas | 22 +++++++++++++--------- 1 file changed, 13 insertions(+), 9 deletions(-) (limited to 'docview/components/richtext') 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 ); -- cgit v1.2.3-70-g09d2