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 "Fil~namn:" AT (1, 1, 11, 1)
		EDIT AT (13, 1, 50, 1) TMC_IMPORT tmcSzFileName ARG szFileName

		DUMMY_TEXT "~Filer" AT (21, 4, 6, 1)
		LIST_BOX AT (1, 5, 45, 10) TMC tmcListFiles COMBO
			LIST_BOX_PROC  DIR
		TRACKING_TEXT AT (1, 3, 64, 1)
		DUMMY_TEXT "~Kat/Enhet" 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, 10, 1) DISMISS
		PUSH_BUTTON "~Hj刲p" AT (47, 17, 8, 1) TMC_IMPORT tmcHelp
		GROUP_BOX "" AT (12, 0, 52, 3)
		}

	DIALOG dlgFileSave AT (19, 3, 42, 18)
	CAB_NAME CABFileSave
	HELP_ID hidFileSave
	DIALOG_PROC FDlgSaveCreateFile
	TMC_INIT tmcNull
	SUB_DIALOG sabSaveAll = fSaveAll
	SUB_DIALOG sabSaveNil = fSaveAll + fSaveNil
		{
		TEXT "Fil~namn:" AT (1, 1, 11, 1)
		EDIT AT (13, 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 "~Kat/Enhet" 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, 10, 1) DISMISS
		PUSH_BUTTON "~Hj刲p" AT (30, 15, 8, 1) TMC_IMPORT tmcHelp
		GROUP_BOX "" AT (12, 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 "~Markerad text" AT (6, 1, 22, 1) VALUE isFilePrintSelectedText
	 RADIO_BUTTON "~A" AT (6, 2, 5, 1) VALUE isFilePrintCurrentWindow
	 IF fPrintQbas
	    RADIO_BUTTON "Hela ~programmet" AT (6, 3, 20, 1) VALUE isFilePrintCurrentModule
	 ENDIF
	 }
	    IF fPrintWindow
		TEXT "ktuellt f攏ster" AT (11, 2, 17, 1)
	    ENDIF
	    IF fPrintQedit
		TEXT "ll text" AT (11, 2, 17, 1)
	    ENDIF

	    OK_BUTTON AT (2, 6, 6, 1) DISMISS_CAB DEFAULT
	    CANCEL_BUTTON AT (10, 6, 10, 1) DISMISS
	    PUSH_BUTTON "~Hj刲p" AT (22, 6, 8, 1) TMC_IMPORT tmcHelp
      }


	DIALOG dlgFilePrintQH AT (13, 6, 49, 12)
	CAB_NAME CABFilePrintQH
	HELP_ID hidFilePrint
	DIALOG_PROC FDlgFilePrintQH
	TMC_INIT tmcNull
      {
		TEXT "Skriv ut aktuellt 刴ne till:" AT (4, 1, 30, 1)

      RADIO_GROUP TMC tmcFilePrintQHDest
	 ARG  oFilePrintQHDest
	 {
	 RADIO_BUTTON "~Skrivare p