paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-19 22:52: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); RightS:=Upper(RightP^.GetName);
if copy(MidS,1,length(UpS))=UpS then if copy(MidS,1,length(UpS))=UpS then
begin begin
Idx:=Mid; FoundS:=copy(MidS,1,length(S)); Idx:=Mid;
FoundS:=MidS;
end; end;
{ else} { else}
if UpS<MidS then if UpS<MidS then
@ -487,7 +488,8 @@ begin
RightS:=Upper(RightP^.GetName); RightS:=Upper(RightP^.GetName);
if copy(MidS,1,length(UpS))=UpS then if copy(MidS,1,length(UpS))=UpS then
begin begin
Idx:=Mid; FoundS:=copy(MidS,1,length(S)); Idx:=Mid;
FoundS:=MidS;
end; end;
{ else} { else}
if UpS<MidS then if UpS<MidS then
@ -1697,7 +1699,11 @@ begin
end. end.
{ {
$Log$ $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 * truncated log to 20 revs
Revision 1.25 1999/10/26 12:30:40 peter Revision 1.25 1999/10/26 12:30:40 peter

11
ide/text/fpsymbol.pas
View File

@ -523,10 +523,11 @@ begin
end; end;
procedure TSymbolScopeView.LookUp(S: string); procedure TSymbolScopeView.LookUp(S: string);
var Idx: Sw_integer; var Idx,Slength: Sw_integer;
NS: string; NS: string;
begin begin
NS:=LookUpStr; NS:=LookUpStr;
Slength:=Length(S);
if (Symbols=nil) or (S='') then NS:='' else if (Symbols=nil) or (S='') then NS:='' else
begin begin
S:=Symbols^.LookUp(S,Idx); S:=Symbols^.LookUp(S,Idx);
@ -536,7 +537,7 @@ begin
FocusItem(Idx); FocusItem(Idx);
end; end;
end; end;
LookUpStr:=NS; LookUpStr:=Copy(NS,1,Slength);
SetState(sfCursorVis,LookUpStr<>''); SetState(sfCursorVis,LookUpStr<>'');
DrawView; DrawView;
end; end;
@ -1160,7 +1161,11 @@ end;
END. END.
{ {
$Log$ $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 + TBreakpoint and TWatch registering
+ WatchesCollection and BreakpointsCollection stored in desk file + WatchesCollection and BreakpointsCollection stored in desk file
* Syntax highlighting was broken * Syntax highlighting was broken