i try
unimenuitem1.visible :=false;
unimenuitem2.visible :=false;
UniTreeMenu.SOURCEMENU :=mainMenuItems;
UniTreeMenu.Refresh;
UniTreeMenu.Repaint;
unigui 1.10.0.1458
unsuccessfully.
Hi,
As an approximate solution for now
procedure TMainForm.UniButton1Click(Sender: TObject);
var
I: Integer;
_llist: string;
begin
with UniTreeMenu1 do
begin
SourceMenu.Items[0].Visible := False;
_llist := '';
for I := 0 to SourceMenu.Items.Count-1 do
if not SourceMenu.Items[I].Visible then
if _llist='' then _llist := '"'+SourceMenu.Items[I].Caption+'"'
else _llist := _llist + ',"' + SourceMenu.Items[I].Caption+'"';
if _llist<>'' then