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

* impose the correct size for win32 console window

Browse Source
This commit is contained in:
pierre 2001-11-08 17:06:22 +00:00
parent 0fea285e15
commit bdf48b65ba
1 changed files with 16 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
ide/fpusrscr.pas
View File

@ -842,6 +842,8 @@ procedure TWin32Screen.SwitchBackToIDEScreen;
var var
ConsoleScreenBufferInfo : Console_screen_buffer_info; ConsoleScreenBufferInfo : Console_screen_buffer_info;
WindowPos : Small_rect; WindowPos : Small_rect;
res : boolean;
error : longint;
begin begin
GetConsoleScreenBufferInfo(IDEScreenBufferHandle, GetConsoleScreenBufferInfo(IDEScreenBufferHandle,
@ConsoleScreenBufferInfo); @ConsoleScreenBufferInfo);
@ -855,7 +857,16 @@ begin
WindowPos.top:=0; WindowPos.top:=0;
WindowPos.bottom:=ConsoleScreenBufferInfo.srWindow.bottom WindowPos.bottom:=ConsoleScreenBufferInfo.srWindow.bottom
-ConsoleScreenBufferInfo.srWindow.top; -ConsoleScreenBufferInfo.srWindow.top;
SetConsoleWindowInfo(IDEScreenBufferHandle,true,WindowPos); with ConsoleScreenBufferInfo.dwMaximumWindowSize do
begin
if WindowPos.Right<X-1 then
WindowPos.right:=X-1;
if WindowPos.Bottom<Y-1 then
WindowPos.Bottom:=Y-1;
end;
res:=SetConsoleWindowInfo(IDEScreenBufferHandle,true,WindowPos);
if not res then
error:=GetLastError;
IDEActive:=true; IDEActive:=true;
end; end;
@ -898,7 +909,10 @@ end;
end. end.
{ {
$Log$ $Log$
Revision 1.6 2001-11-08 16:38:25 pierre Revision 1.7 2001-11-08 17:06:22 pierre
* impose the correct size for win32 console window
Revision 1.6 2001/11/08 16:38:25 pierre
* fix win32 scrolling * fix win32 scrolling
+ always go back to 0,0 position in IDE mode + always go back to 0,0 position in IDE mode