paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-17 05:20:48 +01:00
Code Issues Packages Projects Releases Wiki Activity

IDE, Debugger: improved caption for debug dialogs

Browse Source 
git-svn-id: trunk@57249 -
This commit is contained in:
martin 2018-02-04 01:26:04 +00:00
parent 614dc4a2a3
commit 78adab6417
2 changed files with 17 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
debugger/pseudoterminaldlg.pp
View File

@ -5,8 +5,8 @@ unit PseudoTerminalDlg;
interface interface
uses uses
IDEWindowIntf, IDEWindowIntf, Classes,
Forms, StdCtrls, DebuggerDlg, BaseDebugManager, LCLType; Forms, StdCtrls, DebuggerDlg, BaseDebugManager, LazarusIDEStrConsts, LCLType;
type type
@ -21,6 +21,7 @@ type
procedure DoClose(var CloseAction: TCloseAction); override; procedure DoClose(var CloseAction: TCloseAction); override;
public public
{ public declarations } { public declarations }
constructor Create(TheOwner: TComponent); override;
procedure AddOutput(const AText: String); procedure AddOutput(const AText: String);
procedure Clear; procedure Clear;
end; end;
@ -48,6 +49,12 @@ begin
CloseAction := caHide; CloseAction := caHide;
end; end;
constructor TPseudoConsoleDlg.Create(TheOwner: TComponent);
begin
inherited Create(TheOwner);
Caption:= lisDbgTerminal;
end;
procedure TPseudoConsoleDlg.AddOutput(const AText: String); procedure TPseudoConsoleDlg.AddOutput(const AText: String);
begin begin
Memo1.Text:=Memo1.Text+AText; Memo1.Text:=Memo1.Text+AText;

13
ide/lazarusidestrconsts.pas
View File

@ -462,7 +462,7 @@ resourcestring
lisMenuViewWatches = 'Watches'; lisMenuViewWatches = 'Watches';
lisMenuViewBreakPoints = 'BreakPoints'; lisMenuViewBreakPoints = 'BreakPoints';
lisMenuViewLocalVariables = 'Local Variables'; lisMenuViewLocalVariables = 'Local Variables';
lisMenuViewPseudoTerminal = 'Terminal Output'; lisMenuViewPseudoTerminal = 'Console In/Output';
lisMenuViewRegisters = 'Registers'; lisMenuViewRegisters = 'Registers';
lisMenuViewCallStack = 'Call Stack'; lisMenuViewCallStack = 'Call Stack';
lisMenuViewThreads = 'Threads'; lisMenuViewThreads = 'Threads';
@ -3194,7 +3194,7 @@ resourcestring
srkmecToggleLocals = 'View local variables'; srkmecToggleLocals = 'View local variables';
srkmecViewThreads = 'View Threads'; srkmecViewThreads = 'View Threads';
srkmecViewHistory = 'View History'; srkmecViewHistory = 'View History';
srkmecViewPseudoTerminal = 'View Terminal Output'; srkmecViewPseudoTerminal = 'View console in/output';
srkmecTogglecallStack = 'View call stack'; srkmecTogglecallStack = 'View call stack';
srkmecToggleRegisters = 'View registers'; srkmecToggleRegisters = 'View registers';
srkmecToggleAssembler = 'View assembler'; srkmecToggleAssembler = 'View assembler';
@ -3367,7 +3367,7 @@ resourcestring
lisKMToggleViewLocalVariables = 'View Local Variables'; lisKMToggleViewLocalVariables = 'View Local Variables';
lisKMToggleViewThreads = 'View Threads'; lisKMToggleViewThreads = 'View Threads';
lisKMToggleViewHistory = 'View History'; lisKMToggleViewHistory = 'View History';
lisKMToggleViewPseudoTerminal = 'View Terminal Output'; lisKMToggleViewPseudoTerminal = 'View Console In/Output';
lisKMToggleViewCallStack = 'View Call Stack'; lisKMToggleViewCallStack = 'View Call Stack';
lisKMToggleViewRegisters = 'View Registers'; lisKMToggleViewRegisters = 'View Registers';
lisKMToggleViewAssembler = 'View Assembler'; lisKMToggleViewAssembler = 'View Assembler';
@ -5281,7 +5281,7 @@ resourcestring
lisInheritedParameters = 'Inherited parameters'; lisInheritedParameters = 'Inherited parameters';
lisShowRelativePaths = 'Show relative paths'; lisShowRelativePaths = 'Show relative paths';
lisCommandLineParameters = 'Command line parameters'; lisCommandLineParameters = 'Command line parameters';
liswlWatchList = 'Watch List'; liswlWatchList = 'Watches';
liswlExpression = 'Expression'; liswlExpression = 'Expression';
lisKMChooseKeymappingScheme = 'Choose Keymapping scheme'; lisKMChooseKeymappingScheme = 'Choose Keymapping scheme';
lisKMNoteAllKeysWillBeSetToTheValuesOfTheChosenScheme = 'Note: All keys ' lisKMNoteAllKeysWillBeSetToTheValuesOfTheChosenScheme = 'Note: All keys '
@ -5486,11 +5486,14 @@ resourcestring
lisMemoryDump = 'Memory Dump'; lisMemoryDump = 'Memory Dump';
lisBinary = 'Binary'; lisBinary = 'Binary';
// Terminal Output
lisDbgTerminal = 'Console In/Output';
// Callstack // Callstack
lisCallStackNotEvaluated = 'Stack not evaluated'; lisCallStackNotEvaluated = 'Stack not evaluated';
// Locals Dialog // Locals Dialog
lisLocals = 'Locals'; lisLocals = 'Local Variables';
lisLocalsNotEvaluated = 'Locals not evaluated'; lisLocalsNotEvaluated = 'Locals not evaluated';
lisEvaluateModify = '&Evaluate/Modify'; lisEvaluateModify = '&Evaluate/Modify';
lisLocalsDlgCopyName = '&Copy Name'; lisLocalsDlgCopyName = '&Copy Name';