paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-13 13:29:34 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: ToolBarConfig tweaking.

Browse Source 
git-svn-id: trunk@56095 -
This commit is contained in:
juha 2017-10-17 12:55:01 +00:00
parent 3accee3e98
commit f483ea123d
1 changed files with 10 additions and 7 deletions

17
ide/toolbarconfig.pas
View File

@ -398,14 +398,17 @@ var
Node: TTreeNode;
SortedCtgList: TStringList;
begin
SortedCtgList := TStringList.Create;
SortedCtgList.OwnsObjects := False;
for i := 0 to IDEToolButtonCategories.Count-1 do
SortedCtgList.AddObject(IDEToolButtonCategories[i].Description, IDEToolButtonCategories[i]);
SortCategories(SortedCtgList);
TV.Items.BeginUpdate;
SortedCtgList := TStringList.Create;
try
SortedCtgList.OwnsObjects := False;
for i := 0 to IDEToolButtonCategories.Count-1 do
begin
xCategory := IDEToolButtonCategories[i];
SortedCtgList.AddObject(xCategory.Description, xCategory);
end;
SortCategories(SortedCtgList);
TV.Items.Clear;
for i := 0 to SortedCtgList.Count-1 do
begin
@ -417,8 +420,8 @@ begin
AddMenuItem(Node, xCategory.Buttons[l]);
end;
finally
TV.Items.EndUpdate;
SortedCtgList.Free;
TV.Items.EndUpdate;
end;
end;