Index: src/buildoutputwindow.lfm ================================================================== --- src/buildoutputwindow.lfm +++ src/buildoutputwindow.lfm @@ -5,11 +5,11 @@ Width = 168 BorderStyle = bsDialog Caption = 'building' ClientHeight = 80 ClientWidth = 168 - LCLVersion = '2.3.0.0' + LCLVersion = '3.99.0.0' object Label1: TLabel Left = 32 Height = 37 Top = 16 Width = 117 Index: src/buildoutputwindow.pas ================================================================== --- src/buildoutputwindow.pas +++ src/buildoutputwindow.pas @@ -18,11 +18,11 @@ {$mode ObjFPC}{$H+} interface uses - Classes, SysUtils, Forms, StdCtrls, Process; + Classes, SysUtils, Forms, StdCtrls, Process, Dialogs; type { TBuildStatusWindow } @@ -49,17 +49,19 @@ str: String; lh: TextFile; begin p := TProcess.Create(nil); p.Options := p.Options + [poUsePipes, poStderrToOutPut]; + p.ShowWindow := swoHIDE; + + ShowMessage(CommandLine); {$IFDEF WINDOWS} p.Executable := 'cmd'; p.Parameters.Add('/c'); -{$ENDIF} -{$IFDEF UNIX} - p.Executable := 'sh'; +{$ELSE} + p.Executable := '/bin/sh'; p.Parameters.Add('-c'); {$ENDIF} p.Parameters.Add(CommandLine); p.Execute; Index: src/unit1.lfm ================================================================== --- src/unit1.lfm +++ src/unit1.lfm @@ -5,13 +5,13 @@ Width = 847 Caption = 'groffstudio' ClientHeight = 692 ClientWidth = 847 DefaultMonitor = dmPrimary + LCLVersion = '3.99.0.0' OnClose = FormClose OnCreate = FormCreate - LCLVersion = '3.1.0.0' object MainStatusBar: TStatusBar Left = 0 Height = 18 Top = 674 Width = 847 Index: src/unit1.pas ================================================================== --- src/unit1.pas +++ src/unit1.pas @@ -139,13 +139,13 @@ HTTPClient: TFPHttpClient; {$ENDIF} begin // What's the current running groff version? {$IFDEF WINDOWS} - if RunCommand('cmd', ['/c', 'troff --version'], GroffOutputVersion) then + if RunCommand('cmd', ['/c', 'troff --version'], GroffOutputVersion, [], swoHIDE) then {$ELSE} - if RunCommand('/bin/sh', ['-c', 'troff --version'], GroffOutputVersion) then + if RunCommand('/bin/sh', ['-c', 'troff --version'], GroffOutputVersion, [], swoHIDE) then {$ENDIF} begin edtGroffInstalledVersion.Text := GroffOutputVersion; if pos('GNU', GroffOutputVersion) = 0 then ShowMessage('groffstudio thinks that your installed version of troff is not GNU troff.' + LineEnding + @@ -328,11 +328,11 @@ // Build the parameters: buildOpts := 'groff'; // - Macro: - if cmbMacro.SelText <> '' then buildOpts := buildOpts + ' -' + cmbMacro.SelText; + if LeftStr(cmbMacro.Text, 1) = 'm' then buildOpts := buildOpts + ' -' + cmbMacro.Text; // - Enforce UTF-8: buildOpts := buildOpts + ' -Kutf8'; // - Preprocessors: