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

ide: tooltip evaluation: if codetools can't evaluate full expression then use identifier

Browse Source 
git-svn-id: trunk@21944 -
This commit is contained in:
paul 2009-10-01 13:08:14 +00:00
parent 880b4f97b6
commit 351a3caead
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ide/main.pp
View File

@ -13543,10 +13543,10 @@ begin
if Identifier = '' then Exit; if Identifier = '' then Exit;
if SrcEdit.SelectionAvailable and SrcEdit.CaretInSelection(CaretPos) then if SrcEdit.SelectionAvailable and SrcEdit.CaretInSelection(CaretPos) then
Expression := SrcEdit.GetText(True) Expression := SrcEdit.GetText(True)
else begin else
if not CodeToolBoss.ExtractOperand(SrcEdit.CodeBuffer, if not CodeToolBoss.ExtractOperand(SrcEdit.CodeBuffer,
CaretPos.X,CaretPos.Y,Expression,false) then exit; CaretPos.X,CaretPos.Y,Expression,false) then
end; Expression := Identifier;
//DebugLn(['TMainIDE.OnSrcNotebookShowHintForSource Expr="',Expression,'"']); //DebugLn(['TMainIDE.OnSrcNotebookShowHintForSource Expr="',Expression,'"']);
if not DebugBoss.Evaluate(Expression, DebugEval) or (DebugEval = '') then if not DebugBoss.Evaluate(Expression, DebugEval) or (DebugEval = '') then
DebugEval := '???'; DebugEval := '???';