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

On return to IDE screen resize IDEapp if needed (Unix).

Browse Source
This commit is contained in:
Margers 2024-09-11 01:21:56 +00:00 committed by Michael Van Canneyt
parent 99943610cb
commit 8ff73efe32
1 changed files with 14 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
packages/ide/fpide.pas
View File

@ -1452,6 +1452,7 @@ end;
procedure TIDEApp.ShowIDEScreen;
var oldH,oldW : byte;
begin
if Assigned(UserScreen) then
UserScreen^.SaveConsoleScreen;
@ -1461,6 +1462,8 @@ begin
InitMouse
else
ButtonCount:=0;
oldH:=ScreenHeight;
oldW:=ScreenWidth;
{$ifndef go32v2}
initvideo;
{$endif ndef go32v2}
@ -1475,14 +1478,23 @@ begin
InitSysError;
CurDirChanged;
{$ifndef Windows}
Message(Application,evBroadcast,cmUpdate,nil);
if (oldH<>ScreenHeight) or (oldW<>ScreenWidth) then
begin
{ acknowledge new screen dimensions }
{ prevents to draw out of boundaries of new video buffer }
ResizeApplication(ScreenWidth,ScreenHeight);
end else
Message(Application,evBroadcast,cmUpdate,nil);
{$endif Windows}
{$ifdef Windows}
// WindowsShowMouse;
{$endif Windows}
if Assigned(UserScreen) then
UserScreen^.SwitchBackToIDEScreen;
{$ifdef unix}
if (oldH=ScreenHeight) and (oldW=ScreenWidth) then
{$endif unix}
UserScreen^.SwitchBackToIDEScreen;
{$ifdef Windows}
{ This message was sent when the VideoBuffer was smaller
than was the IdeApp thought => writes to random memory and random crashes... PM }