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

* use desktop^.current for GetNextEditorBounds

Browse Source
This commit is contained in:
pierre 2000-02-02 22:51:49 +00:00
parent f0ec5d7fca
commit ef2ffca162
1 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
ide/text/fpviews.pas
View File

@ -2479,11 +2479,16 @@ end;
function GetNextEditorBounds(var Bounds: TRect): boolean;
var P: PView;
begin
P:=Desktop^.First;
P:=Desktop^.Current;
while P<>nil do
begin
if P^.HelpCtx=hcSourceWindow then Break;
P:=P^.NextView;
if P=Desktop^.Current then
begin
P:=nil;
break;
end;
end;
if P=nil then Desktop^.GetExtent(Bounds) else
begin
@ -3074,7 +3079,10 @@ end;
END.
{
$Log$
Revision 1.55 2000-02-01 10:58:41 pierre
Revision 1.56 2000-02-02 22:51:49 pierre
* use desktop^.current for GetNextEditorBounds
Revision 1.55 2000/02/01 10:58:41 pierre
* avoid Search sometimes disabled for Editor Windows
Revision 1.54 2000/01/10 14:59:50 pierre