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

* remember IDE screen mode for win32

Browse Source 
to avoid videobuf writes after allocated size.
This commit is contained in:
pierre 2002-09-04 08:35:31 +00:00
parent faed23bfb5
commit c9848efc9e
1 changed files with 16 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
ide/fpusrscr.pas
View File

@ -140,6 +140,7 @@ type
NewScreenBufferHandle : THandle;
IDEActive : boolean;
ConsoleMode,IdeMode : Dword;
IdeScreenMode : TVideoMode;
procedure BufferCopy(src,dest : THandle);
end;
{$endif}
@ -163,9 +164,7 @@ uses
,Dpmiexcp, Go32
{$endif}
{$endif}
{$ifdef fvision}
,Drivers
{$endif}
,Drivers,App
{$ifdef TEST_GRAPH_SWITCH}
,Graph,VESA
{$else not TEST_GRAPH_SWITCH}
@ -783,6 +782,7 @@ begin
{$ifdef fvision}
if TextModeGFV then
{$endif fvision}
IdeScreenMode.row:=0;
SwitchBackToIDEScreen;
end;
@ -986,6 +986,7 @@ begin
if TextModeGFV then
{$endif fvision}
begin
IdeScreenMode:=ScreenMode;
GetConsoleMode(GetStdHandle(Std_Input_Handle), @IdeMode);
{ set the dummy buffer as active already now PM }
SetStdHandle(Std_Output_Handle,DummyScreenBufferHandle);
@ -1061,6 +1062,13 @@ begin
res:=SetConsoleWindowInfo(IDEScreenBufferHandle,true,WindowPos);
if not res then
error:=GetLastError;
{$ifdef DEBUG}
IdeScreenMode.row:=WindowPos.bottom+1;
IdeScreenMode.col:=WindowPos.right+1;
{$endif DEBUG}
{ needed to force the correct size for videobuf }
if Assigned(Application) and (IdeScreenMode.row<>0)then
Application^.SetScreenVideoMode(IdeScreenMode);
end;
IDEActive:=true;
end;
@ -1104,7 +1112,11 @@ end;
end.
{
$Log$
Revision 1.15 2002-09-03 05:45:39 pierre
Revision 1.16 2002-09-04 08:35:31 pierre
* remember IDE screen mode for win32
to avoid videobuf writes after allocated size.
Revision 1.15 2002/09/03 05:45:39 pierre
* fix compilation without DEBUG conditional
Revision 1.14 2002/09/02 09:29:55 pierre