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

procinput widget, input text supports symstrings

This commit is contained in:
Basile Burg 2014-11-27 15:33:14 +01:00
parent be340d4f20
commit fa3165bd2c
2 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lazproj/test/src/runnable_console.d
View File

@ -16,8 +16,8 @@ void main(string args[])
//
version(Windows)
string prgname = "cmd";
else
version(linux) string prgname = "xterm";
/*else
version(linux) string prgname = "xterm";*/
else
assert(0, "unsupported target");
//

10
src/ce_procinput.pas
View File

@ -6,7 +6,7 @@ interface
uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls,
Menus, StdCtrls, ce_widget, process, ce_common;
Menus, StdCtrls, ce_widget, process;
type
@ -28,6 +28,9 @@ type
implementation
{$R *.lfm}
uses
ce_common, ce_symstring;
procedure TCEProcInputWidget.setProc(const aValue: TProcess);
begin
txtExeName.Caption := 'no process';
@ -44,7 +47,10 @@ procedure TCEProcInputWidget.sendInput;
var
inp: string;
begin
inp := txtInp.Text + lineEnding;
if txtInp.Text <> '' then
inp := symbolExpander.get(txtInp.Text) + lineEnding
else
inp := txtInp.Text + lineEnding;
fProc.Input.Write(inp[1], length(inp));
txtInp.Text := '';
end;