paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 09:59:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix bug ID #33280, clear function list before filling

Browse Source 
git-svn-id: trunk@57422 -
This commit is contained in:
michael 2018-02-28 15:41:45 +00:00
parent cde0a4e21c
commit 5b1ecfe3bd
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/fpreport/design/frafpreportdata.pp
View File

@ -179,14 +179,14 @@ Var
C : TBuiltInCategory; C : TBuiltInCategory;
begin begin
With TVData.Items do With TVFunctions.Items do
try try
BeginUpdate; BeginUpdate;
Clear; Clear;
if not Assigned(Report) then if not Assigned(Report) then
exit; exit;
For C in TBuiltInCategory do 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 For I:=0 to BuiltinIdentifiers.IdentifierCount-1 do
begin begin
ID:=BuiltinIdentifiers.Identifiers[i]; ID:=BuiltinIdentifiers.Identifiers[i];
@ -201,7 +201,7 @@ begin
If (A<>'') then If (A<>'') then
S:=S+'('+A+')'; S:=S+'('+A+')';
S:=S+':'+TypeName(ID.ResultType); S:=S+':'+TypeName(ID.ResultType);
N:=TVFunctions.Items.AddChild(CatNodes[ID.Category],S); N:=AddChild(CatNodes[ID.Category],S);
N.Data:=ID; N.Data:=ID;
end; end;
For C in TBuiltInCategory do For C in TBuiltInCategory do