Jump to content

orvkis

uniGUI Subscriber
  • Posts

    22
  • Joined

  • Last visited

Posts posted by orvkis

  1. On 8/23/2017 at 8:53 PM, Sherzod said:

    Hi,

     

    Can you try this approach for now?!:

    
    procedure TMainmForm.UnimMenu1Click(Sender: TUnimMenuItem);
    begin
      case Sender.ButtonId of
        0: Begin
             UnimMenu1.Visible := False;
             frmForm2.Show(
               procedure (Sender: TComponent; AResult:Integer)
               begin
                 UniSession.AddJS('Ext.Viewport.setMenu('+
                   '' + UnimMenu1.JSName + ',' +
                   '{  side: "right",'+
                   '   reveal: true'+
                   '});');
               end
             );
            End;
      end;
    end;
    
    procedure TfrmForm2.UnimMenu1Click(Sender: TUnimMenuItem);
    begin
      case Sender.ButtonId of
        0: Begin
             UnimMenu1.Visible := False;
             frmForm3.Show(
               procedure (Sender: TComponent; AResult:Integer)
               begin
                 UniSession.AddJS('Ext.Viewport.setMenu('+
                   '' + UnimMenu1.JSName + ',' +
                   '{  side: "right",'+
                   '   reveal: true'+
                   '});');
               end
             )
           End;
      end;
    end;

    Best regards,

    Doesn't work. Menu showing, but it's empty

×
×
  • Create New...