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

* attempt to fix web bug #1730

Browse Source
This commit is contained in:
pierre 2001-12-19 10:59:18 +00:00
parent 43ece4c2b7
commit 8d90e415dc
1 changed files with 14 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
ide/fpviews.pas
View File

@ -1080,22 +1080,26 @@ end;
SourceEditor
*****************************************************************************}
function SearchCoreForFileName(const AFileName: string): PCodeEditorCore;
function SearchCoreForFileName(AFileName: string): PCodeEditorCore;
var EC: PCodeEditorCore;
function Check(P: PView): boolean; {$ifndef FPC}far;{$endif}
var OK: boolean;
begin
OK:=P^.HelpCtx=hcSourceWindow;
if OK then
with PSourceWindow(P)^ do
if CompareText(Editor^.FileName,AFileName)=0 then
begin
EC:=Editor^.Core;
end;
with PSourceWindow(P)^ do
if FixFileName(Editor^.FileName)=AFileName then
begin
EC:=Editor^.Core;
OK:=true;
end
else
OK:=false;
Check:=OK;
end;
begin
EC:=nil;
AFileName:=FixFileName(AFileName);
{ do not use the same core for all new files }
if AFileName<>'' then
Desktop^.FirstThat(@Check);
@ -4199,7 +4203,10 @@ end;
END.
{
$Log$
Revision 1.10 2001-11-07 00:28:53 pierre
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
+ Disassembly window made public
Revision 1.9 2001/10/11 23:45:28 pierre