paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-29 19:41:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

* avoid to typecast the status line to a TWindow

Browse Source
This commit is contained in:
pierre 2000-05-16 21:50:53 +00:00
parent 87bb649df1
commit e272a66062
1 changed files with 14 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
ide/text/fpviews.pas
View File

@ -752,6 +752,9 @@ var W: PWindow;
OK: boolean;
begin
W:=nil;
{ we have a crash here because of the TStatusLine
that can also have one of these values
but is not a Window object PM }
if (P^.HelpCtx=hcSourceWindow) or
(P^.HelpCtx=hcHelpWindow) or
(P^.HelpCtx=hcClipboardWindow) or
@ -772,8 +775,13 @@ begin
end;
var W: PView;
begin
W:=Application^.FirstThat(@Match);
if Assigned(W)=false then W:=Desktop^.FirstThat(@Match);
{ W:=Application^.FirstThat(@Match);
This is wrong because TStatusLine is also considered PM }
W:=Desktop^.FirstThat(@Match);
{ But why do we need to check all ??
Probably because of the ones which were not inserted into
Desktop as the Messages view
if Assigned(W)=false then W:=Desktop^.FirstThat(@Match);}
SearchWindow:=PWindow(W);
end;
@ -3394,7 +3402,10 @@ end;
END.
{
$Log$
Revision 1.69 2000-05-02 08:42:29 pierre
Revision 1.70 2000-05-16 21:50:53 pierre
* avoid to typecast the status line to a TWindow
Revision 1.69 2000/05/02 08:42:29 pierre
* new set of Gabor changes: see fixes.txt
Revision 1.68 2000/04/25 08:42:34 pierre