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 structHyperPage :: v_createChildren () {
int height = Machine_getTextHeight ();
int y = Machine_getMenuBarHeight () + 4;
/***** Create navigation buttons. *****/
if (v_hasHistory ()) {
GuiButton_createShown (d_windowForm, 4, 48, y, y + height,
L"<", gui_button_cb_back, this, 0);
GuiButton_createShown (d_windowForm, 54, 98, y, y + height,
L">", gui_button_cb_forth, this, 0);
}
if (v_isOrdered ()) {
GuiButton_createShown (d_windowForm, 174, 218, y, y + height,
L"< 1", gui_button_cb_previousPage, this, 0);
GuiButton_createShown (d_windowForm, 224, 268, y, y + height,
L"1 >", gui_button_cb_nextPage, this, 0);
}
/***** Create scroll bar. *****/
createVerticalScrollBar (this, d_windowForm);
/***** Create drawing area. *****/
drawingArea = GuiDrawingArea_createShown (d_windowForm, 0, - Machine_getScrollBarWidth (), y + height + 8, - Machine_getScrollBarWidth (),
gui_drawingarea_cb_expose, gui_drawingarea_cb_click, NULL, gui_drawingarea_cb_resize, this, GuiDrawingArea_BORDER);
drawingArea -> f_setSwipable (NULL, verticalScrollBar);
}
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);
}
