paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-26 19:08:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

* No videobuffer switch necessary for fvision win32 graphic version

Browse Source
This commit is contained in:
pierre 2002-06-06 06:46:28 +00:00
parent 62348069bf
commit 9cc0b51e98
1 changed files with 63 additions and 34 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
ide/fpusrscr.pas
View File

@ -157,6 +157,9 @@ uses
,Dpmiexcp, Go32
{$endif}
{$endif}
{$ifdef fvision}
,Drivers
{$endif}
{$ifdef VESA}
,VESA
{$endif}
@ -647,6 +650,9 @@ begin
IDEScreenBufferHandle:=NewScreenBufferHandle;
DosScreenBufferHandle:=StartScreenBufferHandle;
Capture;
{$ifdef fvision}
if TextModeGFV then
{$endif fvision}
SwitchBackToIDEScreen;
end;
@ -846,29 +852,44 @@ end;
do hold all the info }
procedure TWin32Screen.SaveIDEScreen;
begin
{$ifdef fvision}
if TextModeGFV then
{$endif fvision}
begin
GetConsoleMode(GetStdHandle(Std_Input_Handle), @IdeMode);
{ set the dummy buffer as active already now PM }
SetStdHandle(Std_Output_Handle,DummyScreenBufferHandle);
UpdateFileHandles;
end;
end;
{ dummy for win32 as the Buffer screen
do hold all the info }
procedure TWin32Screen.SaveConsoleScreen;
begin
{$ifdef fvision}
if TextModeGFV then
{$endif fvision}
begin
GetConsoleMode(GetStdHandle(Std_Input_Handle), @ConsoleMode);
{ set the dummy buffer as active already now PM }
SetStdHandle(Std_Output_Handle,DummyScreenBufferHandle);
UpdateFileHandles;
end;
end;
procedure TWin32Screen.SwitchToConsoleScreen;
begin
{$ifdef fvision}
if TextModeGFV then
{$endif fvision}
begin
SetConsoleActiveScreenBuffer(DosScreenBufferHandle);
SetStdHandle(Std_Output_Handle,DosScreenBufferHandle);
IDEActive:=false;
SetConsoleMode(GetStdHandle(Std_Input_Handle), ConsoleMode);
UpdateFileHandles;
end;
IDEActive:=false;
end;
procedure TWin32Screen.SwitchBackToIDEScreen;
@ -878,6 +899,10 @@ var
res : boolean;
error : longint;
begin
{$ifdef fvision}
if TextModeGFV then
{$endif fvision}
begin
SetStdHandle(Std_Output_Handle,IDEScreenBufferHandle);
UpdateFileHandles;
GetConsoleScreenBufferInfo(IDEScreenBufferHandle,
@ -901,6 +926,7 @@ begin
res:=SetConsoleWindowInfo(IDEScreenBufferHandle,true,WindowPos);
if not res then
error:=GetLastError;
end;
IDEActive:=true;
end;
@ -943,7 +969,10 @@ end;
end.
{
$Log$
Revision 1.9 2002-04-25 13:34:17 pierre
Revision 1.10 2002-06-06 06:46:28 pierre
* No videobuffer switch necessary for fvision win32 graphic version
Revision 1.9 2002/04/25 13:34:17 pierre
* fix the disappearing desktop for win32
Revision 1.8 2002/01/22 16:29:52 pierre