forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

clear cdb output list on restart

This commit is contained in:
Basile Burg 2014-11-03 15:13:41 +01:00
parent 5de7c44696
commit 1286d61412
1 changed files with 5 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
src/ce_cdbcmd.pas
View File

@ -26,7 +26,6 @@ type
procedure btnStartClick(Sender: TObject); procedure btnStartClick(Sender: TObject);
procedure btnStepClick(Sender: TObject); procedure btnStepClick(Sender: TObject);
procedure btnStopClick(Sender: TObject); procedure btnStopClick(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure txtCdbCmdKeyPress(Sender: TObject; var Key: char); procedure txtCdbCmdKeyPress(Sender: TObject; var Key: char);
private private
fCdbProc: TAsyncProcess; fCdbProc: TAsyncProcess;
@ -96,6 +95,7 @@ procedure TCECdbWidget.btnStartClick(Sender: TObject);
var var
outname: string; outname: string;
begin begin
lstCdbOut.Clear;
if fProject = nil then exit; if fProject = nil then exit;
outname := fProject.outputFilename; outname := fProject.outputFilename;
if not fileExists(outname) then exit; if not fileExists(outname) then exit;
@ -139,15 +139,14 @@ begin
end; end;
procedure TCECdbWidget.btnStopClick(Sender: TObject); procedure TCECdbWidget.btnStopClick(Sender: TObject);
const
cmd = 'q'#13#10;
begin begin
if fCdbProc <> nil then
fCdbProc.Input.Write(cmd[1], length(cmd));
cdbFree; cdbFree;
end; end;
procedure TCECdbWidget.Button2Click(Sender: TObject);
begin
end;
procedure TCECdbWidget.txtCdbCmdKeyPress(Sender: TObject; var Key: char); procedure TCECdbWidget.txtCdbCmdKeyPress(Sender: TObject; var Key: char);
var var
inp: string; inp: string;