Little improvement

gaddlord

Is suggest a little improvement in fs_tree.GetCategoryName proc.

This will allow additional user defined categories to be added to the Tree.

From:

function GetCategoryByName(s: String): String;
begin
if s = 'ctConv' then result := 'Conversion'
else if s = 'ctFormat' then result := 'Formatting'
else if s = 'ctDate' then result := 'Date/Time'
else if s = 'ctString' then result := 'String routines'
else if s = 'ctMath' then result := 'Mathematical'
else if s = 'ctOther' then result := 'Other';
end;

To:

function GetCategoryByName(s: String): String;
begin
if s = 'ctConv' then result := 'Conversion'
else if s = 'ctFormat' then result := 'Formatting'
else if s = 'ctDate' then result := 'Date/Time'
else if s = 'ctString' then result := 'String routines'
else if s = 'ctMath' then result := 'Mathematical'
else if s = 'ctOther' then result := 'Other'
{+IN - other categories will be added}
else
result := s;
end;

Excellent work on the Fast Script. The best piece on the market