uioptns.src

Dos6.0

    SetIsaColor (isaUserMax-1, rgco[0].coFore, rgco[0].coBack);
    ListStdMsg (MSG_QeditText1);
    TextOut (pwnd, 0, 0, bufStdMsg, QeditTextLen, isaUserMax-1);
    ListStdMsg (MSG_QeditText2);
    TextOut (pwnd, 0, 1, bufStdMsg, QeditTextLen, isaUserMax-1);

    return (TRUE);
}

/***
*WORD FAR PASCAL DisplayNormalTextWndProc (tmm, pv, hObj, tmc, bArg, wParam)
*Purpose:
*	Display the the "Normal Text" color item in the appropriate color.
*
*Entry:
*	tmm		Unreferenced.
*	pv		pointer to general picture window.
*	hObj		Unreferenced.
*	tmc		Unreferenced.
*	bArg		Unreferenced.
*	wParam		Unreferenced.
*
*Exit:
*	returns TRUE.
*
*Exceptions:
*	None.
*******************************************************************************/
WORD FAR PASCAL
DisplayNormalTextWndProc (tmm, pv, hObj, tmc, bArg, wParam)
TMM	tmm;
char *	pv;		/* really a pwnd */
WORD	hObj, bArg;	/* not used */
TMC	tmc;
WORD	wParam;
{
    REG1 PWND pwnd = (PWND) pv;

    Unreferenced (tmm);
    Unreferenced (hObj);
    Unreferenced (bArg);
    Unreferenced (tmc);
    Unreferenced (wParam);

    ListStdMsg (MSG_NormalText);
    SetIsaColor (isaUserMax-1, rgco[0].coFore, rgco[0].coBack);
    TextOut (pwnd, 0, 0, bufStdMsg, ColoredTextLen, isaUserMax-1);	//[12]

    return (TRUE);
}


/***
*WORD FAR PASCAL DisplayCurStmtWndProc (tmm, pv, hObj, tmc, bArg, wParam)
*Purpose:
*	Display the the "Current Statement" color item in the appropriate color.
*
*Entry:
*	tmm		Unreferenced.
*	pv		pointer to general picture window.
*	hObj		Unreferenced.
*	tmc		Unreferenced.
*	bArg		Unreferenced.
*	wParam		Unreferenced.
*
*Exit:
*	returns TRUE.
*
*Exceptions:
*	None.
*******************************************************************************/
WORD FAR PASCAL
DisplayCurStmtTextWndProc (tmm, pv, hObj, tmc, bArg, wParam)
TMM	tmm;
char *	pv;		/* really a pwnd */
WORD	hObj, bArg;	/* not used */
TMC	tmc;
WORD	wParam;
{
    REG1 PWND pwnd = (PWND) pv;

    Unreferenced (tmm);
    Unreferenced (hObj);
    Unreferenced (bArg);
    Unreferenced (tmc);
    Unreferenced (wParam);

    ListStdMsg (MSG_CurStmt);
    SetIsaColor (isaUserMax-1, rgco[1].coFore, rgco[1].coBack);
    TextOut (pwnd, 0, 0, bufStdMsg, ColoredTextLen, isaUserMax-1);	//[12]

    return (TRUE);
}

/*** 
*WORD FAR PASCAL DisplayBreakpointTextWndProc (tmm, pv, hObj, tmc, bArg, wParam)
*Purpose:
*	Display the the "Breakpoint Lines" color item in the appropriate color.
*
*Entry:
*	tmm		Unreferenced.
*	pv		pointer to general picture window.
*	hObj		Unreferenced.
*	tmc		Unreferenced.
*	bArg		Unreferenced.
*	wParam		Unreferenced.
*
*Exit:
*	returns TRUE.
*
*Exceptions:
*	None.
*******************************************************************************/
WORD FAR PASCAL
DisplayBreakpointTextWndProc (tmm, pv, hObj, tmc, bArg, wParam)
TMM	tmm;
char *	pv;		/* really a pwnd */
WORD	hObj, bArg;	/* not used */
TMC	tmc;
WORD	wParam;
{
    REG1 PWND pwnd = (PWND) pv;

    Unreferenced (tmm);
    Unreferenced (hObj);
    Unreferenced (bArg);
    Unreferenced (tmc);
    Unreferenced (wParam);

    ListStdMsg (MSG_Breakpoint);
    SetIsaColor (isaUserMax-1, rgco[2].coFore, rgco[2].coBack);
    TextOut (pwnd, 0, 0, bufStdMsg, ColoredTextLen, isaUserMax-1);	//[12]

    return (TRUE);
}

