paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-18 09:08:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

started loading/saving breakpoints

Browse Source 
git-svn-id: trunk@3086 -
This commit is contained in:
mattias 2002-08-18 08:57:33 +00:00
parent 0bff9f505f
commit 9aa716cf88
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
ide/uniteditor.pp
View File

@ -939,6 +939,16 @@ begin
TSourceNotebook(FaOwner).AddJumpPointClicked(Self); TSourceNotebook(FaOwner).AddJumpPointClicked(Self);
end; end;
ecCopy:
begin
if (not FEditor.SelAvail) then begin
// nothing selected
if EditorOpts.CopyWordAtCursorOnCopyNone then begin
FEditor.SetSelWord;
end;
end;
end;
else else
if (CurCompletionControl<>nil) if (CurCompletionControl<>nil)
and (not (AChar in ['a'..'z','A'..'Z','0'..'9',#128..#255])) then begin and (not (AChar in ['a'..'z','A'..'Z','0'..'9',#128..#255])) then begin