paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-06 16:50:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

try to fix bug #1732

Browse Source
This commit is contained in:
pierre 2002-01-09 09:48:00 +00:00
parent 3a403da9f5
commit 9d78506c59
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ide/fpviews.pas
View File

@ -2643,7 +2643,8 @@ begin
if assigned(W) then
begin
W^.GetExtent(R);
R.B.Y:=Owner^.Origin.Y;
if Owner^.Origin.Y>R.A.Y+4 then
R.B.Y:=Owner^.Origin.Y;
W^.ChangeBounds(R);
W^.Editor^.SetCurPtr(Col,Row);
end
@ -4203,7 +4204,10 @@ end;
END.
{
$Log$
Revision 1.11 2001-12-19 10:59:18 pierre
Revision 1.12 2002-01-09 09:48:00 pierre
try to fix bug 1732
Revision 1.11 2001/12/19 10:59:18 pierre
* attempt to fix web bug 1730
Revision 1.10 2001/11/07 00:28:53 pierre