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

* LookUp function now returns the complete name in browcol

Browse Source 
and fpsymbol only yakes a part of LoopUpStr
This commit is contained in:
pierre 1999-11-10 00:42:42 +00:00
parent acaa9296b7
commit fdd9823d85
2 changed files with 17 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
compiler/browcol.pas
View File

@ -397,7 +397,8 @@ begin
RightS:=Upper(RightP^.GetName);
if copy(MidS,1,length(UpS))=UpS then
begin
Idx:=Mid; FoundS:=copy(MidS,1,length(S));
Idx:=Mid;
FoundS:=MidS;
end;
{ else}
if UpS<MidS then
@ -487,7 +488,8 @@ begin
RightS:=Upper(RightP^.GetName);
if copy(MidS,1,length(UpS))=UpS then
begin
Idx:=Mid; FoundS:=copy(MidS,1,length(S));
Idx:=Mid;
FoundS:=MidS;
end;
{ else}
if UpS<MidS then
@ -1697,7 +1699,11 @@ begin
end.
{
$Log$
Revision 1.26 1999-11-06 14:34:17 peter
Revision 1.27 1999-11-10 00:42:42 pierre
* LookUp function now returns the complete name in browcol
and fpsymbol only yakes a part of LoopUpStr
Revision 1.26 1999/11/06 14:34:17 peter
* truncated log to 20 revs
Revision 1.25 1999/10/26 12:30:40 peter

11
ide/text/fpsymbol.pas
View File

@ -523,10 +523,11 @@ begin
end;
procedure TSymbolScopeView.LookUp(S: string);
var Idx: Sw_integer;
var Idx,Slength: Sw_integer;
NS: string;
begin
NS:=LookUpStr;
Slength:=Length(S);
if (Symbols=nil) or (S='') then NS:='' else
begin
S:=Symbols^.LookUp(S,Idx);
@ -536,7 +537,7 @@ begin
FocusItem(Idx);
end;
end;
LookUpStr:=NS;
LookUpStr:=Copy(NS,1,Slength);
SetState(sfCursorVis,LookUpStr<>'');
DrawView;
end;
@ -1160,7 +1161,11 @@ end;
END.
{
$Log$
Revision 1.19 1999-09-16 14:34:59 pierre
Revision 1.20 1999-11-10 00:42:42 pierre
* LookUp function now returns the complete name in browcol
and fpsymbol only yakes a part of LoopUpStr
Revision 1.19 1999/09/16 14:34:59 pierre
+ TBreakpoint and TWatch registering
+ WatchesCollection and BreakpointsCollection stored in desk file
* Syntax highlighting was broken