mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-11 13:56:05 +02:00
* Fix bug ID #33280, clear function list before filling
git-svn-id: trunk@57422 -
This commit is contained in:
parent
cde0a4e21c
commit
5b1ecfe3bd
@ -179,14 +179,14 @@ Var
|
||||
C : TBuiltInCategory;
|
||||
|
||||
begin
|
||||
With TVData.Items do
|
||||
With TVFunctions.Items do
|
||||
try
|
||||
BeginUpdate;
|
||||
Clear;
|
||||
if not Assigned(Report) then
|
||||
exit;
|
||||
For C in TBuiltInCategory do
|
||||
CatNodes[C]:=TVFunctions.Items.AddChild(Nil,CatNames[C]);
|
||||
CatNodes[C]:=AddChild(Nil,CatNames[C]);
|
||||
For I:=0 to BuiltinIdentifiers.IdentifierCount-1 do
|
||||
begin
|
||||
ID:=BuiltinIdentifiers.Identifiers[i];
|
||||
@ -201,7 +201,7 @@ begin
|
||||
If (A<>'') then
|
||||
S:=S+'('+A+')';
|
||||
S:=S+':'+TypeName(ID.ResultType);
|
||||
N:=TVFunctions.Items.AddChild(CatNodes[ID.Category],S);
|
||||
N:=AddChild(CatNodes[ID.Category],S);
|
||||
N.Data:=ID;
|
||||
end;
|
||||
For C in TBuiltInCategory do
|
||||
|
Loading…
Reference in New Issue
Block a user