From 69d4b38683d81316daaa7786f7297f6547e18cf0 Mon Sep 17 00:00:00 2001
From: laurent <laurent@lazarus-ide.org>
Date: Sun, 30 Mar 2008 21:39:35 +0000
Subject: [PATCH] Resources String for CallStack and debug Output Dialog

git-svn-id: trunk@14689 -
---
 debugger/callstackdlg.pp    | 34 +++++++++++++++++++++++++---------
 debugger/dbgoutputform.pp   |  2 ++
 ide/lazarusidestrconsts.pas | 11 +++++++++++
 3 files changed, 38 insertions(+), 9 deletions(-)

diff --git a/debugger/callstackdlg.pp b/debugger/callstackdlg.pp
index 8c759e50fe..2744d36605 100644
--- a/debugger/callstackdlg.pp
+++ b/debugger/callstackdlg.pp
@@ -55,9 +55,9 @@ type
     actSetCurrent: TAction;
     actShow: TAction;
     ImageList1: TImageList;
-    ToolButton10: TToolButton;
-    ToolButton11: TToolButton;
-    ToolButton3: TToolButton;
+    ToolButtonTop: TToolButton;
+    ToolButtonBottom: TToolButton;
+    ToolButtonCopyAll: TToolButton;
     ToolButton8: TToolButton;
     ToolButton9: TToolButton;
     txtGoto: TEdit;
@@ -73,12 +73,12 @@ type
     mnuPopup: TPopupMenu;
     mnuLimit: TPopupMenu;
     ToolBar1: TToolBar;
-    ToolButton1: TToolButton;
-    ToolButton2: TToolButton;
+    ToolButtonShow: TToolButton;
+    ToolButtonCurrent: TToolButton;
     ToolButton4: TToolButton;
-    ToolButton5: TToolButton;
-    ToolButton6: TToolButton;
-    ToolButton7: TToolButton;
+    ToolButtonMore: TToolButton;
+    ToolButtonMax: TToolButton;
+    ToolButtonGoto: TToolButton;
     procedure actViewBottomExecute(Sender: TObject);
     procedure actViewGotoExecute(Sender: TObject);
     procedure actViewMoreExecute(Sender: TObject);
@@ -124,11 +124,13 @@ type
 implementation
 
 uses
-  BaseDebugManager, LCLProc;
+  BaseDebugManager, LCLProc, LazarusIDEStrConsts;
 
 { TCallStackDlg }
 
 constructor TCallStackDlg.Create(AOwner: TComponent);
+var
+  i: integer;
 begin
   inherited Create(AOwner);
   FCallStackNotification := TIDECallStackNotification.Create;
@@ -140,6 +142,20 @@ begin
   FViewStart := 0;
   actViewLimit.Caption := popLimit10.Caption;
   InitImageList;
+  Caption:= lisMenuViewCallStack;
+  ToolButtonShow.Caption:= lisShow;
+  ToolButtonCurrent:= lisCurrent;
+  for i:= 0 to mnuLimit.Items.Count-1 do
+    mnuLimit.Items[i].Caption:= Format(lisMaxS, [mnuLimit.Items[i].Tag]);
+  ToolButtonMore:= lisMore;
+  ToolButtonTop:= lisTop;
+  ToolButtonBottom:= lisBottom;
+  ToolButtonGoto:= lisToDoGoto;
+  ToolButtonCopyAll:= lisCopyAll;
+  lvCallStack.Column[1].Caption:= lisIndex;
+  lvCallStack.Column[2].Caption:= lisCEOModeSource;
+  lvCallStack.Column[3].Caption:= lisToDoLLine;
+  lvCallStack.Column[4].Caption:= lisFunction;
 end;
 
 procedure TCallStackDlg.CallStackChanged(Sender: TObject);
diff --git a/debugger/dbgoutputform.pp b/debugger/dbgoutputform.pp
index bc7fe16514..151731b2e0 100644
--- a/debugger/dbgoutputform.pp
+++ b/debugger/dbgoutputform.pp
@@ -56,6 +56,7 @@ type
   end;
 
 implementation
+uses LazarusIDEStrConsts;
 
 procedure TDbgOutputForm.AddText(const AText: String);
 begin
@@ -86,6 +87,7 @@ end;
 procedure TDbgOutputForm.FormCreate(Sender: TObject);
 begin
   txtOutput.Lines.Clear;
+  Caption:= lisMenuViewDebugOutput;
 end;
 
 procedure TDbgOutputForm.Loaded;
diff --git a/ide/lazarusidestrconsts.pas b/ide/lazarusidestrconsts.pas
index 00af92f403..4d8d87a12c 100644
--- a/ide/lazarusidestrconsts.pas
+++ b/ide/lazarusidestrconsts.pas
@@ -3670,6 +3670,17 @@ resourcestring
   lisOpenFile2 = 'Open File ...';
   lisMovePage = 'Move Page ...';
   lisFileSettings = 'File Settings ...';
+
+  // Call Stack Dialog
+  lisShow = 'Show';
+  lisCurrent = 'Current';
+  lisMaxS = 'Max %d';
+  lisMore = 'More';
+  lisTop = 'Top';
+  lisBottom = 'Bottom';
+  lisCopyAll = 'Copy All';
+  lisIndex = 'Index';
+  lisFunction = 'Function';
   
 
 implementation