UPD: Don't show menu separator when it's not required

(cherry picked from commit 493987e2e4)
This commit is contained in:
Alexander Koblov 2023-10-09 18:39:38 +03:00
commit 9e003612d1

View file

@ -2057,9 +2057,12 @@ begin
if not SameText(FileSystem, FS_GENERAL) then
begin
//-
MI:=TMenuItem.Create(ColumnsView.pmColumnsMenu);
MI.Caption:='-';
ColumnsView.pmColumnsMenu.Items.Add(MI);
if ColumnsView.pmColumnsMenu.Items.Count > 0 then
begin
MI:=TMenuItem.Create(ColumnsView.pmColumnsMenu);
MI.Caption:='-';
ColumnsView.pmColumnsMenu.Items.Add(MI);
end;
// General columns set
for I:= 0 to ColSet.Items.Count - 1 do
begin
@ -2076,9 +2079,13 @@ begin
end;
end;
//-
MI:=TMenuItem.Create(ColumnsView.pmColumnsMenu);
MI.Caption:='-';
ColumnsView.pmColumnsMenu.Items.Add(MI);
I:= ColumnsView.pmColumnsMenu.Items.Count - 1;
if (I >= 0) and (ColumnsView.pmColumnsMenu.Items[I].Caption <> '-') then
begin
MI:=TMenuItem.Create(ColumnsView.pmColumnsMenu);
MI.Caption:='-';
ColumnsView.pmColumnsMenu.Items.Add(MI);
end;
//Configure custom columns
MI:=TMenuItem.Create(ColumnsView.pmColumnsMenu);
MI.Tag:=1001;