paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-10 21:49:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix bug #1619 by using wconsole unit

Browse Source
This commit is contained in:
pierre 2001-10-02 23:56:30 +00:00
parent 19a8903683
commit 90fb39c656
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
ide/fpide.pas
View File

@ -169,7 +169,7 @@ uses
ColorSel, ColorSel,
{$endif FVISION} {$endif FVISION}
Systems, Systems,
WUtils,WHlpView,WViews,WHTMLHlp,WHelp, WUtils,WHlpView,WViews,WHTMLHlp,WHelp,WConsole,
FPConst,FPVars,FPUtils,FPSwitch,FPIni,FPIntf,FPCompil,FPHelp, FPConst,FPVars,FPUtils,FPSwitch,FPIni,FPIntf,FPCompil,FPHelp,
FPTemplt,FPCalc,FPUsrScr,FPTools,{$ifndef NODEBUG}FPDebug,{$endif}FPRedir, FPTemplt,FPCalc,FPUsrScr,FPTools,{$ifndef NODEBUG}FPDebug,{$endif}FPRedir,
FPDesk,FPCodCmp,FPCodTmp; FPDesk,FPCodCmp,FPCodTmp;
@ -836,6 +836,7 @@ end;
function TIDEApp.DoExecute(ProgramPath, Params, InFile,OutFile,ErrFile: string; ExecType: TExecType): boolean; function TIDEApp.DoExecute(ProgramPath, Params, InFile,OutFile,ErrFile: string; ExecType: TExecType): boolean;
var CanRun: boolean; var CanRun: boolean;
ConsoleMode : TConsoleMode;
{$ifndef Unix} {$ifndef Unix}
PosExe: sw_integer; PosExe: sw_integer;
{$endif Unix} {$endif Unix}
@ -854,6 +855,7 @@ begin
if ExecType<>exNoSwap then if ExecType<>exNoSwap then
ShowUserScreen; ShowUserScreen;
SaveConsoleMode(ConsoleMode);
if ExecType=exDosShell then if ExecType=exDosShell then
WriteShellMsg; WriteShellMsg;
@ -899,6 +901,7 @@ begin
DoneKeyboard; DoneKeyboard;
end; end;
{$endif} {$endif}
RestoreConsoleMode(ConsoleMode);
if ExecType<>exNoSwap then if ExecType<>exNoSwap then
ShowIDEScreen; ShowIDEScreen;
end; end;
@ -1164,7 +1167,10 @@ end;
END. END.
{ {
$Log$ $Log$
Revision 1.4 2001-10-01 00:24:09 pierre Revision 1.5 2001-10-02 23:56:30 pierre
* fix bug 1619 by using wconsole unit
Revision 1.4 2001/10/01 00:24:09 pierre
* fix several help problems * fix several help problems
Revision 1.3 2001/08/05 12:23:00 peter Revision 1.3 2001/08/05 12:23:00 peter