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

* fix the disappearing desktop for win32

Browse Source
This commit is contained in:
pierre 2002-04-25 13:34:17 +00:00
parent df5420c0ae
commit 1cc272351a
2 changed files with 27 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
ide/fpide.pas
View File

@ -810,6 +810,10 @@ begin
{$ifndef go32v2}
InitScreen;
{$endif ndef go32v2}
{$ifdef win32}
{ write the empty screen to dummy console handle }
UpdateScreen(true);
{$endif ndef win32}
InitEvents;
InitSysError;
CurDirChanged;
@ -822,9 +826,11 @@ begin
{$ifdef Unix}
SetKnownKeys;
{$endif Unix}
{$ifndef win32}
{$ifndef go32v2}
UpdateScreen(true);
{$endif go32v2}
{$endif win32}
end;
function TIDEApp.AutoSave: boolean;
@ -1187,7 +1193,10 @@ end;
END.
{
$Log$
Revision 1.10 2002-04-12 08:58:22 pierre
Revision 1.11 2002-04-25 13:34:17 pierre
* fix the disappearing desktop for win32
Revision 1.10 2002/04/12 08:58:22 pierre
+ add RTE(250) for Ctrl+F11 in DEBUG mode
Revision 1.9 2002/03/20 14:52:01 pierre

20
ide/fpusrscr.pas
View File

@ -130,6 +130,7 @@ type
DosScreenBufferHandle,
IDEScreenBufferHandle,
StartScreenBufferHandle,
DummyScreenBufferHandle,
NewScreenBufferHandle : THandle;
IDEActive : boolean;
ConsoleMode,IdeMode : Dword;
@ -613,6 +614,10 @@ begin
GENERIC_READ or GENERIC_WRITE,
FILE_SHARE_READ or FILE_SHARE_WRITE,SecurityAttr,
CONSOLE_TEXTMODE_BUFFER,nil);
DummyScreenBufferHandle:=CreateConsoleScreenBuffer(
GENERIC_READ or GENERIC_WRITE,
FILE_SHARE_READ or FILE_SHARE_WRITE,SecurityAttr,
CONSOLE_TEXTMODE_BUFFER,nil);
StartScreenBufferHandle:=GetStdHandle(STD_OUTPUT_HANDLE);
GetConsoleMode(GetStdHandle(Std_Input_Handle), @ConsoleMode);
IdeMode:=ConsoleMode;
@ -655,6 +660,7 @@ begin
SetStdHandle(Std_Output_Handle,StartScreenBufferHandle);
UpdateFileHandles;
CloseHandle(NewScreenBufferHandle);
CloseHandle(DummyScreenBufferHandle);
inherited Done;
end;
@ -841,6 +847,9 @@ end;
procedure TWin32Screen.SaveIDEScreen;
begin
GetConsoleMode(GetStdHandle(Std_Input_Handle), @IdeMode);
{ set the dummy buffer as active already now PM }
SetStdHandle(Std_Output_Handle,DummyScreenBufferHandle);
UpdateFileHandles;
end;
{ dummy for win32 as the Buffer screen
@ -848,8 +857,8 @@ end;
procedure TWin32Screen.SaveConsoleScreen;
begin
GetConsoleMode(GetStdHandle(Std_Input_Handle), @ConsoleMode);
{ set the IDE buffer as active already now PM }
SetStdHandle(Std_Output_Handle,IDEScreenBufferHandle);
{ set the dummy buffer as active already now PM }
SetStdHandle(Std_Output_Handle,DummyScreenBufferHandle);
UpdateFileHandles;
end;
@ -869,6 +878,8 @@ var
res : boolean;
error : longint;
begin
SetStdHandle(Std_Output_Handle,IDEScreenBufferHandle);
UpdateFileHandles;
GetConsoleScreenBufferInfo(IDEScreenBufferHandle,
@ConsoleScreenBufferInfo);
SetConsoleActiveScreenBuffer(IDEScreenBufferHandle);
@ -932,7 +943,10 @@ end;
end.
{
$Log$
Revision 1.8 2002-01-22 16:29:52 pierre
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
* try to fix win32 problem with Dos program ouptut in command shell
Warning, to debug under win32 with GDB you must use "set new-console on"