paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-10 18:51:02 +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,
{$endif FVISION}
Systems,
WUtils,WHlpView,WViews,WHTMLHlp,WHelp,
WUtils,WHlpView,WViews,WHTMLHlp,WHelp,WConsole,
FPConst,FPVars,FPUtils,FPSwitch,FPIni,FPIntf,FPCompil,FPHelp,
FPTemplt,FPCalc,FPUsrScr,FPTools,{$ifndef NODEBUG}FPDebug,{$endif}FPRedir,
FPDesk,FPCodCmp,FPCodTmp;
@ -836,6 +836,7 @@ end;
function TIDEApp.DoExecute(ProgramPath, Params, InFile,OutFile,ErrFile: string; ExecType: TExecType): boolean;
var CanRun: boolean;
ConsoleMode : TConsoleMode;
{$ifndef Unix}
PosExe: sw_integer;
{$endif Unix}
@ -854,6 +855,7 @@ begin
if ExecType<>exNoSwap then
ShowUserScreen;
SaveConsoleMode(ConsoleMode);
if ExecType=exDosShell then
WriteShellMsg;
@ -899,6 +901,7 @@ begin
DoneKeyboard;
end;
{$endif}
RestoreConsoleMode(ConsoleMode);
if ExecType<>exNoSwap then
ShowIDEScreen;
end;
@ -1164,7 +1167,10 @@ end;
END.
{
$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
Revision 1.3 2001/08/05 12:23:00 peter