uifile.des

dos 6.0 源代码 .对大家提高有一定的帮助。

DESCRIPTION
GLOBAL_INFO
	{
	CHARACTER
	NO_OVERLAP
	CC_COMPILED
	}

MODULE uifile
	{
	DIALOG dlgFileOpen AT (6, 2, 67, 20)
	CAB_NAME CABFileOpen
	HELP_ID hidFileOpen
	DIALOG_PROC FDlgLoadFile
	TMC_INIT tmcNull
		{
	TEXT "~Nom du fichier:" AT (1, 1, 16, 1)
	EDIT AT (18, 1, 43, 1) TMC_IMPORT tmcSzFileName ARG szFileName

		DUMMY_TEXT "~Fichiers" AT (21, 4, 10, 1)
		LIST_BOX AT (1, 5, 45, 10) TMC tmcListFiles COMBO
			LIST_BOX_PROC  DIR
		TRACKING_TEXT AT (1, 3, 64, 1)
		DUMMY_TEXT "~R俻./Lecteurs" AT (50, 4, 12, 1)
		LIST_BOX AT (48, 5, 16, 10) ARG szDir
			LIST_BOX_PROC  DIR
		OK_BUTTON AT (11, 17, 6, 1) ACTION DISMISS_CAB DEFAULT
		CANCEL_BUTTON AT (27, 17, 11, 1) DISMISS
	PUSH_BUTTON "~Aide" AT (47, 17, 8, 1) TMC_IMPORT tmcHelp
	GROUP_BOX "" AT (17, 0, 45, 3)
		}

	DIALOG dlgFileSave AT (18, 3, 47, 18)
	CAB_NAME CABFileSave
	HELP_ID hidFileSave
	DIALOG_PROC FDlgSaveCreateFile
	TMC_INIT tmcNull
	SUB_DIALOG sabSaveAll = fSaveAll
	SUB_DIALOG sabSaveNil = fSaveAll + fSaveNil
		{
		TEXT "~Nom du fichier:" AT (1, 1, 16, 1)
		EDIT AT (18, 1, 25, 1) TMC_IMPORT tmcSzFileName ARG szFileName

		IF fSaveNil
			LIST_BOX AT (35, 3, 5, 4) COMBO
				LIST_BOX_PROC  DIR
		ENDIF
		TRACKING_TEXT AT (1, 3, 39, 1)
		DUMMY_TEXT "~R俻./Lecteurs" AT (14, 4, 12, 1)
		LIST_BOX AT (12, 5, 16, 9) ARG szDir
			LIST_BOX_PROC  DIR
		OK_BUTTON AT (6, 15, 6, 1) ACTION DISMISS_CAB DEFAULT
		CANCEL_BUTTON AT (16, 15, 11, 1) DISMISS
		PUSH_BUTTON "~Aide" AT (30, 15, 8, 1) TMC_IMPORT tmcHelp
		GROUP_BOX "" AT (17, 0, 27, 3)
		}

	DIALOG dlgFilePrint AT (20, 7, 34, 9)
	CAB_NAME CABFilePrint
	HELP_ID hidFilePrint
	TMC_INIT tmcNull
	SUB_DIALOG sabPrintQbas = fPrintWindow + fPrintQbas
	SUB_DIALOG sabPrintQedit = fPrintQedit
	SUB_DIALOG sabPrintHelp = fPrintWindow
		{
		RADIO_GROUP
			ARG  oFilePrintWhat
			{
			RADIO_BUTTON "Texte s俵ectionn