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

Codetools: IdentifierCompletion, with "include identifier containing prefix" sort recent entries with true prefix before such "only containing" (same as for non recent items)

Browse Source
This commit is contained in:
Martin 2023-07-24 12:05:21 +02:00
parent 5f5b9dce29
commit a747d43139
1 changed files with 29 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

46
components/codetools/identcompletiontool.pas
View File

@ -699,25 +699,37 @@ var
procedure AddHistoryCurItem(ForceComp: Boolean);
var
CurItmComp: TIdentifierCompatibility;
j: integer;
j, f: integer;
MatchAtStart, HasContainMatch: Boolean;
begin
for j := 0 to length(FFoundHistoryItems) - 1 do begin
CurItem := FFoundHistoryItems[j];
if (CurItem = nil) then
continue;
if ForceComp then
CurItmComp := low(TIdentifierCompatibility)
else
CurItmComp := CurItem.Compatibility;
if (CurItmComp <> HistComp) then
Continue;
if (CurItem.HistoryIndex > HistoryLimits[CurItmComp]) then
break;
if (CurItem.Identifier<>'') and (FilterCurItem >= 0) then begin
CurItem.Flags := CurItem.Flags + [iliIsRecentItem];
InsertCurItem;
HasContainMatch := False;
repeat
MatchAtStart := not HasContainMatch;
for j := 0 to length(FFoundHistoryItems) - 1 do begin
CurItem := FFoundHistoryItems[j];
if (CurItem = nil) then
continue;
if ForceComp then
CurItmComp := low(TIdentifierCompatibility)
else
CurItmComp := CurItem.Compatibility;
if (CurItmComp <> HistComp) then
Continue;
if (CurItem.HistoryIndex > HistoryLimits[CurItmComp]) then
break;
if (CurItem.Identifier<>'') then begin
f := FilterCurItem;
if f > 0 then
HasContainMatch := True;
if ( (f = 0) and MatchAtStart) or
( (f > 0) and not MatchAtStart)
then begin
CurItem.Flags := CurItem.Flags + [iliIsRecentItem];
InsertCurItem;
end;
end;
end;
end;
until (not HasContainMatch) or (not MatchAtStart)
end;
begin