Form1 $Royce Bacon (RB) Common Library Demo wwwwwwwwwwwwwwp wwwwwwwwwwwwwwp Form15e CMDialog1 CommonDialog rberror.hlp%0 BtnEject SSCommand Print Page TxtDate 01/01/94 Txtprintwidth Txtfmtline BtnFormat SSCommand Format String Txtformatstring This String Will Be Formatted Into individual lines for printing. This text should be long enough to create multiple lines on the printed output. Txtrjcol Txtrjformat ###,##0.00 Btnrightjustify SSCommand Right Jusitfy Txtrjnum ChkNewLine SSCheck Start a New Line Txtctrline BtnCenter SSCommand Center String Txtctrstring This String Will Be Centered TxtErrorNum Command3D2 SSCommand BtnGenError SSCommand Generate Error Label2 RB_Validate_Date Label2 RB_Text_Format Label2 RB_Rjustify Label2 RB_ErrorHandler Label2 RB_Center Label1 Date To Be Validated Label1 Print Line Width Label1 Print Starting On Line Label1 String To Be Formatted Label1 At Column Label1 Format To Use Label1 Number To Be Formatted Label1 On Line Label1 String To Be Centered Label1 Error Number To Generate MnuFunc &Functions MnuCenter &Center String MnuGenErr Generate &Error MnuFormat &Format String MnuRightJustify &Right Justify Number Mnudash1 MnuPrint &Print Page MnuHelp &Help MnuErrHelp &Help On Errors MnuAbout &About Command3D2_Click form17 Command3D1_Click commanderrorV RB_ErrorHandler@ Action erraction database TxtErrorNum MB_ICONINFORMATION BtnCenter_click nline Txtctrline pcolL RB_Centerp TxtString TxtctrstringK ChkNewline5 Value BtnRightJustify_ClickW RB_Rjustify Txtrjstring@ Txtrjformat TxtrjcolZ BtnFormat_Click stringtoprint/ RB_Text_Format Txtfmtstringl Txtprintwidth printer CurrentXq Txtfmtline CurrentY TxtDate_Change TxtDate_LostFocus RB_Validate_Date Txtdate @ Form_Load ScaleMode CHARl Txtctrline_Change Txtformtstring Txtformatstring TxtrjnumB newline cstring fstring rjformat datestring BtnEject_Click TxtErrorNum_Change BackColor% ForeColor WHITE SelStart SelLength TxtErrorNum_GotFocusG TxtErrorNum_LostFocus" COLOR_GRAY BLACK4 Txtctrstring_Change Txtctrsting Txtrjnum_Change\ Txtrjnum_GotFocusu Txtctrstring_GotFocus Txtctrline_GotFocus Txtrjformat_Change Txtrjformat_GotFocus Txtrjcol_Change Txtrjcol_GotFocus Txtfmtline_Change& Txtfmtline_GotFocusQ Txtprintwidth_Changek Txtprintwidth_GotFocus Txtprintwidht Txtformatstring_Change Txtformatstring_GotFocus TxtDate_GotFocus Txtctrstring_LostFocus Txtctrline_LostFocus Txtrjnum_LostFocus Txtrjformat_LostFocus Txtrjcol_LostFocus* Txtfmtline_LostFocusE Txtprintwidth_LostFocus Txtformatstring_LostFocus INCHES ScaleLeft MnuCenter_Click MnuGenErr_Click BtnGenError_Click MnuFormat_Click MnuRightJustify_Click MnuPrint_Click0 MnuErrHelp_Click CMDialog1 HelpCommandb HELP_INDEX MnuAbout_ClickM LogoFrmV MODAL LogoFormp rjnum rb_systemname rb_version RB_GRAY BtnCenter_click BtnEject_Click BtnFormat_Click BtnGenError_Click Error ignored RB_ErrorHandler Test Example of call to RB_ErrorHandler routine ErrTest commanderror BtnRightJustify_Click Command3D2_Click Form_Load RDBLIB Demo MnuAbout_Click MnuCenter_Click MnuErrHelp_Click MnuFormat_Click MnuGenErr_Click MnuPrint_Click MnuRightJustify_Click Txtctrline_GotFocus Txtctrline_LostFocus Txtctrstring_GotFocus Txtctrstring_LostFocus TxtDate_GotFocus TxtDate_LostFocus TxtErrorNum_GotFocus TxtErrorNum_LostFocus Txtfmtline_GotFocus Txtfmtline_LostFocus Txtformatstring_GotFocus Txtformatstring_LostFocus Txtprintwidth_GotFocus Txtprintwidth_LostFocus Txtrjcol_GotFocus Txtrjcol_LostFocus Txtrjformat_GotFocus Txtrjformat_LostFocus Txtrjnum_GotFocus Txtrjnum_LostFocus