paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-26 15:31:34 +01: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 if assigned(W) then
begin begin
W^.GetExtent(R); 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^.ChangeBounds(R);
W^.Editor^.SetCurPtr(Col,Row); W^.Editor^.SetCurPtr(Col,Row);
end end
@ -4203,7 +4204,10 @@ end;
END. END.
{ {
$Log$ $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 * attempt to fix web bug 1730
Revision 1.10 2001/11/07 00:28:53 pierre Revision 1.10 2001/11/07 00:28:53 pierre