home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1999 March / VPR9903A.BIN / APUPDATE / VC / Tx300d / TX300D.LZH / OLE.C < prev    next >
C/C++ Source or Header  |  1997-05-23  |  2KB  |  72 lines

  1. // WZ EDITOR 標準機能 OLE
  2. // Copyright 1997 TY
  3.  
  4. //{###ワープロ機能}
  5.  
  6. #include <windows.h>
  7. #include <windowsx.h>
  8. #include "dialog.h"
  9. #include "edit.h"
  10.  
  11. WORD at_cmdcheck(WZCMD wzcmd)
  12. {
  13. //3.00B1 970523 new
  14.     mchar* szcmd = wzcmdToSzcmd(wzcmd);
  15.     if (!szcmd) return 0;
  16.     if (!stricmp(szcmd,"\m.txuiInsertObject")) {
  17.         #ifdef __FLAT__
  18.         if (text->fWztext) return 0;
  19.         #endif
  20.         return MF_GRAYED;
  21.     }
  22.     return 0;
  23. }
  24.  
  25. BOOL TXAPI TXCMDBASE txuiInsertObject(TX* text)
  26. {
  27. // オブジェクトの挿入
  28. // WZ32のWZ文書ファイルに対してだけ行えます。
  29. // WZ16では使用できません。
  30. #ifdef __FLAT__
  31.     if (!text->fWztext) {
  32.         //2.99D 970329 OLEはWZ文書ファイルでしか使えなくした
  33.         information("オブジェクトの挿入は、WZ文書ファイルに対してだけ行えます。\nWZ文書ファイルをご利用ください。\n");
  34.         return FALSE;
  35.     }
  36.     if (text->editmode == 0) {
  37.         information("「体裁」または「詳細」モードで実行してください");
  38.         return FALSE;
  39.     } else {
  40.         return txOp(text,TXOP_OBJECTINSERT,0,0);
  41.     }
  42. #else
  43.     information("WZ16では、オブジェクトの挿入はできません。\nWZ32をご利用ください。");
  44.     return FALSE;
  45. #endif
  46. }
  47.  
  48. BOOL uiConfigDocname(TX* text,mchar szfilename[CCHPATHNAME])
  49. {
  50. // call by TX
  51.     if (!text->szfilename[0]) {
  52.         information("文書にファイル名を付けてください");
  53.         return FALSE;
  54.     }
  55.     HDIALOG hd = dialog("オブジェクトの挿入");
  56.     dialogCaption(hd,"オブジェクトファイル名を指定してください");
  57.     //
  58.     if (text->szfilename[0]) {
  59.         strcpy(szfilename,pathGetFileName(text->szfilename));
  60.     } else {
  61.         strcpy(szfilename,"object");
  62.     }
  63.     pathSetExt(szfilename,".wzd");
  64.     //
  65.     dialogStrC(hd,"オブジェクトファイル名(&N):",szfilename,20,CCHPATHNAME,30);
  66.     if (dialogOpen(hd)) {
  67.         return TRUE;
  68.     }
  69.     return FALSE;
  70. }
  71.  
  72.