paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-04 09:19:50 +01:00
Code Issues Packages Projects Releases Wiki Activity

DBG: clear terminal on run

Browse Source 
git-svn-id: trunk@30517 -
This commit is contained in:
martin 2011-05-01 16:35:25 +00:00
parent eabbbd37a1
commit d134d8df91
2 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
debugger/pseudoterminaldlg.pp
View File

@ -23,6 +23,7 @@ type
public
{ public declarations }
procedure AddOutput(const AText: String);
procedure Clear;
end;
var
@ -53,6 +54,11 @@ begin
Memo1.SelStart := length(Memo1.Text);
end;
procedure TPseudoConsoleDlg.Clear;
begin
Memo1.Text := '';
end;
{$R *.lfm}

4
ide/debugmanager.pas
View File

@ -895,6 +895,10 @@ begin
then TAssemblerDlg(FDialogs[ddtAssembler]).SetLocation(nil, 0);
end;
end;
dsInit: begin
if FDialogs[ddtPseudoTerminal] <> nil then
TPseudoConsoleDlg(FDialogs[ddtPseudoTerminal]).Clear;
end;
end;
end;