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

* check console window size changes

Browse Source
This commit is contained in:
pierre 2002-06-06 20:32:34 +00:00
parent d31e59b824
commit e3eafe7a22
2 changed files with 76 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

42
fv/w32smsg.inc
View File

@ -34,7 +34,10 @@ procedure SystemEventHandler(var ir:INPUT_RECORD);
e : TSystemEvent;
begin
if (ir.EventType in [FOCUS_EVENT,WINDOW_BUFFER_SIZE_EVENT]) then
{ WINDOW_BUFFER_SIZE_EVENT is triggered by buffer size changes
but we are interested in console size changes, thus its handled below
in PollSystemEvent }
if (ir.EventType in [FOCUS_EVENT{,WINDOW_BUFFER_SIZE_EVENT}]) then
begin
EnterCriticalSection(ChangeSystemEvents);
if (ir.EventType=FOCUS_EVENT) then
@ -55,10 +58,15 @@ procedure SystemEventHandler(var ir:INPUT_RECORD);
end;
end;
var
Xsize, YSize : longint;
procedure InitSystemMsg;
var
mode : dword;
ConsoleScreenBufferInfo : Console_screen_buffer_info;
begin
if SystemEventActive then
@ -67,7 +75,10 @@ begin
GetConsoleMode(TextRec(Input).Handle,@mode);
mode:=mode or ENABLE_WINDOW_INPUT;
SetConsoleMode(TextRec(Input).Handle,mode);
GetConsoleScreenBufferInfo(GetStdHandle(STD_OUTPUT_HANDLE),
@ConsoleScreenBufferInfo);
XSize:=ConsoleScreenBufferInfo.srWindow.right-ConsoleScreenBufferInfo.srWindow.left+1;
YSize:=ConsoleScreenBufferInfo.srWindow.bottom-ConsoleScreenBufferInfo.srWindow.top+1;
PendingSystemHead:=@PendingSystemEvent;
PendingSystemTail:=@PendingSystemEvent;
PendingSystemEvents:=0;
@ -125,6 +136,9 @@ end;
function PollSystemEvent(var SystemEvent: TSystemEvent):boolean;
var
ConsoleScreenBufferInfo : Console_screen_buffer_info;
NewXSize, NewYSize : longint;
begin
EnterCriticalSection(ChangeSystemEvents);
if PendingSystemEvents>0 then
@ -133,13 +147,33 @@ begin
PollSystemEvent:=true;
end
else
PollSystemEvent:=false;
begin
GetConsoleScreenBufferInfo(GetStdHandle(STD_OUTPUT_HANDLE),
@ConsoleScreenBufferInfo);
NewXSize:=ConsoleScreenBufferInfo.srWindow.right-ConsoleScreenBufferInfo.srWindow.left+1;
NewYSize:=ConsoleScreenBufferInfo.srWindow.bottom-ConsoleScreenBufferInfo.srWindow.top+1;
if (XSize<>NewXSize) or (YSize<>NewYSize) then
begin
SystemEvent.typ:=SysResize;
SystemEvent.x:=NewXSize;
SystemEvent.y:=NewYSize;
PutSystemEvent(SystemEvent);
XSize:=NewXSize;
YSize:=NewYSize;
PollSystemEvent:=true;
end
else
PollSystemEvent:=false;
end;
LeaveCriticalSection(ChangeSystemEvents);
end;
{
$Log$
Revision 1.1 2002-05-21 11:59:57 pierre
Revision 1.2 2002-06-06 20:32:34 pierre
* check console window size changes
Revision 1.1 2002/05/21 11:59:57 pierre
+ system messages unit added
}

42
fvision/w32smsg.inc
View File

@ -34,7 +34,10 @@ procedure SystemEventHandler(var ir:INPUT_RECORD);
e : TSystemEvent;
begin
if (ir.EventType in [FOCUS_EVENT,WINDOW_BUFFER_SIZE_EVENT]) then
{ WINDOW_BUFFER_SIZE_EVENT is triggered by buffer size changes
but we are interested in console size changes, thus its handled below
in PollSystemEvent }
if (ir.EventType in [FOCUS_EVENT{,WINDOW_BUFFER_SIZE_EVENT}]) then
begin
EnterCriticalSection(ChangeSystemEvents);
if (ir.EventType=FOCUS_EVENT) then
@ -55,10 +58,15 @@ procedure SystemEventHandler(var ir:INPUT_RECORD);
end;
end;
var
Xsize, YSize : longint;
procedure InitSystemMsg;
var
mode : dword;
ConsoleScreenBufferInfo : Console_screen_buffer_info;
begin
if SystemEventActive then
@ -67,7 +75,10 @@ begin
GetConsoleMode(TextRec(Input).Handle,@mode);
mode:=mode or ENABLE_WINDOW_INPUT;
SetConsoleMode(TextRec(Input).Handle,mode);
GetConsoleScreenBufferInfo(GetStdHandle(STD_OUTPUT_HANDLE),
@ConsoleScreenBufferInfo);
XSize:=ConsoleScreenBufferInfo.srWindow.right-ConsoleScreenBufferInfo.srWindow.left+1;
YSize:=ConsoleScreenBufferInfo.srWindow.bottom-ConsoleScreenBufferInfo.srWindow.top+1;
PendingSystemHead:=@PendingSystemEvent;
PendingSystemTail:=@PendingSystemEvent;
PendingSystemEvents:=0;
@ -125,6 +136,9 @@ end;
function PollSystemEvent(var SystemEvent: TSystemEvent):boolean;
var
ConsoleScreenBufferInfo : Console_screen_buffer_info;
NewXSize, NewYSize : longint;
begin
EnterCriticalSection(ChangeSystemEvents);
if PendingSystemEvents>0 then
@ -133,13 +147,33 @@ begin
PollSystemEvent:=true;
end
else
PollSystemEvent:=false;
begin
GetConsoleScreenBufferInfo(GetStdHandle(STD_OUTPUT_HANDLE),
@ConsoleScreenBufferInfo);
NewXSize:=ConsoleScreenBufferInfo.srWindow.right-ConsoleScreenBufferInfo.srWindow.left+1;
NewYSize:=ConsoleScreenBufferInfo.srWindow.bottom-ConsoleScreenBufferInfo.srWindow.top+1;
if (XSize<>NewXSize) or (YSize<>NewYSize) then
begin
SystemEvent.typ:=SysResize;
SystemEvent.x:=NewXSize;
SystemEvent.y:=NewYSize;
PutSystemEvent(SystemEvent);
XSize:=NewXSize;
YSize:=NewYSize;
PollSystemEvent:=true;
end
else
PollSystemEvent:=false;
end;
LeaveCriticalSection(ChangeSystemEvents);
end;
{
$Log$
Revision 1.1 2002-05-21 11:59:57 pierre
Revision 1.2 2002-06-06 20:32:34 pierre
* check console window size changes
Revision 1.1 2002/05/21 11:59:57 pierre
+ system messages unit added
}