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

fixed compilation for new fvision

Browse Source
This commit is contained in:
peter 2004-11-04 11:46:54 +00:00
parent 2c58ec4c1a
commit 63db7dd8c2
1 changed files with 48 additions and 68 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
ide/fpusrscr.pas
View File

@ -1043,9 +1043,6 @@ begin
IDEScreenBufferHandle:=NewScreenBufferHandle; IDEScreenBufferHandle:=NewScreenBufferHandle;
DosScreenBufferHandle:=StartScreenBufferHandle; DosScreenBufferHandle:=StartScreenBufferHandle;
Capture; Capture;
{$ifdef fvision}
if TextModeGFV then
{$endif fvision}
IdeScreenMode.row:=0; IdeScreenMode.row:=0;
SwitchBackToIDEScreen; SwitchBackToIDEScreen;
end; end;
@ -1264,10 +1261,6 @@ end;
{ dummy for win32 as the Buffer screen { dummy for win32 as the Buffer screen
do hold all the info } do hold all the info }
procedure TWin32Screen.SaveIDEScreen; procedure TWin32Screen.SaveIDEScreen;
begin
{$ifdef fvision}
if TextModeGFV then
{$endif fvision}
begin begin
IdeScreenMode:=ScreenMode; IdeScreenMode:=ScreenMode;
GetConsoleMode(GetStdHandle(cardinal(Std_Input_Handle)), @IdeMode); GetConsoleMode(GetStdHandle(cardinal(Std_Input_Handle)), @IdeMode);
@ -1275,34 +1268,23 @@ begin
SetStdHandle(cardinal(Std_Output_Handle),DummyScreenBufferHandle); SetStdHandle(cardinal(Std_Output_Handle),DummyScreenBufferHandle);
UpdateFileHandles; UpdateFileHandles;
end; end;
end;
{ dummy for win32 as the Buffer screen { dummy for win32 as the Buffer screen
do hold all the info } do hold all the info }
procedure TWin32Screen.SaveConsoleScreen; procedure TWin32Screen.SaveConsoleScreen;
begin
{$ifdef fvision}
if TextModeGFV then
{$endif fvision}
begin begin
GetConsoleMode(GetStdHandle(cardinal(Std_Input_Handle)), @ConsoleMode); GetConsoleMode(GetStdHandle(cardinal(Std_Input_Handle)), @ConsoleMode);
{ set the dummy buffer as active already now PM } { set the dummy buffer as active already now PM }
SetStdHandle(cardinal(Std_Output_Handle),DummyScreenBufferHandle); SetStdHandle(cardinal(Std_Output_Handle),DummyScreenBufferHandle);
UpdateFileHandles; UpdateFileHandles;
end; end;
end;
procedure TWin32Screen.SwitchToConsoleScreen; procedure TWin32Screen.SwitchToConsoleScreen;
begin
{$ifdef fvision}
if TextModeGFV then
{$endif fvision}
begin begin
SetConsoleActiveScreenBuffer(DosScreenBufferHandle); SetConsoleActiveScreenBuffer(DosScreenBufferHandle);
SetStdHandle(cardinal(Std_Output_Handle),DosScreenBufferHandle); SetStdHandle(cardinal(Std_Output_Handle),DosScreenBufferHandle);
SetConsoleMode(GetStdHandle(cardinal(Std_Input_Handle)), ConsoleMode); SetConsoleMode(GetStdHandle(cardinal(Std_Input_Handle)), ConsoleMode);
UpdateFileHandles; UpdateFileHandles;
end;
IDEActive:=false; IDEActive:=false;
end; end;
@ -1312,10 +1294,6 @@ var
WindowPos : Small_rect; WindowPos : Small_rect;
res : boolean; res : boolean;
error : longint; error : longint;
begin
{$ifdef fvision}
if TextModeGFV then
{$endif fvision}
begin begin
SetStdHandle(cardinal(Std_Output_Handle),IDEScreenBufferHandle); SetStdHandle(cardinal(Std_Output_Handle),IDEScreenBufferHandle);
UpdateFileHandles; UpdateFileHandles;
@ -1352,7 +1330,6 @@ begin
{ needed to force the correct size for videobuf } { needed to force the correct size for videobuf }
if Assigned(Application) and (IdeScreenMode.row<>0)then if Assigned(Application) and (IdeScreenMode.row<>0)then
Application^.SetScreenVideoMode(IdeScreenMode); Application^.SetScreenVideoMode(IdeScreenMode);
end;
IDEActive:=true; IDEActive:=true;
end; end;
@ -1537,7 +1514,10 @@ end;
end. end.
{ {
$Log$ $Log$
Revision 1.35 2004-09-19 14:51:03 armin Revision 1.36 2004-11-04 11:46:54 peter
fixed compilation for new fvision
Revision 1.35 2004/09/19 14:51:03 armin
* added support for target netwlibc * added support for target netwlibc
Revision 1.34 2004/07/09 23:17:26 peter Revision 1.34 2004/07/09 23:17:26 peter