Debug Inspector: improved localization

git-svn-id: trunk@43925 -

debugger/inspectdlg.lfm

@@ -1,4 +1,4 @@
-inherited IDEInspectDlg: TIDEInspectDlg
+object IDEInspectDlg: TIDEInspectDlg
   Left = 423
   Height = 406
   Top = 139
@@ -13,17 +13,18 @@ inherited IDEInspectDlg: TIDEInspectDlg
   OnClose = FormClose
   OnCreate = FormCreate
   OnKeyDown = FormKeyDown
-  object StatusBar1: TStatusBar[0]
+  LCLVersion = '1.3'
+  object StatusBar1: TStatusBar
     Left = 0
     Height = 23
     Top = 383
     Width = 295
     Panels = <>
   end
-  object PageControl: TPageControl[1]
+  object PageControl: TPageControl
     Left = 0
-    Height = 334
+    Height = 336
-    Top = 49
+    Top = 47
     Width = 295
     ActivePage = DataPage
     Align = alClient
@@ -41,23 +42,23 @@ inherited IDEInspectDlg: TIDEInspectDlg
       Caption = 'MethodsPage'
     end
   end
-  object EdInspect: TComboBox[2]
+  object EdInspect: TComboBox
     Left = 0
-    Height = 23
+    Height = 21
     Top = 0
     Width = 295
     Align = alTop
-    ItemHeight = 15
+    ItemHeight = 13
     OnEditingDone = EdInspectEditingDone
     OnKeyDown = EdInspectKeyDown
     TabOrder = 2
     Text = '(...)'
   end
-  object ToolBar1: TToolBar[3]
+  object ToolBar1: TToolBar
     AnchorSideTop.Control = EdInspect
     Left = 0
     Height = 26
-    Top = 23
+    Top = 21
     Width = 295
     Caption = 'ToolBar1'
     ShowCaptions = True
@@ -69,41 +70,49 @@ inherited IDEInspectDlg: TIDEInspectDlg
       AllowAllUp = True
       Caption = 'Instance'
       OnClick = btnUseInstanceClick
+      ParentShowHint = False
+      ShowHint = True
       Style = tbsCheck
     end
     object ToolButton2: TToolButton
-      Left = 106
+      Left = 104
       Top = 2
       Width = 5
       Caption = 'ToolButton2'
       Style = tbsDivider
     end
     object btnColClass: TToolButton
-      Left = 111
+      Left = 109
       Hint = 'Show Class Column'
       Top = 2
       AllowAllUp = True
       Caption = 'C'
       Down = True
       OnClick = btnColClassClick
+      ParentShowHint = False
+      ShowHint = True
       Style = tbsCheck
     end
     object btnColType: TToolButton
-      Left = 134
+      Left = 132
       Top = 2
       AllowAllUp = True
       Caption = 'T'
       Down = True
       OnClick = btnColClassClick
+      ParentShowHint = False
+      ShowHint = True
       Style = tbsCheck
     end
     object btnColVisibility: TToolButton
-      Left = 157
+      Left = 155
       Top = 2
       AllowAllUp = True
       Caption = 'V'
       Down = True
       OnClick = btnColClassClick
+      ParentShowHint = False
+      ShowHint = True
       Style = tbsCheck
     end
     object btnBackward: TToolButton

debugger/inspectdlg.pas

@@ -313,7 +313,8 @@ begin
 
   if not Assigned(FDBGInfo) then exit;
   if not Assigned(FDBGInfo.Fields) then exit;
-  StatusBar1.SimpleText:=FExpression+' : Class '+FDBGInfo.TypeName+' inherits from '+FDBGInfo.Ancestor;
+  StatusBar1.SimpleText:=Format(lisInspectClassInherit, [FExpression, FDBGInfo.
+    TypeName, FDBGInfo.Ancestor]);
   GridDataSetup;
   ShowDataFields;
   //FGridData.AutoSizeColumn(1);
@@ -486,7 +487,8 @@ begin
   GridDataSetup;
   FGridData.Cells[1,1]:=FExpression;
   if (FDBGInfo.TypeName <> '') and (FDBGInfo.TypeName[1] = '^')
-  then FGridData.Cells[2,1]:='Pointer to '+copy(FDBGInfo.TypeName, 2, length(FDBGInfo.TypeName))
+  then FGridData.Cells[2, 1]:=Format(lisInspectPointerTo, [copy(FDBGInfo.
+    TypeName, 2, length(FDBGInfo.TypeName))])
   else FGridData.Cells[2,1]:=FDBGInfo.TypeName;
   {$PUSH}{$RANGECHECKS OFF}
   FGridData.Cells[3,1]:=format('$%x',[PtrUInt(FDBGInfo.Value.AsPointer)]);
@@ -518,11 +520,11 @@ begin
       //Cols[3].Text:='Value';
       //Cols[4].Text:='Visibility';
       Color:=clBtnFace;
-      Columns.Add.Title.Caption:='Class';
+      Columns.Add.Title.Caption:=lisColClass;
-      Columns.Add.Title.Caption:='Name';
+      Columns.Add.Title.Caption:=lisName;
-      Columns.Add.Title.Caption:='Type';
+      Columns.Add.Title.Caption:=dlgEnvType;
-      Columns.Add.Title.Caption:='Value';
+      Columns.Add.Title.Caption:=lisValue;
-      Columns.Add.Title.Caption:='Visibility';
+      Columns.Add.Title.Caption:=lisColVisibility;
     end;
   FGridData.RowCount:=1;
   FGridData.RowCount:=2;
@@ -548,10 +550,10 @@ begin
       FixedRows:=1;
       FixedCols:=0;
       ColCount:=4;
-      Cols[0].Text:='Name';
+      Cols[0].Text:=lisName;
-      Cols[1].Text:='Type';
+      Cols[1].Text:=dlgEnvType;
-      Cols[2].Text:='Returns';
+      Cols[2].Text:=lisColReturns;
-      Cols[3].Text:='Address';
+      Cols[3].Text:=lisColAddress;
       Color:=clBtnFace;
     end;
   FGridMethods.RowCount:=1;
@@ -875,7 +877,7 @@ begin
     begin
       FreeAndNil(FDBGInfo);
       Clear;
-      StatusBar1.SimpleText:=FExpression + ' : unavailable';
+      StatusBar1.SimpleText:=Format(lisInspectUnavailable, [FExpression]);
       Exit;
     end;
     case FDBGInfo.Kind of

ide/lazarusidestrconsts.pas

@@ -459,6 +459,13 @@ resourcestring
   lisInspectShowColClass = 'Show class column';
   lisInspectShowColType = 'Show type column';
   lisInspectShowColVisibility = 'Show visibility column';
+  lisInspectClassInherit = '%s : Class %s inherits from %s';
+  lisInspectUnavailable = '%s : unavailable';
+  lisInspectPointerTo = 'Pointer to %s';
+  lisColClass = 'Class';
+  lisColVisibility = 'Visibility';
+  lisColReturns = 'Returns';
+  lisColAddress = 'Address';
 
   lisMenuNewPackage = 'New Package ...';
   lisMenuOpenPackage = 'Open Loaded Package ...';