paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-07 15:18:51 +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

@ -938,6 +938,16 @@ begin
if FaOwner<>nil then if FaOwner<>nil then
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)