Search the Community
Showing results for tags 'statusbar'.
-
Please advise how to ADD / INSERT Button into StatusBar at Runtime - thanks. procedure TMainForm.UniFormBeforeShow(Sender: TObject); begin if FirstTime = True then begin FirstTime:= False; (* INSERT UniSession.AddJS(UniStatusBar.JSName + '.items.insert '+ '(0, Ext.create '+ ' ( '+ ' "Ext.button.Button", '+ ' { '+ ' text: "Camera", '+ ' id: "_btn1", '+ ' handler: function() '+ ' { '+ ' ajaxRequest('+MainForm.WebForm.JSName+', "_btn_click_", ["btnId="+this.id]) '+ ' } '+ ' } '+ ' ) '+ '); '); // '+ UniStatusBar.JSName +'.doLayout(); *) // ADD UniSession.AddJS(UniStatusBar.JSName + '.items.add '+ '( '+ ' Ext.create '+ ' ( '+ ' "Ext.button.Button", '+ ' { '+ ' text: "Camera", '+ ' id: "_btn1", '+ ' handler: function() '+ ' { '+ ' ajaxRequest('+MainForm.WebForm.JSName+', "_btn_click_", ["btnId="+this.id]) '+ ' } '+ ' } '+ ' ) '+ '); '); // '+ UniStatusBar.JSName +'.doLayout(); end; // FirstTime end;