/*** 
*VOID NEAR CmdOptnsDisplay ()
*Purpose:
*	Called when OPTIONS/DISPLAY menu item is selected.
*
*Entry:
*	None.
*
*Exit:
*	None.
*
*Exceptions:
*	None.
*******************************************************************************/
VOID NEAR CmdOptnsDisplay ()
{
    ushort tabs;
    WORD i;
    HCABOptnsDisplay hcabOptnsDisplay;

    tabs = 0;
    DbAssert (uierr == 0);		//[24]
    hcabOptnsDisplay = (HCABOptnsDisplay) HcabAlloc (cabiCABOptnsDisplay);
    /* [5] Catch HcabAlloc errors */
    if (uierr)
	return;

    (*hcabOptnsDisplay)->oColor = 0;
    (*hcabOptnsDisplay)->oCoFore = (*hcabOptnsDisplay)->oCoBack = 0;

    itoa (GetTabs (), bufStdMsg, 10);
    SzToCab (hcabOptnsDisplay, bufStdMsg, Iag (CABOptnsDisplay, szTabStops));
    // [26] if SzToCab memory allocation failed, free cab and exit.
    if (uierr)
	goto EndCmdOptnsDisplay;
    (*hcabOptnsDisplay)->fScrollBars = fScrollBars;	/* [4] */
    (*hcabOptnsDisplay)->u.sab = (cmdSwitches & CMD_SW_ED) ? sabOptnsQedit : sabOptnsQbas;      //[38]

    if (TmcDoDlgFar (&dlgOptnsDisplay, sizeof (dlgOptnsDisplay), hcabOptnsDisplay) == tmcOk) {
	fOptionsChanged = TRUE;
	for (i = 0; i < 3; i++) {
	    SetIsaColor ((ISA) isaEditWindow+i, rgco[i].coFore, rgco[i].coBack);
	}
	ColorResolution ();			// [36]

	fScrollBars = (*hcabOptnsDisplay)->fScrollBars;
	// [21] Either RemoveScrollBars() or AddScrollBars() will have no effect
	// [21] (depending on the setting of fScrollBars).
	RemoveScrollBars ();
	AddScrollBars ();
      
	/* SetTabs only if greater than zero */
	SzFromCab (hcabOptnsDisplay, bufStdMsg, CB_bufStdMsg,
		   Iag (CABOptnsDisplay, szTabStops));
	/* [22] if user specified -1 convert to -2 so erroneous
	   [22] Can't Set Tabs dialog is not displayed.         */
	if ((tabs = atoi (bufStdMsg)) == -1)	//[22]
	     tabs--;				//[22]
	if (tabs != GetTabs()) {
	    /* user wants to change tab stop setting.
	     * Don't let them if any loaded files had tabs in them.
	     * Otherwise, the user won't get what was expected.  If the
	     * reload the file after changing TABs, everything is fine.
	     * QB doesn't keep TABs in its pcode.
	     */
	    UiRsActivate(UNDEFINED);
	    while (NextMrsFile() != UNDEFINED) {
		if (mrsCur.flags2 & FM2_EntabSource)
		    tabs = UNDEFINED;
	    }
	}
	DrawDebugScr();
    }

    if (tabs == UNDEFINED)
	MsgBoxStd (MB_OK, MSG_CantSetTabs);
    else if (tabs <= 99 && tabs > 0)
	SetTabs (tabs);
EndCmdOptnsDisplay:	// [26]
    FreeCab (hcabOptnsDisplay);
}

/*** 
*VOID NEAR CmdOptnsPaths ()
*Purpose:
*	Called when OPTIONS/PATHS menu item is selected.
*
*Entry:
*	None.
*
*Exit:
*	None.
*
*Exceptions:
*	None.
*******************************************************************************/
VOID NEAR CmdOptnsPaths ()
{
    extern bd bdLibPath, bdExePath, bdInclPath, bdHelpPath;
    extern char b$buf1; 		//[32]

    if (!BdRealloc (&bdHelpPath, MAX_SEARCH_PATH )) {
	SetUiErrOm ();
	goto CmdOptnsPathsEnd;
    } 

    DbChkHoldBuf1();
    strcpy (&b$buf1, bdHelpPath.pb);
    if (PromptForString (cmdSwitches & CMD_SW_ED ? MSG_SearchPathEdit : MSG_SearchPathInterp, //[39]
			 (char far *) &b$buf1,			//[39]
			 MAX_SEARCH_PATH) != tmcCancel) {	//[39]
	fOptionsChanged = TRUE;
        strcpy (bdHelpPath.pb, &b$buf1);
        bdHelpPath.cbLogical = (CbSzUi(&b$buf1)) + 1;
    }
    DbChkFreeBuf1();

CmdOptnsPathsEnd:
    return;


}



bool fRightMouseHelp = TRUE;	// [14] default to right mouse help


/*** 
*void near ColorResolution ()
*Purpose:
*	Resolve all color dependencies.
*
*Entry:
*	Global isa's have been just set to their proper values.
*
*Exit:
*	Sets isaCurBreakpoint based on isaCurStmt and isaBreakpoint, and
*	isaIncludeFileHilite based on isaIncludeFileHilite, and isaEditWindow.
*
*Exceptions:
*	None.
*******************************************************************************/
void near ColorResolution ()		// [36]
{
    WORD coFore, coBack, dummy;
    /* for those statements that are both Current & Breakpoint, use:
     *	   the Current statement forground,
     *	   the Breakpoint statement background
     */
    GetIsaColor (isaCurStmt, &coFore, &dummy);
    GetIsaColor (isaBreakpoint, &dummy, &coBack);
    SetIsaColor (isaCurBreakpoint, coFore, coBack);

    /* for those statements that are Highlighted Include file lines, use:
     *	   the Include File Line foreground,
     *	   the Edit Window background
     */
    GetIsaColor (isaIncludeFileHilite, &coFore, &dummy);
    GetIsaColor (isaEditWindow, &dummy, &coBack);
    SetIsaColor (isaIncludeFileHilite, coFore, coBack);
}