This utility provides a dialog with buttons that allow you to very quickly set column widths for tables displayed in your module. Simply select any cell in the column yuo wish to modify and then click on one of the predefined width buttons in the dialog.
// Set Table Column Widths /* Tony Goodman */ /****************************************************************************** doApply ******************************************************************************/ void doSetWidth(int w) { if (null current Module) return Object cellObject = current Object if (null cellObject || !cell(cellObject)) return setColumnWidth(cellObject, w) refresh(current Module) } /****************************************************************************** doApply ******************************************************************************/ void doSetWidth50(DBE dbe) { doSetWidth(50) } void doSetWidth100(DBE dbe) { doSetWidth(100) } void doSetWidth150(DBE dbe) { doSetWidth(150) } void doSetWidth200(DBE dbe) { doSetWidth(200) } void doSetWidth250(DBE dbe) { doSetWidth(250) } void doSetWidth300(DBE dbe) { doSetWidth(300) } void doSetWidth400(DBE dbe) { doSetWidth(400) } void doSetWidth500(DBE dbe) { doSetWidth(500) } DB dbMain = create(dbExplorer, "Set Column Width", styleFloating) button(dbMain, "Set Column Width = 50", doSetWidth50) button(dbMain, "Set Column Width = 100", doSetWidth100) button(dbMain, "Set Column Width = 150", doSetWidth150) button(dbMain, "Set Column Width = 200", doSetWidth200) button(dbMain, "Set Column Width = 250", doSetWidth250) button(dbMain, "Set Column Width = 300", doSetWidth300) button(dbMain, "Set Column Width = 400", doSetWidth400) button(dbMain, "Set Column Width = 500", doSetWidth500) realize(dbMain) show(dbMain)