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

DBG: Fix updating Inspect dialog, if triggered via source-editor (pop-up menu)

Browse Source 
git-svn-id: trunk@39290 -
This commit is contained in:
martin 2012-11-16 15:43:16 +00:00
parent 19c0f84bd2
commit a99a932801
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
ide/debugmanager.pas
View File

@ -1410,6 +1410,13 @@ begin
then begin then begin
TAssemblerDlg(CurDialog).SetLocation(FDebugger, FCurrentLocation.Address); TAssemblerDlg(CurDialog).SetLocation(FDebugger, FCurrentLocation.Address);
end; end;
if (CurDialog is TIDEInspectDlg) and (SourceEditorManager.GetActiveSE <> nil)
then begin
if SourceEditorManager.GetActiveSE.SelectionAvailable then
TIDEInspectDlg(CurDialog).Execute(SourceEditorManager.GetActiveSE.Selection)
else
TIDEInspectDlg(CurDialog).Execute(SourceEditorManager.GetActiveSE.GetOperandAtCurrentCaret);
end;
end; end;
if not DoDisableAutoSizing then if not DoDisableAutoSizing then
CurDialog.EnableAutoSizing; CurDialog.EnableAutoSizing;