uifile.des

Dos6.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 "~Kataloger/Enheter" AT (47, 4, 18, 1) 
		LIST_BOX AT (48, 5, 16, 10) ARG szDir 
			LIST_BOX_PROC  DIR 
		OK_BUTTON AT (14, 17, 4, 1) ACTION DISMISS_CAB DEFAULT
		CANCEL_BUTTON AT (30, 17, 8, 1) DISMISS
		PUSH_BUTTON "~Hj刲p" AT (46, 17, 7, 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 "~Kataloger/Enheter" AT (12, 4, 18, 1) 
		LIST_BOX AT (12, 5, 16, 9) ARG szDir 
			LIST_BOX_PROC  DIR 
		OK_BUTTON AT (9, 15, 4, 1) ACTION DISMISS_CAB DEFAULT
		CANCEL_BUTTON AT (17, 15, 8, 1) DISMISS
		PUSH_BUTTON "~Hj刲p" AT (29, 15, 7, 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 "" AT (6, 2, 5, 1) VALUE isFilePrintCurrentWindow 
			IF fPrintQbas 
				RADIO_BUTTON "Hela ~programmet" AT (6, 3, 20, 1) VALUE isFilePrintCurrentModule
			ENDIF
				}
		IF fPrintWindow 
			TEXT "~Aktuellt f攏ster" AT (10, 2, 17, 1) 
		ENDIF 
		IF fPrintQedit 
			TEXT "Hela ~dokumentet" AT (10, 2, 17, 1) 
		ENDIF 
		OK_BUTTON AT (2, 6, 4, 1) DISMISS_CAB DEFAULT
		CANCEL_BUTTON AT (10, 6, 8, 1) DISMISS
		PUSH_BUTTON "~Hj刲p" AT (22, 6, 7, 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