diff options
| author | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2010-08-26 10:44:52 +0200 |
|---|---|---|
| committer | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2010-08-26 10:44:52 +0200 |
| commit | 56e14fe251b183c6f71d67191445a2aa1b2a7d32 (patch) | |
| tree | 4aaeb4e47290f9a4be31768a5eb296d6af3e62f5 /docview | |
| parent | 3d124609e32b5873d71a4aa27a4342649ebd3522 (diff) | |
| download | fpGUI-56e14fe251b183c6f71d67191445a2aa1b2a7d32.tar.xz | |
richview: disabled clipboard items in popup menu for now.
* This causes the app using Richview to freeze. :-/
Diffstat (limited to 'docview')
| -rw-r--r-- | docview/components/richtext/RichTextView.pas | 13 |
1 files changed, 6 insertions, 7 deletions
diff --git a/docview/components/richtext/RichTextView.pas b/docview/components/richtext/RichTextView.pas index ec1af338..49ea97c4 100644 --- a/docview/components/richtext/RichTextView.pas +++ b/docview/components/richtext/RichTextView.pas @@ -516,16 +516,12 @@ begin FSelectionEnd := -1; FSelectionStart := -1; - - // clear display of selection - { TODO -oGraeme : Draw must not be called here } -// Draw( StartLine, EndLine ); - Canvas.SetClipRect(OldClip); end; FSelectionEnd := -1; FSelectionStart := -1; + Repaint; end; Function TRichTextView.GetTextEnd: longint; @@ -539,7 +535,9 @@ begin FDefaultMenu.OnShow := @DefaultMenuPopup; FSelectAllMI := FDefaultMenu.AddMenuItem('Select &All', '', @SelectAllMIClick); + 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); @@ -2405,8 +2403,9 @@ end; Procedure TRichTextView.SelectAll; begin ClearSelection; - SelectionStart := FLayout.GetCharIndex( FText ); - SelectionEnd := FLayout.GetTextEnd; + FSelectionStart := FLayout.GetCharIndex( FText ); + FSelectionEnd := FLayout.GetTextEnd; + Repaint; end; (* |