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

ide: on Evaluate command use selection if available and use word at caret instead (as now)

Browse Source 
git-svn-id: trunk@19128 -
This commit is contained in:
paul 2009-03-27 03:53:55 +00:00
parent d7fef7831e
commit c770cd7d3b
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ide/debugmanager.pas
View File

@ -1606,8 +1606,10 @@ begin
end;
if (CurDialog is tEvaluateDlg) and (sourceNotebook<>nil)
then begin
tEvaluateDlg(CurDialog).FindText:=
SourceNotebook.GetActiveSE.GetWordAtCurrentCaret;
if SourceNotebook.GetActiveSE.SelectionAvailable then
TEvaluateDlg(CurDialog).FindText := SourceNotebook.GetActiveSE.Selection
else
TEvaluateDlg(CurDialog).FindText := SourceNotebook.GetActiveSE.GetWordAtCurrentCaret;
end;
FDialogs[ADialogType].Show;
end;