WillemvanZyl Posted August 19, 2017 Posted August 19, 2017 Hi, I have 2 forms, one the client list form and the second the client Info Form. Each form has a menu that slides from the right hand side. When the client Info form is loaded and then closed, upon returning to the client List form I have the client Info Form's menu appearing when the menu is invoked. Any help with this?
WillemvanZyl Posted August 19, 2017 Author Posted August 19, 2017 Hi, Please see attached. Initially it works fine going from form2 to form3. But one you close Form3 and view Form2 that Form3's menu is still active
Sherzod Posted August 23, 2017 Posted August 23, 2017 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,
daniel_paixao Posted August 29, 2017 Posted August 29, 2017 Hy! In uniGUI touch Demo have a Main Form "TMainmForm" that is a inherited from TUnimForm. This form have a TUniFrame in project time...who i can do it? Insert a TUniFrame into a form in project time? I'm tried to declare de variable like "UniMainFrame: TUniMainFrame" but, a error is show me: "Field MainmForm.uniMainFrame does not have a corresponding component. Remove the declaration?"
orvkis Posted October 15, 2019 Posted October 15, 2019 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
Sherzod Posted October 15, 2019 Posted October 15, 2019 35 minutes ago, orvkis said: Doesn't work. Menu showing, but it's empty Which build of UniGUI are you using? Can you check on the latest versions? You may not even need additional code.
orvkis Posted October 22, 2019 Posted October 22, 2019 @Sherzod 1.90.0.1510 Please, see example attached. Click Show Main Menu, then Show Child Form, close ChildForm, click Show Main Menu again MobileMenuTest.zip
awendisch Posted June 26, 2020 Posted June 26, 2020 On 10/22/2019 at 5:06 AM, Sherzod said: Hi, I will check. ???
Sherzod Posted June 27, 2020 Posted June 27, 2020 On 10/22/2019 at 1:02 PM, orvkis said: 1.90.0.1510 Please, see example attached. Click Show Main Menu, then Show Child Form, close ChildForm, click Show Main Menu again MobileMenuTest.zip 20 hours ago, awendisch said: ??? Yes, seems the problem exists. We will try to fix it.
Rafael P Posted December 10, 2020 Posted December 10, 2020 it will there any update to fix this issue on mobile? Thanks!
Recommended Posts