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

* move windows is screen is to small, patch from mantis #23683

Browse Source 
git-svn-id: trunk@35918 -
This commit is contained in:
marco 2017-04-23 13:33:21 +00:00
parent 161ebef6b2
commit 3daee62509
1 changed files with 25 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
ide/fpdesk.pas
View File

@ -382,6 +382,8 @@ var W: PWindow;
TP,TP2: TPoint;
L: longint;
R: TRect;
ZZ: byte;
Z: TRect;
begin
XDataOfs:=0;
Desktop^.Lock;
@ -532,6 +534,29 @@ begin
end
else
W^.Hide;
ZZ:=0;
Desktop^.GetExtent(Z);
if R.A.Y>Z.B.Y-7 then
begin
R.A.Y:=Z.B.Y-7;
ZZ:=1;
end;
if R.A.X>Z.B.X-4 then
begin
R.A.X:=Z.B.X-4;
ZZ:=1;
end;
if R.A.Y<0 then
begin
R.A.Y:=0;
ZZ:=1;
end;
if R.A.X<0 then
begin
R.A.X:=0;
ZZ:=1;
end;
if ZZ<>0 then W^.MoveTo(R.A.X,R.A.Y);
W^.Number:=WI.WinNb;
Desktop^.Unlock;
end;