paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-14 22:32:59 +02:00
Code Issues Packages Projects Releases Wiki Activity

ide: update enabled state for source editor clipboard menu items

Browse Source 
git-svn-id: trunk@22032 -
This commit is contained in:
paul 2009-10-05 02:42:48 +00:00
parent 46991b595d
commit 32e67c21ce
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
ide/sourceeditor.pp
View File

@ -4397,6 +4397,11 @@ begin
end; end;
EditorComp:=ASrcEdit.EditorComponent; EditorComp:=ASrcEdit.EditorComponent;
// Clipboard
SrcEditMenuCut.Enabled := ASrcEdit.SelectionAvailable and not ASrcEdit.ReadOnly;
SrcEditMenuCopy.Enabled := ASrcEdit.SelectionAvailable;
SrcEditMenuPaste.Enabled := not ASrcEdit.ReadOnly;
// Readonly, ShowLineNumbers // Readonly, ShowLineNumbers
SrcEditMenuReadOnly.MenuItem.Checked:=ASrcEdit.ReadOnly; SrcEditMenuReadOnly.MenuItem.Checked:=ASrcEdit.ReadOnly;
SrcEditMenuShowLineNumbers.MenuItem.Checked := SrcEditMenuShowLineNumbers.MenuItem.Checked :=