paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-16 02:00:30 +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
uses
IDEWindowIntf,
Forms, StdCtrls, DebuggerDlg, BaseDebugManager, LCLType;
IDEWindowIntf, Classes,
Forms, StdCtrls, DebuggerDlg, BaseDebugManager, LazarusIDEStrConsts, LCLType;
type
@ -21,6 +21,7 @@ type
procedure DoClose(var CloseAction: TCloseAction); override;
public
{ public declarations }
constructor Create(TheOwner: TComponent); override;
procedure AddOutput(const AText: String);
procedure Clear;
end;
@ -48,6 +49,12 @@ begin
CloseAction := caHide;
end;
constructor TPseudoConsoleDlg.Create(TheOwner: TComponent);
begin
inherited Create(TheOwner);
Caption:= lisDbgTerminal;
end;
procedure TPseudoConsoleDlg.AddOutput(const AText: String);
begin
Memo1.Text:=Memo1.Text+AText;

13
ide/lazarusidestrconsts.pas
View File

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