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

Debugger: Fixes Inspector / make sure page is visible

Browse Source 
git-svn-id: trunk@41300 -
This commit is contained in:
martin 2013-05-19 16:09:23 +00:00
parent f5d0737bb5
commit b58cb7c0dd
1 changed files with 15 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
debugger/inspectdlg.pas
View File

@ -179,6 +179,9 @@ begin
DataPage.TabVisible:=true; DataPage.TabVisible:=true;
PropertiesPage.TabVisible:=false; PropertiesPage.TabVisible:=false;
MethodsPage.TabVisible:=true; MethodsPage.TabVisible:=true;
if not (PageControl.ActivePage = MethodsPage) then
PageControl.ActivePage := DataPage;
if not Assigned(FDBGInfo) then exit; if not Assigned(FDBGInfo) then exit;
if not Assigned(FDBGInfo.Fields) then exit; if not Assigned(FDBGInfo.Fields) then exit;
@ -198,6 +201,8 @@ begin
DataPage.TabVisible:=true; DataPage.TabVisible:=true;
PropertiesPage.TabVisible:=false; PropertiesPage.TabVisible:=false;
MethodsPage.TabVisible:=false; MethodsPage.TabVisible:=false;
PageControl.ActivePage := DataPage;
if not Assigned(FDBGInfo) then exit; if not Assigned(FDBGInfo) then exit;
StatusBar1.SimpleText:=FExpression+' : Variant'; StatusBar1.SimpleText:=FExpression+' : Variant';
GridDataSetup; GridDataSetup;
@ -212,6 +217,7 @@ begin
DataPage.TabVisible:=true; DataPage.TabVisible:=true;
PropertiesPage.TabVisible:=false; PropertiesPage.TabVisible:=false;
MethodsPage.TabVisible:=false; MethodsPage.TabVisible:=false;
PageControl.ActivePage := DataPage;
if not Assigned(FDBGInfo) then exit; if not Assigned(FDBGInfo) then exit;
if not Assigned(FDBGInfo.Fields) then exit; if not Assigned(FDBGInfo.Fields) then exit;
@ -226,6 +232,8 @@ begin
DataPage.TabVisible:=true; DataPage.TabVisible:=true;
PropertiesPage.TabVisible:=false; PropertiesPage.TabVisible:=false;
MethodsPage.TabVisible:=false; MethodsPage.TabVisible:=false;
PageControl.ActivePage := DataPage;
if not Assigned(FDBGInfo) then exit; if not Assigned(FDBGInfo) then exit;
StatusBar1.SimpleText:=FExpression+' : '+FDBGInfo.TypeName + ' = ' + FDBGInfo.Value.AsString; StatusBar1.SimpleText:=FExpression+' : '+FDBGInfo.TypeName + ' = ' + FDBGInfo.Value.AsString;
GridDataSetup; GridDataSetup;
@ -240,6 +248,8 @@ begin
DataPage.TabVisible:=true; DataPage.TabVisible:=true;
PropertiesPage.TabVisible:=false; PropertiesPage.TabVisible:=false;
MethodsPage.TabVisible:=false; MethodsPage.TabVisible:=false;
PageControl.ActivePage := DataPage;
if not Assigned(FDBGInfo) then exit; if not Assigned(FDBGInfo) then exit;
StatusBar1.SimpleText:=FExpression+' : '+FDBGInfo.TypeName + ' = ' + FDBGInfo.Value.AsString; StatusBar1.SimpleText:=FExpression+' : '+FDBGInfo.TypeName + ' = ' + FDBGInfo.Value.AsString;
GridDataSetup; GridDataSetup;
@ -257,6 +267,8 @@ begin
DataPage.TabVisible:=true; DataPage.TabVisible:=true;
PropertiesPage.TabVisible:=false; PropertiesPage.TabVisible:=false;
MethodsPage.TabVisible:=false; MethodsPage.TabVisible:=false;
PageControl.ActivePage := DataPage;
if not Assigned(FDBGInfo) then exit; if not Assigned(FDBGInfo) then exit;
StatusBar1.SimpleText:=FExpression+' : '+FDBGInfo.TypeName + ' = ' + FDBGInfo.Value.AsString; StatusBar1.SimpleText:=FExpression+' : '+FDBGInfo.TypeName + ' = ' + FDBGInfo.Value.AsString;
GridDataSetup; GridDataSetup;
@ -274,6 +286,8 @@ begin
DataPage.TabVisible:=true; DataPage.TabVisible:=true;
PropertiesPage.TabVisible:=false; PropertiesPage.TabVisible:=false;
MethodsPage.TabVisible:=false; MethodsPage.TabVisible:=false;
PageControl.ActivePage := DataPage;
if not Assigned(FDBGInfo) then exit; if not Assigned(FDBGInfo) then exit;
StatusBar1.SimpleText:=FExpression+' : '+FDBGInfo.TypeName + ' = ' + FDBGInfo.Value.AsString; StatusBar1.SimpleText:=FExpression+' : '+FDBGInfo.TypeName + ' = ' + FDBGInfo.Value.AsString;
GridDataSetup; GridDataSetup;
@ -352,7 +366,7 @@ begin
k:=0; k:=0;
for j := 0 to FDBGInfo.Fields.Count-1 do begin for j := 0 to FDBGInfo.Fields.Count-1 do begin
case FDBGInfo.Fields[j].DBGType.Kind of case FDBGInfo.Fields[j].DBGType.Kind of
skSimple,skRecord,skPointer: inc(k); skSimple,skRecord,skVariant,skPointer: inc(k);
end; end;
end; end;
k:=k+1; k:=k+1;