static void createVerticalScrollBar (HyperPage me, GuiForm parent) { my verticalScrollBar = GuiScrollBar_createShown (parent, - Machine_getScrollBarWidth (), 0, Machine_getMenuBarHeight () + Machine_getTextHeight () + 12, - Machine_getScrollBarWidth (), 0, PAGE_HEIGHT * 5, 0, 25, 1, 24, gui_cb_verticalScroll, me, 0); }
void structTableEditor :: v_createChildren () { Table table = static_cast<Table> (data); int y = Machine_getMenuBarHeight () + 4, scrollWidth = Machine_getScrollBarWidth (); our text = GuiText_createShown (our d_windowForm, 0, 0, y, y + Machine_getTextHeight (), 0); GuiText_setChangedCallback (our text, gui_text_cb_changed, this); y += Machine_getTextHeight () + 4; our drawingArea = GuiDrawingArea_createShown (our d_windowForm, 0, - scrollWidth, y, - scrollWidth, gui_drawingarea_cb_expose, gui_drawingarea_cb_click, NULL, gui_drawingarea_cb_resize, this, 0); our verticalScrollBar = GuiScrollBar_createShown (our d_windowForm, - scrollWidth, 0, y, - scrollWidth, 1, table -> rows.size + 1, 1, 1, 1, 10, gui_cb_scrollVertical, this, 0); our horizontalScrollBar = GuiScrollBar_createShown (our d_windowForm, 0, - scrollWidth, - scrollWidth, 0, 1, table -> numberOfColumns + 1, 1, 1, 1, 3, gui_cb_scrollHorizontal, this, GuiScrollBar_HORIZONTAL); GuiDrawingArea_setSwipable (our drawingArea, our horizontalScrollBar, our verticalScrollBar); }