uioptns.des

来自「[随书类]Dos6.0源代码」· DES 代码 · 共 45 行

DESCRIPTION 
GLOBAL_INFO 
	{
	CHARACTER 
	NO_OVERLAP 
	CC_COMPILED 
	}

MODULE uioptns 
	{
        DIALOG dlgOptnsDisplay AT (10, 1, 64, 22)
	CAB_NAME CABOptnsDisplay 
	HELP_ID hidOptnsDisplay 
	DIALOG_PROC FDlgOptnsDisplay 
	TMC_INIT tmcNull 
	SUB_DIALOG sabOptnsQbas = fOptnsAll + fOptnsQbas 
	SUB_DIALOG sabOptnsQedit = fOptnsAll + fOptnsQedit 
		{
                GROUP_BOX "Colores" AT (1, 0, 60, 18)
		IF fOptnsQbas 
			RADIO_GROUP 
                                TMC tmcColor ARG  oColor
				{
				RADIO_BUTTON "~1. " AT (3, 3, 7, 1) ACTION
				RADIO_BUTTON "~2. " AT (3, 5, 7, 1) ACTION 
				RADIO_BUTTON "~3. " AT (3, 7, 7, 1) ACTION 
				}
			GENERAL_PICTURE AT (10, 3, 19, 1) TMC tmcNormalText 
				RENDER_PROC  DisplayNormalTextWndProc 
			GENERAL_PICTURE AT (10, 5, 19, 1) TMC tmcCurStmt 
				RENDER_PROC  DisplayCurStmtTextWndProc 
                        GENERAL_PICTURE AT (10, 7, 19, 1) TMC tmcBreakpoint
				RENDER_PROC  DisplayBreakpointTextWndProc 
		ENDIF 
		IF fOptnsQedit 
			GENERAL_PICTURE AT (6, 6, 20, 2) TMC tmcQeditText 
				RENDER_PROC  DisplayQeditTextWndProc 
		ENDIF 
                TEXT "1er ~Plano" AT (33, 1, 16, 1)
                LIST_BOX AT (31, 2, 13, 10) TMC tmcCoFore ACTION ARG oCoFore
			LIST_BOX_PROC  WListProcColor 
                TEXT "~Fondo" AT (49, 1, 13, 1)
                LIST_BOX AT (46, 2, 13, 10) TMC tmcCoBack ACTION ARG oCoBack
			LIST_BOX_PROC  WListProcColor 
                GROUP_BOX "Opciones de presentaci