paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-13 09:59:08 +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; function GetNextEditorBounds(var Bounds: TRect): boolean;
var P: PView; var P: PView;
begin begin
P:=Desktop^.First; P:=Desktop^.Current;
while P<>nil do while P<>nil do
begin begin
if P^.HelpCtx=hcSourceWindow then Break; if P^.HelpCtx=hcSourceWindow then Break;
P:=P^.NextView; P:=P^.NextView;
if P=Desktop^.Current then
begin
P:=nil;
break;
end;
end; end;
if P=nil then Desktop^.GetExtent(Bounds) else if P=nil then Desktop^.GetExtent(Bounds) else
begin begin
@ -3074,7 +3079,10 @@ end;
END. END.
{ {
$Log$ $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 * avoid Search sometimes disabled for Editor Windows
Revision 1.54 2000/01/10 14:59:50 pierre Revision 1.54 2000/01/10 14:59:50 pierre