![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to mpopen.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [WindowsNT SDKs] / mstools / samples / multipad|
Return to mpopen.c CVS log | Up to [WindowsNT SDKs] / mstools / samples / multipad |
1.1.1.3 ! root 1: ! 2: /******************************************************************************\ ! 3: * This is a part of the Microsoft Source Code Samples. ! 4: * Copyright (C) 1993 Microsoft Corporation. ! 5: * All rights reserved. ! 6: * This source code is only intended as a supplement to ! 7: * Microsoft Development Tools and/or WinHelp documentation. ! 8: * See these sources for detailed information regarding the ! 9: * Microsoft samples programs. ! 10: \******************************************************************************/ ! 11: 1.1 root 12: /*************************************************************************** 1.1.1.3 ! root 13: * * ! 14: * MODULE : MpOpen.c * ! 15: * * ! 16: * PURPOSE : Contains the file open dialog function and it's helper * ! 17: * functions. * ! 18: * * ! 19: * FUNCTIONS : IsWild () - Ascertains that the input string * ! 20: * contains a DOS wildcard character. * ! 21: * * ! 22: * SelectFile() - If filename supplied contains a * ! 23: * wildcard, this function fills the * ! 24: * listboxes in File/Open dialog, else* ! 25: * the dialog is closed. * ! 26: * * ! 27: * FileOpenDlgProc() - Dialog funcion for the File/Open * ! 28: * dialog. * ! 29: * * ! 30: * GetFileName () - Gets a file name from the user. * ! 31: * * 1.1 root 32: ***************************************************************************/ 33: #include "multipad.h" 34: #include <fcntl.h> 35: #include <io.h> 36: #include <string.h> 37: CHAR szPropertyName [] = "FILENAME";/* Name of the File name property list item */ 38: 39: 40: 41: /**************************************************************************** 1.1.1.3 ! root 42: * * ! 43: * FUNCTION : IsWild ( psz ) * ! 44: * * ! 45: * PURPOSE : Checks if the string (referenced by a NEAR pointer) * ! 46: * contains a DOS wildcard character ("*" or "?"). * ! 47: * * ! 48: * RETURNS : TRUE - iff the string contains a wildcard character. * ! 49: * FALSE - otherwise. . * ! 50: * * 1.1 root 51: ****************************************************************************/ 52: BOOL NEAR PASCAL IsWild(register PSTR psz) 53: { 54: for(;;) 1.1.1.3 ! root 55: switch (*psz++){ ! 56: case '*': ! 57: case '?': ! 58: /* Found wildcard */ ! 59: return TRUE; ! 60: ! 61: case 0: ! 62: /* Reached end of string */ ! 63: return FALSE; ! 64: ! 65: default: ! 66: continue; ! 67: } 1.1 root 68: } 69: 70: /**************************************************************************** 1.1.1.3 ! root 71: * * ! 72: * FUNCTION : FileExists(pch) * ! 73: * * ! 74: * PURPOSE : Checks to see if a file exists with the path/filename * ! 75: * described by the string pointed to by 'pch'. * ! 76: * * ! 77: * RETURNS : TRUE - if the described file does exist. * ! 78: * FALSE - otherwise. * ! 79: * * 1.1 root 80: ****************************************************************************/ 81: 82: 83: BOOL FileExists(PSTR pch) 84: { 1.1.1.3 ! root 85: int fh; 1.1 root 86: 1.1.1.3 ! root 87: if ((fh = open(pch, O_RDONLY)) < 0) ! 88: return(FALSE); 1.1 root 89: 1.1.1.3 ! root 90: _lclose(fh); ! 91: return(TRUE); 1.1 root 92: } 93: 94: /**************************************************************************** 1.1.1.3 ! root 95: * * ! 96: * FUNCTION : SelectFile ( hwnd ) * ! 97: * * ! 98: * PURPOSE : Reads the string in the edit control of the File/Open * ! 99: * dialog. If it contains a wildcard, then it attempts to * ! 100: * fill the listboxes in the File/Open dialog. Othewise it * ! 101: * ends the dialog. Modifies the FILENAME item in the property* ! 102: * list of the window. * ! 103: * * 1.1 root 104: ****************************************************************************/ 105: 106: VOID NEAR PASCAL SelectFile(register HWND hwnd) 107: { 108: register PSTR pch; 1.1.1.3 ! root 109: PSTR pch2; 1.1 root 110: 111: /* Get handle (near address) to filename data in window's property list */ 112: pch = (PSTR)GetProp (hwnd, PROP_FILENAME); 113: 114: /* Get the text from the dialog's edit control into this address */ 115: GetDlgItemText (hwnd, IDD_FILENAME, pch, 64); 116: 117: if ( IsWild (pch)){ 1.1.1.3 ! root 118: /* Select the directory and make a listing of the directories */ ! 119: DlgDirList(hwnd, (LPSTR)pch, (int)IDD_DIRS, (int)IDD_PATH, (WORD)ATTR_DIRS); 1.1 root 120: 1.1.1.3 ! root 121: /* Obtain the filename-only part of the path in the edit control */ ! 122: for (pch2 = pch; *pch; pch++) ! 123: if (*pch == '\\' || *pch == ':') ! 124: pch2 = pch + 1; ! 125: ! 126: /* List the files in this directory based on the wildcard. */ ! 127: DlgDirList(hwnd, (LPSTR)pch2, IDD_FILES, IDD_PATH, ATTR_FILES); ! 128: ! 129: /* Set the dialog's edit control to the filename part of path ! 130: * string. ! 131: */ ! 132: SetDlgItemText (hwnd, IDD_FILENAME, pch2); 1.1 root 133: } 134: else 135: { 1.1.1.3 ! root 136: /* The filename in the property list is not a wildcard */ ! 137: if (FileExists (pch)){ 1.1 root 138: 1.1.1.3 ! root 139: RemoveProp (hwnd, PROP_FILENAME); ! 140: EndDialog (hwnd, 0); ! 141: } ! 142: else{ ! 143: MPError ( hwnd, MB_OK | MB_SYSTEMMODAL, IDS_CANTOPEN, (LPSTR) pch); ! 144: SetActiveWindow (hwnd); ! 145: } 1.1 root 146: } 147: } 148: 149: 150: 151: /**************************************************************************** 1.1.1.3 ! root 152: * * ! 153: * FUNCTION : FileOpenDlgProc() * ! 154: * * 1.1 root 155: * PURPOSE : Dialog function for the File/Open dialog. Takes care of * 1.1.1.3 ! root 156: * calling the appropriate functions for extracting the * ! 157: * filename and wildcard, filling the listboxes and changing * ! 158: * the FILENAME item in the property list for the window. * ! 159: * * 1.1 root 160: ****************************************************************************/ 161: 162: BOOL APIENTRY FileOpenDlgProc ( 1.1.1.3 ! root 163: register HWND hwnd, ! 164: WORD message, ! 165: register UINT wParam, ! 166: LONG lParam) 1.1 root 167: { 168: PSTR pch; 169: 170: switch (message){ 171: 1.1.1.3 ! root 172: case WM_INITDIALOG: ! 173: /* Set the default file extension on edit window, and try to ! 174: * get a listing of the files and directories. ! 175: */ ! 176: SetDlgItemText ( hwnd, IDD_FILENAME, DEFFILESEARCH); ! 177: SetProp (hwnd, PROP_FILENAME, (HANDLE) lParam); ! 178: SendDlgItemMessage (hwnd, IDD_FILENAME, EM_LIMITTEXT, 64, 0L); ! 179: SelectFile (hwnd); ! 180: break; ! 181: ! 182: case WM_COMMAND: ! 183: switch (LOWORD(wParam)) { ! 184: case IDOK: ! 185: SelectFile(hwnd); ! 186: break; ! 187: ! 188: case IDCANCEL: ! 189: /* Set the filename in the prop. list to NULL and quit */ ! 190: pch = (PSTR) GetProp (hwnd, PROP_FILENAME); ! 191: *pch = 0; ! 192: EndDialog (hwnd, 0); ! 193: break; ! 194: ! 195: case IDD_FILENAME: ! 196: /* Enable the OK button if the edit control has text. */ ! 197: EnableWindow ( GetDlgItem (hwnd, IDOK), ! 198: GetWindowTextLength (GET_WM_COMMAND_HWND(wParam, lParam))); ! 199: break; ! 200: ! 201: case IDD_FILES: ! 202: ! 203: /* The files listbox. If file selection has changed, fill ! 204: * the new filename into the property list buffer and set ! 205: * text in edit control. ! 206: */ ! 207: if (GET_WM_COMMAND_CMD(wParam, lParam) == LBN_SELCHANGE){ ! 208: pch = (PSTR) GetProp (hwnd, PROP_FILENAME); ! 209: DlgDirSelectEx(hwnd, (LPSTR)pch, 128, IDD_FILES); ! 210: SetDlgItemText (hwnd, IDD_FILENAME, (LPSTR)pch); ! 211: } ! 212: else if (GET_WM_COMMAND_CMD(wParam, lParam) == LBN_DBLCLK) ! 213: /* if the item was double-clicked, try to open it */ ! 214: SelectFile(hwnd); ! 215: break; ! 216: ! 217: case IDD_DIRS: ! 218: ! 219: /* The directories listbox. Append current filename in edit ! 220: * control (stripped of the path prefix) to the name from ! 221: * the property list and set the new string in the edit ! 222: * control. ! 223: */ ! 224: if (GET_WM_COMMAND_CMD(wParam, lParam) == LBN_SELCHANGE) { ! 225: ! 226: PSTR pch2, pchT, pchS; ! 227: ! 228: pch = (PSTR) GetProp (hwnd, PROP_FILENAME); ! 229: ! 230: /* Get the new drive/dir */ ! 231: DlgDirSelectEx(hwnd, pch, 128, IDD_DIRS); ! 232: pch2 = pch + lstrlen(pch); ! 233: ! 234: /* Fetch current contents of dialog's edit control and append ! 235: * it to name from property list... */ ! 236: GetDlgItemText(hwnd,IDD_FILENAME,(LPSTR)pch2,64); ! 237: if (*pch2 == 0){ ! 238: SetDlgItemText(hwnd, IDD_FILENAME, DEFFILESEARCH); ! 239: GetDlgItemText(hwnd,IDD_FILENAME,(LPSTR)pch2,64); ! 240: } ! 241: else { ! 242: pchS = pch; ! 243: for (pchT = pch = pch2; *pch; pch++) { ! 244: if (*pch == '\\' || *pch == ':') ! 245: pchT = pch2; ! 246: else ! 247: *pchT++ = *pch; ! 248: } ! 249: *pchT = 0; ! 250: pch = pchS; ! 251: } ! 252: ! 253: /* Set the edit control with new string */ ! 254: SetDlgItemText (hwnd, IDD_FILENAME, (LPSTR)pch); ! 255: } ! 256: else if (GET_WM_COMMAND_CMD(wParam, lParam) == LBN_DBLCLK) ! 257: SelectFile (hwnd); ! 258: break; ! 259: ! 260: default: ! 261: return FALSE; ! 262: } ! 263: break; 1.1 root 264: 1.1.1.3 ! root 265: default: ! 266: return FALSE; 1.1 root 267: } 268: return TRUE; 269: } 270: 271: /**************************************************************************** 1.1.1.3 ! root 272: * * ! 273: * FUNCTION : GetFilename ( pstr ) * ! 274: * * 1.1 root 275: * PURPOSE : Gets a filename from the user by calling the File/Open * 1.1.1.3 ! root 276: * dialog. * ! 277: * * 1.1 root 278: ****************************************************************************/ 279: VOID APIENTRY GetFileName(PSTR pstr) 280: { 281: #ifdef NOTCOMMONDIALOGS 1.1.1.2 root 282: DialogBoxParam (hInst, IDD_FILEOPEN, hwndFrame, FileOpenDlgProc, (LONG)pstr); 1.1 root 283: #else 284: OPENFILENAME ofn; 285: CHAR szFilterSpec [128] = /* file type filters */ 1.1.1.3 ! root 286: "TEXT FILES(*.TXT)\0*.TXT\0"; 1.1 root 287: 288: #define MAXFILENAME 256 289: CHAR szFileName[MAXFILENAME]; 290: CHAR szFileTitle[MAXFILENAME]; 291: 292: strcpy(szFileName, ""); /* these need be NULL*/ 293: strcpy(szFileTitle, ""); 294: 295: /* fill in non-variant fields of OPENFILENAME struct. */ 296: ofn.lStructSize = sizeof(OPENFILENAME); 1.1.1.3 ! root 297: ofn.hwndOwner = NULL; ! 298: ofn.lpstrFilter = szFilterSpec; 1.1 root 299: ofn.lpstrCustomFilter = NULL; 1.1.1.3 ! root 300: ofn.nMaxCustFilter = 0; ! 301: ofn.nFilterIndex = 0; 1.1 root 302: ofn.lpstrFile = szFileName; 1.1.1.3 ! root 303: ofn.nMaxFile = MAXFILENAME; 1.1 root 304: ofn.lpstrInitialDir = NULL; 305: ofn.lpstrFileTitle = szFileTitle; 306: ofn.nMaxFileTitle = MAXFILENAME; 307: ofn.lpstrTitle = "Open TextFiles"; 308: ofn.lpstrDefExt = "TXT"; 309: ofn.Flags = OFN_FILEMUSTEXIST; 310: /* Use standard open dialog */ 311: if (!GetOpenFileName ((LPOPENFILENAME)&ofn)){ 1.1.1.3 ! root 312: *pstr = 0; 1.1 root 313: MessageBox(hwndFrame, " FileOpen FAILed!", "Multipad", MB_OK | IDOK); 314: } 315: else{ 316: strcpy(pstr, ofn.lpstrFile); 317: } 318: 319: #endif 320: return; 321: 322: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.