Re: Form Size Question
As Alphasports was mentioned earlier in this thread, I thought I would knock together a copy of its main menu into an MDI xdialog which can be minimized, maximized and resized and buttons move/resize with it just to show what can be done. I did this quickly and the buttons dont work but will give you ideas hopefully.
to see the false navigation toolbar on the side change
to
more time and I would have got checkboxes working but you should be able to work things out for yourselves from here
As Alphasports was mentioned earlier in this thread, I thought I would knock together a copy of its main menu into an MDI xdialog which can be minimized, maximized and resized and buttons move/resize with it just to show what can be done. I did this quickly and the buttons dont work but will give you ideas hopefully.
Code:
dim dlg_title as c dim nav_bar as l = .f. dim htmlform as p dim fscreen as l = .f. a5_mdi_windowclass_add("ASClass","Alpha Sports","$$generic.orb.green") dlg_title="Alpha Sports" htmlform.html = <<%html% <table style="width:100%;height:100%;"> <tr> <td style="height: 100%; width: 200px; border-style: solid; border-width: 1px; border-color: #0f28e4;" valign="top"> <div align="center" id="navbar"> <a5:condition expression="nav_bar='yes'"> <h5>AlphaSports</h5> <br/> Home Invoices Products Customers Vendors Sales People Reports Menu </a5:condition> </div> </td> <td style="width:100%;height:100%;" valign="top"> <div id="menu" style="background-color: #6b61df;"> <label style="position: relative; display: inline;">Alpha Sports</label> <div align="right"> <button>Design Notes</button><br/> </div> <label>Main Menu</label> <div align="right"> <button><img a5:image="$$generic.help"/></button> <button><img a5:image="$$generic.home"/></button> <button><img a5:image="$$generic.exit"/></button> </div> </div><br/> <button style="width:30%;position: relative; left: 35%;">Invoices</button><br/><br/> <button style="width:30%;position: relative; left: 35%;">Products</button><br/><br/> <button style="width:30%;position: relative; left: 35%;">Customers</button><br/><br/> <button style="width:30%;position: relative; left: 35%;">Vendors</button><br/><br/> <button style="width:30%;position: relative; left: 35%;">Sales People</button><br/><br/> <button style="width:30%;position: relative; left: 35%;">Review Sales History</button><br/><br/> <button style="width:30%;position: relative; left: 35%;">Reports</button><br/><br/> </td> </tr> <tr> <td colspan="2" style="width:100%;" valign="bottom"> <input type="checkbox" id="navbar">Show navigation toolbar</input><br/> <input type="checkbox" id="fs">Run in full screen Mode</input> </td> </tr> </table> %html% ui_modeless_dlg_box(dlg_title,<<%dlg% {mdichild=asclass} {stretch=width,height} {HTMLForm=126,50htmlForm}; %dlg%)
Code:
dim nav_bar as l = .f.
Code:
dim nav_bar as l = .t.
Comment