ide: windows

- use translations for captions of Evaluate/Modify, Assebler dialogs
  - remove 'View' word from more items which are in the View menu

git-svn-id: trunk@19407 -

debugger/assemblerdlg.pp

@@ -66,6 +66,8 @@ type
   end;
 
 implementation
+uses
+  LazarusIDEStrConsts;
 
 { TAssemblerDlg }
 
@@ -93,6 +95,7 @@ begin
 
   pbAsm.Font.Name := EditorOpts.EditorFont;
   pbAsm.Font.Height := EditorOpts.EditorFontHeight;
+  Caption := lisMenuViewAssembler;
 end;
 
 destructor TAssemblerDlg.Destroy;

debugger/evaluatedlg.pp

@@ -77,7 +77,7 @@ type
 
 implementation
 uses
-  IDEImagesIntf;
+  IDEImagesIntf, LazarusIDEStrConsts;
 
 { TEvaluateDlg }
 
@@ -85,6 +85,7 @@ constructor TEvaluateDlg.Create(TheOwner:TComponent);
 begin
   inherited Create(TheOwner);
 
+  Caption := lisKMEvaluateModify;
   IDEDialogLayoutList.ApplyLayout(Self, 400, 290);
   cmbExpression.Items.Assign(InputHistories.HistoryLists.GetList(ClassName, True));
 

ide/clipboardhistory.pas

@@ -41,7 +41,7 @@ interface
 
 uses
   Classes, SysUtils, Forms, Controls, Buttons, SynEdit, EditorOptions, StdCtrls,
-  IDEOptionDefs, Math, EnvironmentOpts, ClipBrd;
+  IDEOptionDefs, Math, EnvironmentOpts, ClipBrd, LazarusIDEStrConsts;
   
 type
   TClipBoardHistory = class(TForm)

ide/frames/window_options.lfm

@@ -4,8 +4,8 @@ inherited WindowOptionsFrame: TWindowOptionsFrame
   ClientHeight = 396
   ClientWidth = 463
   Visible = False
-  DesignLeft = 176
+  DesignLeft = 154
-  DesignTop = 232
+  DesignTop = 203
   object MinimizeAllOnMinimizeMainCheckBox: TCheckBox[0]
     AnchorSideLeft.Control = Owner
     AnchorSideTop.Control = Owner

ide/frames/window_options.lrs

@@ -3,7 +3,7 @@
 LazarusResources.Add('TWindowOptionsFrame','FORMDATA',[
   'TPF0'#241#19'TWindowOptionsFrame'#18'WindowOptionsFrame'#6'Height'#3#140#1#5
   +'Width'#3#207#1#12'ClientHeight'#3#140#1#11'ClientWidth'#3#207#1#7'Visible'#8
-  +#10'DesignLeft'#3#176#0#9'DesignTop'#3#232#0#0#242#2#0#9'TCheckBox!MinimizeA'
+  +#10'DesignLeft'#3#154#0#9'DesignTop'#3#203#0#0#242#2#0#9'TCheckBox!MinimizeA'
   +'llOnMinimizeMainCheckBox'#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSi'
   +'deTop.Control'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2
   +#0#6'Height'#2#17#3'Top'#2#0#5'Width'#3#195#0#7'Caption'#6'!MinimizeAllOnMin'

ide/frames/window_options.pas

@@ -149,7 +149,19 @@ begin
     nmiwPkgGraphExplorer: Result := lisMenuPackageGraph;
     nmiwProjectInspector: Result := lisMenuProjectInspector;
     nmiwUnitDependenciesName: Result := dlgUnitDepCaption;
+    nmiwDbgOutput: Result := lisMenuViewDebugOutput;
+    nmiwBreakPoints: Result := lisMenuViewBreakPoints;
+    nmiwWatches: Result := liswlWatchList;
+    nmiwLocals: Result := lisLocals;
+    nmiwCallStack: Result := lisMenuViewCallStack;
+    nmiwEvaluate: Result := lisKMEvaluateModify;
+    nmiwRegisters: Result := lisRegisters;
+    nmiwAssembler: Result := lisMenuViewAssembler;
+    nmiwSearchResultsViewName: Result := lisMenuViewSearchResults;
     nmiwAnchorEditor: Result := lisMenuViewAnchorEditor;
+    nmiwCodeBrowser: Result := lisCodeBrowser;
+    nmiwIssueBrowser: Result := lisMenuViewRestrictionBrowser;
+    nmiwJumpHistory: Result := lisMenuViewJumpHistory;
   else
     Result := NonModalIDEWindowNames[AWindow];
   end;

ide/lazarusidestrconsts.pas

@@ -241,7 +241,7 @@ resourcestring
   lisMenuJumpBack = 'Jump back';
   lisMenuJumpForward = 'Jump forward';
   lisMenuAddJumpPointToHistory = 'Add jump point to history';
-  lisMenuViewJumpHistory = 'View Jump-History ...';
+  lisMenuViewJumpHistory = 'Jump-History ...';
   lisMenuFindBlockOtherEndOfCodeBlock = 'Find other end of code block';
   lisMenuFindCodeBlockStart = 'Find code block start';
   lisMenuFindDeclarationAtCursor = 'Find Declaration at cursor';
@@ -262,9 +262,9 @@ resourcestring
   lisMenuJumpTo = 'Jump to';
   lisMenuViewUnits = 'Units...';
   lisMenuViewForms = 'Forms...';
-  lisMenuViewUnitDependencies = 'View Unit Dependencies';
+  lisMenuViewUnitDependencies = 'Unit Dependencies';
   lisKMViewUnitInfo = 'View Unit Info';
-  lisMenuViewUnitInfo = 'View Unit Information';
+  lisMenuViewUnitInfo = 'Unit Information';
   lisMenuViewToggleFormUnit = 'Toggle form/unit view';
   lisMenuViewMessages = 'Messages';
   lisCopySelectedMessagesToClipboard = 'Copy selected messages to clipboard';