Add Scroll bar in the field

--------- 1: create these three functions ------------

// you need to replace 700 by the ID of your field, and 710 by the ID of your scrollbar !!!!

void updateScrollbar(void)
{
FormPtr frm = FrmGetActiveForm();
ScrollBarPtr scroll;
FieldPtr field;
Int16 currentPosition;
Int16 textHeight;
Int16 fieldHeight;
Int16 maxValue;
field = FrmGetObjectPtr(frm, FrmGetObjectIndex(frm, 700));
FldGetScrollValues(field, &currentPosition, &textHeight, &fieldHeight);

// if the field is 3 lines, and the text height is 4 lines
// then we can scroll so that the first line is at the top
// (scroll position 0) or so the second line is at the top
// (scroll postion 1). These two values are enough to see
// the entire text.

if (textHeight > fieldHeight)
maxValue = textHeight - fieldHeight;
else if (currentPosition)
maxValue = currentPosition;
else
maxValue = 0;

scroll = FrmGetObjectPtr(frm, FrmGetObjectIndex(frm, 710));
// on a page scroll, want to overlap by one line (to provide context)
SclSetScrollBar(scroll, currentPosition, 0, maxValue, fieldHeight - 1);
}

void scrollLines(Int16 numLinesToScroll, Boolean redraw)
{
FormPtr frm = FrmGetActiveForm();
FieldPtr field;
field = FrmGetObjectPtr(frm, FrmGetObjectIndex(frm, 700));
if (numLinesToScroll < class="qBody" id="EchoTopic">(field) && numLinesToScroll < frm =" FrmGetActiveForm();" field =" FrmGetObjectPtr(frm," linestoscroll =" FldGetVisibleLines(field)" direction ="=" linestoscroll =" -linesToScroll;"> true);
}
}


--------- 2: modify your main form handler like this ------------

where the event frmOpenEvent is caught, add this line *before* calling FrmDrawForm:

updateScrollbar();


add this code to catch the events fldChangedEvent and sclRepeatEvent:

case fldChangedEvent:
updateScrollbar();
handled = true;
break;

case sclRepeatEvent:
scrollLines(eventP->data.sclRepeat.newValue - eventP->data.sclRepeat.value, false);
break;