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

MG: added smart hints in debug mode

Browse Source 
git-svn-id: trunk@2838 -
This commit is contained in:
lazarus 2002-08-18 08:54:44 +00:00
parent edafb530e1
commit d351332644
1 changed files with 13 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
ide/main.pp
View File

@ -6729,8 +6729,10 @@ var
ActiveSrcEdit: TSourceEditor;
ActiveUnitInfo: TUnitInfo;
Identifier, SmartHintStr: string;
DebugEval: string;
begin
if (ToolStatus<>itNone) or (SrcEdit=nil) then exit;
if (SrcEdit=nil) then exit;
if (ToolStatus<>itNone) and (ToolStatus<>itDebugger) then exit;
// check if there is an identifier
Identifier:=SrcEdit.GetWordFromCaret(CaretPos);
if (Identifier='') or (not IsValidIdent(Identifier)) then exit;
@ -6748,6 +6750,13 @@ begin
CodeToolBoss.Abortable:=false;
{$IFDEF IDE_MEM_CHECK}CheckHeapWrtMemCnt('TMainIDE.OnSrcNotebookShowHintForSource B');{$ENDIF}
if (ToolStatus=itDebugger)
and (dcEvaluate in DebugBoss.Commands) then begin
DebugBoss.Evaluate(Identifier,DebugEval);
if (DebugEval<>'') then
SmartHintStr:=SmartHintStr+' = '+DebugEval;
end;
if SmartHintStr<>'' then
SrcEdit.ActivateHint(ClientPos,SmartHintStr);
end;
@ -7484,6 +7493,9 @@ end.
{ =============================================================================
$Log$
Revision 1.429 2002/11/10 22:02:35 lazarus
MG: added smart hints in debug mode
Revision 1.428 2002/11/10 21:49:23 lazarus
MG: added smart hints in edit mode