paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 12:59:12 +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; end;
if (CurDialog is tEvaluateDlg) and (sourceNotebook<>nil) if (CurDialog is tEvaluateDlg) and (sourceNotebook<>nil)
then begin then begin
tEvaluateDlg(CurDialog).FindText:= if SourceNotebook.GetActiveSE.SelectionAvailable then
SourceNotebook.GetActiveSE.GetWordAtCurrentCaret; TEvaluateDlg(CurDialog).FindText := SourceNotebook.GetActiveSE.Selection
else
TEvaluateDlg(CurDialog).FindText := SourceNotebook.GetActiveSE.GetWordAtCurrentCaret;
end; end;
FDialogs[ADialogType].Show; FDialogs[ADialogType].Show;
end; end;