home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 May / Pcwk5b98.iso / Borland / Cplus45 / BC45 / EXPERT.PAK / CSDIDOCV.OWL < prev    next >
Text File  |  1995-08-29  |  22KB  |  654 lines
  1. ##{cheader.snp}
  2. #include <owl\owlpch.h>
  3. #pragma hdrstop
  4.  
  5. ##@OPT_APPL_DRAGDROP 2
  6. #include <dir.h>
  7.  
  8. ##QUERY_FILE_H [[FileName]]
  9. #include "[[FileName]]"
  10. ##--BEGIN-- @QUERY_APPL_MODEL != VALUE_DIALOG
  11. ##OPT_DV_RESET
  12. ##OPT_DV_NEXT
  13. ##QUERY_DV_TVIEW [[WindowClient]]
  14. ##<<*WindowClient QUERY_FILE_H [[FileName]]
  15. #include "[[FileName]]"                        // Definition of client class.       
  16. ##--END-- @QUERY_APPL_MODEL != VALUE_DIALOG
  17. ##--BEGIN-- @QUERY_APPL_MODEL == VALUE_DIALOG
  18. ##QUERY_WIND_CLIENT [[Client]]
  19. ##<<*Client QUERY_FILE_H [[Filename]]
  20. #include "[[Filename]]"                        // Definition of client class.       
  21. ##--END-- @QUERY_APPL_MODEL == VALUE_DIALOG
  22. ##--BEGIN-- ((@QUERY_APPL_MODEL != VALUE_DIALOG) || ((@QUERY_APPL_MODEL == VALUE_DIALOG) && @QUERY_APPL_DLGCLIENT_MENU))
  23. ##      :<<TDialog QUERY_FILE_H [[Filename]]
  24. #include "[[Filename]]"                        // Definition of about dialog.       
  25. ##--END-- ((@QUERY_APPL_MODEL != VALUE_DIALOG) || ((@QUERY_APPL_MODEL == VALUE_DIALOG) && @QUERY_APPL_DLGCLIENT_MENU))
  26.  
  27.  
  28. ##--BEGIN-- @OPT_APPL_HELP
  29. ##--BEGIN-- @QUERY_APPL_COMMENT == VALUE_VERBOSE
  30. //
  31. // Generated help file.
  32. //
  33. ##--END-- @QUERY_APPL_COMMENT == VALUE_VERBOSE
  34. ##@QUERY_APPL_HELP [[HelpFile]]
  35. const char HelpFileName[] = "[[HelpFile]].hlp";
  36.  
  37.  
  38. ##--END-- @OPT_APPL_HELP
  39. ##{cdragdrp.owl}
  40. //{{[[TApplication]] Implementation}}
  41.  
  42.  
  43. ##--BEGIN-- @QUERY_APPL_OLE_AUTO 
  44. //
  45. // OLE's ITypeInfo browses this symbol table for a list of all data,
  46. // properties, and methods exposed by this automated class.
  47. //
  48. ##@QUERY_APPL_OLE != VALUE_NOOLE
  49. DEFINE_AUTOAGGREGATE([[TApplication]], OcApp->Aggregate)
  50. ##@QUERY_APPL_OLE == VALUE_NOOLE
  51. DEFINE_AUTOCLASS([[TApplication]])
  52.     EXPOSE_APPLICATION([[TApplication]], "Application", "Application object", 0)
  53.     EXPOSE_QUIT("Quit", "Quit application", 0)
  54. //{{[[TApplication]]SYM_TBL_BEGIN}}
  55. //{{[[TApplication]]SYM_TBL_END}}
  56. ##@QUERY_APPL_OLE != VALUE_NOOLE
  57. END_AUTOAGGREGATE([[TApplication]], tfAppObject | tfCanCreate, "[[TApplication]]", 0, 0);
  58. ##@QUERY_APPL_OLE == VALUE_NOOLE
  59. END_AUTOCLASS([[TApplication]], tfAppObject | tfCanCreate, "[[TApplication]]", 0, 0);
  60.  
  61.  
  62. ##--END-- @QUERY_APPL_OLE_AUTO 
  63. ##((@QUERY_APPL_OLE != VALUE_NOOLE) || @QUERY_APPL_OLE_AUTO) 2
  64. DEFINE_APP_DICTIONARY(AppDictionary);
  65.  
  66. ##((@QUERY_APPL_OLE == VALUE_NOOLE) && @QUERY_APPL_OLE_AUTO)
  67. static TPointer<TRegistrar> Registrar;
  68. ##((@QUERY_APPL_OLE != VALUE_NOOLE)
  69. static TPointer<TOcRegistrar> Registrar;
  70.  
  71. ##--BEGIN-- ((@QUERY_APPL_OLE != VALUE_NOOLE) || @QUERY_APPL_OLE_AUTO)
  72. REGISTRATION_FORMAT_BUFFER(100)
  73.  
  74. BEGIN_REGISTRATION(ApplicationReg)
  75. ##@QUERY_OLE_GUID [[GUID]]
  76.     REGDATA(clsid, "{[[GUID]]}")
  77. ##--BEGIN-- @QUERY_PRJ_NAME [[AppTitle]]
  78. ##((@QUERY_APPL_OLE == VALUE_SERVER) || (@QUERY_APPL_OLE == VALUE_OLEBOTH) || @QUERY_APPL_OLE_AUTO) 2
  79.     REGDATA(appname, "[[AppTitle]] Server")
  80.     REGDATA(description, "[[AppTitle]] Server Application")
  81. ##((@QUERY_APPL_OLE == VALUE_CONTAINER) && !@QUERY_APPL_OLE_AUTO) 2
  82.     REGDATA(appname, "[[AppTitle]] Container")
  83.     REGDATA(description, "[[AppTitle]] Container Application")
  84. ##@QUERY_APPL_OLE_AUTO
  85.     REGDATA(progid, "[[AppTitle]].Application.1")
  86. ##--END-- @QUERY_PRJ_NAME [[AppTitle]]
  87. ##@QUERY_APPL_OLE_AUTO
  88.     REGDATA(cmdline, "/Automation")
  89. ##!@QUERY_APPL_OLE_AUTO
  90.     REGDATA(cmdline, "")
  91. ##--BEGIN-- ((@QUERY_APPL_OLE == VALUE_SERVER) || (@QUERY_APPL_OLE == VALUE_OLEBOTH))
  92.     REGDATA(usage, ocrMultipleUse)
  93. ##--BEGIN-- @QUERY_APPL_OLE_AUTO
  94. //    REGDATA(debugger, "TDW")
  95. ##--END-- @QUERY_APPL_OLE_AUTO
  96. ##--END-- ((@QUERY_APPL_OLE == VALUE_SERVER) || (@QUERY_APPL_OLE == VALUE_OLEBOTH))
  97. END_REGISTRATION
  98.  
  99. ##--END-- @QUERY_APPL_OLE != VALUE_NOOLE
  100. ##--BEGIN-- @QUERY_APPL_MODEL == VALUE_DIALOG
  101. ##:     @QUERY_APPL_DLGCLIENT [[DLogClient]]
  102. DEFINE_DOC_TEMPLATE_CLASS(TFileDocument, [[DLogClient]], DlgDTPL);
  103. DlgDTPL __dlogClnt("All Files (*.*)", "*.*", 0, "TXT", dtAutoDelete | dtUpdateDir);
  104.  
  105.  
  106. ##--END-- @QUERY_APPL_MODEL == VALUE_DIALOG
  107. ##@QUERY_APPL_OLE != VALUE_NOOLE
  108. ##: {AddOleDV.SNP}
  109. ##*
  110. ##@QUERY_APPL_OLE == VALUE_NOOLE
  111. ##: {AddDocV.SNP}
  112. ##*
  113.  
  114.  
  115. ##--BEGIN-- @QUERY_APPL_COMMENT == VALUE_VERBOSE
  116. //
  117. // Build a response table for all messages/commands handled
  118. // by the application.
  119. //
  120. ##--END-- @QUERY_APPL_COMMENT == VALUE_VERBOSE
  121. DEFINE_RESPONSE_TABLE1([[TApplication]], TApplication)
  122. //{{[[TApplication]]RSP_TBL_BEGIN}}
  123.     EV_OWLVIEW(dnCreate, EvNewView),
  124.     EV_OWLVIEW(dnClose,  EvCloseView),
  125. ##:DBResponse(\\"[[TApplication]]", "CM_HELPABOUT", "CmHelpAbout", "", "COMMAND")
  126.     EV_COMMAND(CM_HELPABOUT, CmHelpAbout),
  127. ##@OPT_APPL_HELP 2
  128. ##:DBResponse(\\"[[TApplication]]", "CM_HELPCONTENTS", "CmHelpContents", "", "COMMAND")
  129. ##:DBResponse(\\"[[TApplication]]", "CM_HELPUSING", "CmHelpUsing", "", "COMMAND")
  130.     EV_COMMAND(CM_HELPCONTENTS, CmHelpContents),
  131.     EV_COMMAND(CM_HELPUSING, CmHelpUsing),
  132. ##@OPT_APPL_PRINTING 6
  133. ##:DBResponse(\\"[[TApplication]]", "CM_FILEPRINT", "CmFilePrint", "", "COMMAND")
  134. ##:DBResponse(\\"[[TApplication]]", "CM_FILEPRINTERSETUP", "CmFilePrintSetup", "", "COMMAND")
  135. ##:DBResponse(\\"[[TApplication]]", "CM_FILEPRINTPREVIEW", "CmFilePrintPreview", "", "COMMAND")
  136. ##:DBResponse(\\"[[TApplication]]", "CM_FILEPRINT", "CmPrintEnable", "", "ENABLER")
  137. ##:DBResponse(\\"[[TApplication]]", "CM_FILEPRINTERSETUP", "CmPrintEnable", "", "ENABLER")
  138. ##:DBResponse(\\"[[TApplication]]", "CM_FILEPRINTPREVIEW", "CmPrintEnable", "", "ENABLER")
  139.     EV_COMMAND(CM_FILEPRINT, CmFilePrint),
  140.     EV_COMMAND(CM_FILEPRINTERSETUP, CmFilePrintSetup),
  141.     EV_COMMAND(CM_FILEPRINTPREVIEW, CmFilePrintPreview),
  142.     EV_COMMAND_ENABLE(CM_FILEPRINT, CmPrintEnable),
  143.     EV_COMMAND_ENABLE(CM_FILEPRINTERSETUP, CmPrintEnable),
  144.     EV_COMMAND_ENABLE(CM_FILEPRINTPREVIEW, CmPrintEnable),
  145. ##@OPT_APPL_DRAGDROP
  146. ##:DBResponse(\\"[[TApplication]]", "", "", "WM_DROPFILES", "")
  147.     EV_WM_DROPFILES,
  148. ##@OPT_APPL_PRINTING
  149. ##:DBResponse(\\"[[TApplication]]", "", "", "WM_WININICHANGE", "")
  150.     EV_WM_WININICHANGE,
  151. //{{[[TApplication]]RSP_TBL_END}}
  152. END_RESPONSE_TABLE;
  153.  
  154.  
  155. ##--BEGIN-- @QUERY_APPL_COMMENT == VALUE_VERBOSE
  156. //////////////////////////////////////////////////////////
  157. // [[TApplication]]
  158. // =====
  159. //
  160. ##--END-- @QUERY_APPL_COMMENT == VALUE_VERBOSE
  161. ##((@QUERY_APPL_OLE == VALUE_NOOLE) && (@QUERY_APPL_OLE_AUTO))
  162. [[TApplication]]::[[TApplication]] () : TApplication(::ApplicationReg["appname"], ::Module, &::AppDictionary)
  163. ##@QUERY_APPL_OLE != VALUE_NOOLE
  164. [[TApplication]]::[[TApplication]] () : TApplication(::ApplicationReg["appname"], ::Module, &::AppDictionary)
  165. ##((@QUERY_APPL_OLE == VALUE_NOOLE) && (!@QUERY_APPL_OLE_AUTO))
  166. ##QUERY_WIND_TITLE [[Title]]
  167. [[TApplication]]::[[TApplication]] () : TApplication("[[Title]]")
  168. {
  169. ##@OPT_APPL_HELP 4
  170.     HelpState = false;
  171.     ContextHelp = false;
  172.     HelpCursor = 0;
  173.  
  174. ##@OPT_APPL_PRINTING 3
  175.     Printer = 0;
  176.     Printing = 0;
  177.  
  178.     SetDocManager(new TDocManager(dmSDI, this));
  179.  
  180.     // INSERT>> Your constructor code here.
  181. }
  182.  
  183.  
  184. [[TApplication]]::~[[TApplication]] ()
  185. {
  186. ##@OPT_APPL_PRINTING 3
  187.     if (Printer)
  188.         delete Printer;
  189.  
  190.     // INSERT>> Your destructor code here.
  191. }
  192.  
  193.  
  194. ##--BEGIN-- @OPT_APPL_HELP
  195. bool [[TApplication]]::CanClose ()
  196. {
  197.     bool result = TApplication::CanClose();
  198.  
  199. ##--BEGIN-- @QUERY_APPL_COMMENT == VALUE_VERBOSE
  200.     //
  201.     // Close the help engine if we used it.
  202.     //
  203. ##--END-- @QUERY_APPL_COMMENT == VALUE_VERBOSE
  204.     if (result && HelpState)
  205.         GetMainWindow()->WinHelp(HelpFileName, HELP_QUIT, 0L);
  206.  
  207.     return result;
  208. }
  209.  
  210.  
  211. ##--END-- @OPT_APPL_HELP
  212.  
  213.  
  214. ##(((@QUERY_APPL_MODEL == VALUE_DIALOG) && @QUERY_APPL_DLGCLIENT_MENU) || (@QUERY_APPL_MODEL != VALUE_DIALOG))
  215. ##--BEGIN-- @OPT_APPL_TOOLBAR
  216. void [[TApplication]]::CreateGadgets (TControlBar *cb, bool server)
  217. {
  218.     if (!server) {
  219.         cb->Insert(*new TButtonGadget(CM_FILENEW, CM_FILENEW));
  220.         cb->Insert(*new TButtonGadget(CM_FILEOPEN, CM_FILEOPEN));
  221.         cb->Insert(*new TButtonGadget(CM_FILESAVE, CM_FILESAVE));
  222.         cb->Insert(*new TSeparatorGadget(6));
  223.     }
  224.  
  225.     cb->Insert(*new TButtonGadget(CM_EDITCUT, CM_EDITCUT));
  226.     cb->Insert(*new TButtonGadget(CM_EDITCOPY, CM_EDITCOPY));
  227.     cb->Insert(*new TButtonGadget(CM_EDITPASTE, CM_EDITPASTE));
  228.     cb->Insert(*new TSeparatorGadget(6));
  229.     cb->Insert(*new TButtonGadget(CM_EDITUNDO, CM_EDITUNDO));
  230.     cb->Insert(*new TSeparatorGadget(6));
  231.     cb->Insert(*new TButtonGadget(CM_EDITFIND, CM_EDITFIND));
  232.     cb->Insert(*new TButtonGadget(CM_EDITFINDNEXT, CM_EDITFINDNEXT));
  233. ##--BEGIN-- @OPT_APPL_PRINTING
  234.  
  235.     if (!server) {
  236.         cb->Insert(*new TSeparatorGadget(6));
  237.         cb->Insert(*new TButtonGadget(CM_FILEPRINT, CM_FILEPRINT));
  238.         cb->Insert(*new TButtonGadget(CM_FILEPRINTPREVIEW, CM_FILEPRINTPREVIEW));
  239.     }
  240. ##--END-- @OPT_APPL_PRINTING
  241. ##@OPT_APPL_HELP 3
  242.  
  243.     cb->Insert(*new TSeparatorGadget(6));
  244.     cb->Insert(*new TButtonGadget(CM_HELPCONTENTS, CM_HELPCONTENTS));
  245.  
  246. ##@QUERY_APPL_COMMENT == VALUE_VERBOSE
  247.     // Add fly-over help hints.
  248.     cb->SetHintMode(TGadgetWindow::EnterHints);
  249. }
  250.  
  251.  
  252. ##@QUERY_APPL_OLE == VALUE_NOOLE
  253. void [[TApplication]]::SetupSpeedBar (TDecoratedFrame *frame)
  254. ##@QUERY_APPL_OLE != VALUE_NOOLE
  255. void [[TApplication]]::SetupSpeedBar (TOleFrame *frame)
  256. { 
  257. ##--BEGIN-- @QUERY_APPL_COMMENT == VALUE_VERBOSE
  258.     //
  259.     // Create default toolbar New and associate toolbar buttons with commands.
  260.     //   
  261. ##--END-- @QUERY_APPL_COMMENT == VALUE_VERBOSE
  262.     TControlBar* cb = new TControlBar(frame);
  263.     CreateGadgets(cb);
  264.  
  265. ##@QUERY_APPL_COMMENT == VALUE_VERBOSE
  266.     // Setup the toolbar ID used by OLE 2 for toolbar negotiation.
  267.     cb->Attr.Id = IDW_TOOLBAR;
  268.  
  269.     frame->Insert(*cb, TDecoratedFrame::Top);
  270. }
  271.  
  272.  
  273. ##--END-- @OPT_APPL_TOOLBAR
  274. ##--BEGIN-- @QUERY_APPL_COMMENT == VALUE_VERBOSE
  275. //////////////////////////////////////////////////////////
  276. // [[TApplication]]
  277. // =====
  278. // Application intialization.
  279. //
  280. ##--END-- @QUERY_APPL_COMMENT == VALUE_VERBOSE
  281. void [[TApplication]]::InitMainWindow ()
  282. {
  283.     if (nCmdShow != SW_HIDE)
  284. ##@QUERY_APPL_STARTUP == VALUE_NORMAL
  285.         nCmdShow = (nCmdShow != SW_SHOWMINNOACTIVE) ? SW_SHOWNORMAL : nCmdShow;
  286. ##@QUERY_APPL_STARTUP == VALUE_MIN
  287.         nCmdShow = (nCmdShow != SW_SHOWMINNOACTIVE) ? SW_SHOWMINIMIZED : nCmdShow;
  288. ##@QUERY_APPL_STARTUP == VALUE_MAX
  289.         nCmdShow = (nCmdShow != SW_SHOWMINNOACTIVE) ? SW_SHOWMAXIMIZED : nCmdShow;
  290.  
  291. ##@OPT_APPL_STATUSBAR 
  292.     SDIDecFrame *frame = new SDIDecFrame(0, GetName(), 0, true, this);
  293. ##!@OPT_APPL_STATUSBAR
  294.     SDIDecFrame *frame = new SDIDecFrame(0, GetName(), 0, false, this);
  295.  
  296. ##QUERY_WIND_STYLE [[StyleAttributes]]
  297. ##StyleAttributes != "" 3
  298.     // Override the default window style for the main window.
  299. [[StyleAttributes]]
  300.  
  301. ##QUERY_WIND_BACKGRND [[BackgroundColor]]
  302. ##BackgroundColor != "" 3
  303.     // Change the window's background color
  304.     frame->SetBkgndColor([[BackgroundColor]]);
  305.  
  306. ##--BEGIN-- @QUERY_APPL_COMMENT == VALUE_VERBOSE
  307.     //
  308.     // Assign ICON w/ this application.
  309.     //
  310. ##--END-- @QUERY_APPL_COMMENT == VALUE_VERBOSE
  311.     frame->SetIcon(this, IDI_SDIAPPLICATION);
  312.  
  313. ##(((@QUERY_APPL_MODEL == VALUE_DIALOG) && @QUERY_APPL_DLGCLIENT_MENU)  || (@QUERY_APPL_MODEL != VALUE_DIALOG))
  314. ##--BEGIN-- @QUERY_APPL_COMMENT == VALUE_VERBOSE
  315.     //
  316.     // Menu associated with window and accelerator table associated with table.
  317.     //
  318. ##--END-- @QUERY_APPL_COMMENT == VALUE_VERBOSE
  319. ##(((@QUERY_APPL_MODEL == VALUE_DIALOG) && @QUERY_APPL_DLGCLIENT_MENU)  || (@QUERY_APPL_MODEL != VALUE_DIALOG)) 2
  320.     frame->AssignMenu(SDI_MENU);
  321.     
  322. ##(((@QUERY_APPL_MODEL == VALUE_DIALOG) && @QUERY_APPL_DLGCLIENT_MENU)  || (@QUERY_APPL_MODEL != VALUE_DIALOG))
  323. ##--BEGIN-- @QUERY_APPL_COMMENT == VALUE_VERBOSE
  324.     //
  325.     // Associate with the accelerator table.
  326.     //
  327. ##--END-- @QUERY_APPL_COMMENT == VALUE_VERBOSE
  328. ##(((@QUERY_APPL_MODEL == VALUE_DIALOG) && @QUERY_APPL_DLGCLIENT_MENU)  || (@QUERY_APPL_MODEL != VALUE_DIALOG)) 2
  329.     frame->Attr.AccelTable = SDI_MENU;
  330.  
  331. ##(((@QUERY_APPL_MODEL == VALUE_DIALOG) && @QUERY_APPL_DLGCLIENT_MENU) || (@QUERY_APPL_MODEL != VALUE_DIALOG))
  332. ##@OPT_APPL_TOOLBAR
  333.     SetupSpeedBar(frame);
  334. ##@OPT_APPL_STATUSBAR 7
  335.  
  336.     TStatusBar *sb = new TStatusBar(frame, TGadget::Recessed,
  337.                                     TStatusBar::CapsLock        |
  338.                                     TStatusBar::NumLock         |
  339.                                     TStatusBar::ScrollLock      |
  340.                                     TStatusBar::Overtype);
  341.     frame->Insert(*sb, TDecoratedFrame::Bottom);
  342.   
  343.     SetMainWindow(frame);
  344.  
  345. ##(((@QUERY_APPL_MODEL == VALUE_DIALOG) && @QUERY_APPL_DLGCLIENT_MENU)  || (@QUERY_APPL_MODEL != VALUE_DIALOG)) 2
  346.     frame->SetMenuDescr(TMenuDescr(SDI_MENU));
  347.  
  348. ##--BEGIN-- @QUERY_APPL_CONTROL==VALUE_3D
  349. ##--BEGIN-- @QUERY_APPL_COMMENT == VALUE_VERBOSE
  350.     //
  351.     // Windows 3-D controls.
  352.     //
  353. ##--END-- @QUERY_APPL_COMMENT == VALUE_VERBOSE
  354.     EnableCtl3d(true);
  355. ##--END-- @QUERY_APPL_CONTROL==VALUE_3D
  356. ##--BEGIN-- @QUERY_APPL_CONTROL==VALUE_BWCC
  357. ##--BEGIN-- @QUERY_APPL_COMMENT == VALUE_VERBOSE
  358.     //
  359.     // Borland Windows custom controls.
  360.     //
  361. ##--END-- @QUERY_APPL_COMMENT == VALUE_VERBOSE
  362.     EnableBWCC();
  363. ##--END-- @QUERY_APPL_CONTROL==VALUE_BWCC
  364. }
  365.  
  366.  
  367. ##--BEGIN-- @QUERY_APPL_MODEL == VALUE_DIALOG
  368. ##--BEGIN-- @QUERY_APPL_COMMENT == VALUE_VERBOSE
  369. //////////////////////////////////////////////////////////
  370. // [[TApplication]]
  371. // =====
  372. // Application instance initialization.
  373. //
  374. ##--END-- @QUERY_APPL_COMMENT == VALUE_VERBOSE
  375. void [[TApplication]]::InitInstance ()
  376. {
  377.     TApplication::InitInstance();
  378.     GetDocManager()->CreateAnyDoc(0, dtNewDoc);
  379. }
  380.  
  381.  
  382. ##--END-- @QUERY_APPL_MODEL == VALUE_DIALOG
  383. ##--BEGIN-- @QUERY_APPL_COMMENT == VALUE_VERBOSE
  384. //////////////////////////////////////////////////////////
  385. // [[TApplication]]
  386. // =====
  387. // Response Table handlers:
  388. //
  389. ##--END-- @QUERY_APPL_COMMENT == VALUE_VERBOSE
  390. void [[TApplication]]::EvNewView (TView& view)
  391. {
  392.     GetMainWindow()->SetClientWindow(view.GetWindow());
  393.     if (!view.IsOK())
  394.         GetMainWindow()->SetClientWindow(0);
  395.     else if (view.GetViewMenu())
  396.         GetMainWindow()->MergeMenu(*view.GetViewMenu());
  397. ##--BEGIN-- ((@QUERY_APPL_OLE == VALUE_SERVER) || (@QUERY_APPL_OLE == VALUE_OLEBOTH))
  398.  
  399.     TOleView* ov = TYPESAFE_DOWNCAST(&view, TOleView);
  400.     if (!ov || !ov->GetOcRemView())
  401.         OcApp->SetOption(amEmbedding, false);
  402. ##--END-- ((@QUERY_APPL_OLE == VALUE_SERVER) || (@QUERY_APPL_OLE == VALUE_OLEBOTH))
  403. }
  404.  
  405.  
  406. void [[TApplication]]::EvCloseView (TView&)
  407. {
  408.     GetMainWindow()->SetClientWindow(0);
  409. ##QUERY_WIND_TITLE [[Title]]
  410.     GetMainWindow()->SetCaption("[[Title]]");
  411. }
  412.  
  413.  
  414. //{{SDIDecFrame Implementation}}
  415.  
  416.  
  417. ##@QUERY_APPL_OLE != VALUE_NOOLE 2
  418. SDIDecFrame::SDIDecFrame (TWindow *, const char far *title, TWindow *clientWnd, bool trackMenuSelection, TModule *module)
  419.     : TOleFrame(title, clientWnd, trackMenuSelection, module)
  420. ##@QUERY_APPL_OLE == VALUE_NOOLE 2
  421. SDIDecFrame::SDIDecFrame (TWindow *parent, const char far *title, TWindow *clientWnd, bool trackMenuSelection, TModule *module)
  422.     : TDecoratedFrame(parent, title, clientWnd, trackMenuSelection, module)
  423. {
  424.     // INSERT>> Your constructor code here.
  425.  
  426. }
  427.  
  428.  
  429. SDIDecFrame::~SDIDecFrame ()
  430. {
  431.     // INSERT>> Your destructor code here.
  432.  
  433. }
  434. ##--BEGIN-- @OPT_APPL_PRINTING
  435.  
  436.  
  437. ##--BEGIN-- @QUERY_APPL_COMMENT == VALUE_VERBOSE
  438. //////////////////////////////////////////////////////////
  439. // [[TApplication]]
  440. // ==========
  441. // Menu File Print command
  442. ##--END-- @QUERY_APPL_COMMENT == VALUE_VERBOSE
  443. void [[TApplication]]::CmFilePrint ()
  444. {
  445. ##--BEGIN-- @QUERY_APPL_COMMENT == VALUE_VERBOSE
  446.     //
  447.     // Create Printer object if not already created.
  448.     // 
  449. ##--END-- @QUERY_APPL_COMMENT == VALUE_VERBOSE
  450.     if (!Printer)
  451.         Printer = new TPrinter(this);
  452.  
  453. ##--BEGIN-- @QUERY_APPL_COMMENT == VALUE_VERBOSE
  454.     //
  455.     // Create Printout window and set characteristics.
  456.     //
  457. ##--END-- @QUERY_APPL_COMMENT == VALUE_VERBOSE
  458.     APXPrintOut printout(Printer, "Title", GetMainWindow()->GetClientWindow());
  459.     printout.SetBanding(true);
  460.  
  461.     Printing++;
  462.  
  463. ##--BEGIN-- @QUERY_APPL_COMMENT == VALUE_VERBOSE
  464.     //
  465.     // Bring up the Print dialog and print the document.
  466.     //
  467. ##--END-- @QUERY_APPL_COMMENT == VALUE_VERBOSE
  468.     Printer->Print(GetWindowPtr(GetActiveWindow()), printout, true);
  469.  
  470.     Printing--;
  471. }
  472.  
  473.  
  474. ##--BEGIN-- @QUERY_APPL_COMMENT == VALUE_VERBOSE
  475. //////////////////////////////////////////////////////////
  476. // [[TApplication]]
  477. // ==========
  478. // Menu File Print Setup command
  479. ##--END-- @QUERY_APPL_COMMENT == VALUE_VERBOSE
  480. void [[TApplication]]::CmFilePrintSetup ()
  481. {
  482.     if (!Printer)
  483.         Printer = new TPrinter(this);
  484.  
  485. ##--BEGIN-- @QUERY_APPL_COMMENT == VALUE_VERBOSE
  486.     //
  487.     // Bring up the Print Setup dialog.
  488.     //
  489. ##--END-- @QUERY_APPL_COMMENT == VALUE_VERBOSE
  490.     Printer->Setup(GetMainWindow());
  491. }
  492.  
  493.  
  494. ##--BEGIN-- @QUERY_APPL_COMMENT == VALUE_VERBOSE
  495. //////////////////////////////////////////////////////////
  496. // [[TApplication]]
  497. // ==========
  498. // Menu File Print Preview command
  499. ##--END-- @QUERY_APPL_COMMENT == VALUE_VERBOSE
  500. void [[TApplication]]::CmFilePrintPreview ()
  501. {
  502.     SDIDecFrame *sdiFrame = TYPESAFE_DOWNCAST(GetMainWindow(), SDIDecFrame); 
  503.     if (sdiFrame) {
  504.         if (!Printer)
  505.             Printer = new TPrinter(this);
  506.  
  507.         Printing++;
  508.  
  509.         PreviewWindow *prevW = new PreviewWindow(sdiFrame, Printer, sdiFrame->GetClientWindow(), "Print Preview", new TLayoutWindow(0));
  510.         prevW->Create();
  511.  
  512.         BeginModal(GetMainWindow());
  513.  
  514.         Printing--;
  515.  
  516. ##@QUERY_APPL_COMMENT == VALUE_VERBOSE
  517.         // Now that printing is off we can invalidate because the edit window to repaint.
  518.         GetMainWindow()->SetRedraw(true);
  519.         GetMainWindow()->Invalidate();
  520.  
  521. ##@QUERY_APPL_COMMENT == VALUE_VERBOSE 2
  522.         // We must destroy the preview window explicitly.  Otherwise, the window will not be destroyed until
  523.         // it's parent the MainWindow is destroyed.
  524.         prevW->Destroy();
  525.         delete prevW;
  526.     }
  527. }
  528.  
  529.  
  530. ##--BEGIN-- @QUERY_APPL_COMMENT == VALUE_VERBOSE
  531. //////////////////////////////////////////////////////////
  532. // [[TApplication]]
  533. // ==========
  534. // Menu enabler used by Print, Print Setup and Print Preview.
  535. ##--END-- @QUERY_APPL_COMMENT == VALUE_VERBOSE
  536. void [[TApplication]]::CmPrintEnable (TCommandEnabler &tce)
  537. {
  538. ##--BEGIN-- @QUERY_APPL_COMMENT == VALUE_VERBOSE
  539.     // If we have a Printer already created just test if all is okay.
  540.     // Otherwise create a Printer object and make sure the printer
  541.     // really exists and then delete the Printer object.
  542. ##--END-- @QUERY_APPL_COMMENT == VALUE_VERBOSE
  543.     if (!Printer) {
  544.         Printer = new TPrinter(this);
  545.         
  546.         tce.Enable(Printer->GetSetup().Error == 0);
  547.     } else
  548.         tce.Enable(Printer->GetSetup().Error == 0);
  549. }
  550. ##--END-- @OPT_APPL_PRINTING
  551. ##--END-- (@QUERY_APPL_MODEL == VALUE_SDI)
  552. ##--BEGIN-- @OPT_APPL_HELP
  553.  
  554.  
  555. ##--BEGIN-- @QUERY_APPL_COMMENT == VALUE_VERBOSE
  556. //////////////////////////////////////////////////////////
  557. // [[TApplication]]
  558. // =====
  559. // Menu Help Contents command
  560. ##--END-- @QUERY_APPL_COMMENT == VALUE_VERBOSE
  561. void [[TApplication]]::CmHelpContents ()
  562. {
  563. ##--BEGIN-- @QUERY_APPL_COMMENT == VALUE_VERBOSE
  564.     //
  565.     // Show the help table of contents.
  566.     //
  567. ##--END-- @QUERY_APPL_COMMENT == VALUE_VERBOSE
  568.     HelpState = GetMainWindow()->WinHelp(HelpFileName, HELP_CONTENTS, 0L);
  569. }
  570.  
  571.  
  572. ##--BEGIN-- @QUERY_APPL_COMMENT == VALUE_VERBOSE
  573. //////////////////////////////////////////////////////////
  574. // [[TApplication]]
  575. // =====
  576. // Menu Help Using Help command
  577. ##--END-- @QUERY_APPL_COMMENT == VALUE_VERBOSE
  578. void [[TApplication]]::CmHelpUsing ()
  579. {
  580. ##--BEGIN-- @QUERY_APPL_COMMENT == VALUE_VERBOSE
  581.     //
  582.     // Display the contents of the Windows help file.
  583.     //
  584. ##--END-- @QUERY_APPL_COMMENT == VALUE_VERBOSE
  585.     HelpState = GetMainWindow()->WinHelp(HelpFileName, HELP_HELPONHELP, 0L);
  586. }
  587. ##--END-- @OPT_APPL_HELP
  588.  
  589.  
  590. ##--BEGIN-- @QUERY_APPL_COMMENT == VALUE_VERBOSE
  591. //////////////////////////////////////////////////////////
  592. // [[TApplication]]
  593. // ===========
  594. ##--END-- @QUERY_APPL_COMMENT == VALUE_VERBOSE
  595. ##@QUERY_TARGET_NAME [[Target]]
  596. // Menu Help About [[Target]] command
  597. void [[TApplication]]::CmHelpAbout ()
  598. {
  599. ##"" [[TDialog]]
  600. ##--BEGIN-- ((@QUERY_APPL_MODEL != VALUE_DIALOG) || ((@QUERY_APPL_MODEL == VALUE_DIALOG) && @QUERY_APPL_DLGCLIENT_MENU))
  601. ##      --BEGIN-- @QUERY_APPL_COMMENT == VALUE_VERBOSE
  602.     //
  603.     // Show the modal dialog.
  604.     //
  605. ##      --END-- @QUERY_APPL_COMMENT == VALUE_VERBOSE
  606. ##      :<<TDialog QUERY_CLASS_NAME TDialog
  607. ##((@QUERY_APPL_OLE == VALUE_SERVER) || (@QUERY_APPL_OLE == VALUE_OLEBOTH))
  608.     [[TDialog]](&TWindow(::GetFocus(), this)).Execute();
  609. ##((@QUERY_APPL_OLE != VALUE_SERVER) && (@QUERY_APPL_OLE != VALUE_OLEBOTH))
  610.     [[TDialog]](GetMainWindow()).Execute();
  611. ##--END-- ((@QUERY_APPL_MODEL != VALUE_DIALOG) || ((@QUERY_APPL_MODEL == VALUE_DIALOG) && @QUERY_APPL_DLGCLIENT_MENU))
  612. }
  613. ##--BEGIN-- @OPT_APPL_DRAGDROP
  614.  
  615.  
  616. void [[TApplication]]::InitInstance ()
  617. {
  618.     TApplication::InitInstance();
  619.  
  620. ##:@QUERY_APPL_COMMENT == VALUE_VERBOSE
  621.     // Accept files via drag/drop in the frame window.
  622.     GetMainWindow()->DragAcceptFiles(true);
  623. }
  624.  
  625.  
  626. void [[TApplication]]::EvDropFiles (TDropInfo drop)
  627. {
  628. ##@QUERY_APPL_COMMENT == VALUE_VERBOSE
  629.     // Tell DragQueryFile the file interested in (0) and the length of your buffer.
  630.     int     fileLength = drop.DragQueryFileNameLen(0) + 1;
  631.     char    *fileName = new char[fileLength];
  632.  
  633.     drop.DragQueryFile(0, fileName, fileLength);
  634.  
  635. ##@QUERY_APPL_COMMENT == VALUE_VERBOSE
  636.     // Open the file that was dropped.
  637.     AddFile(fileName);
  638. ##@QUERY_APPL_COMMENT == VALUE_VERBOSE
  639.     // Release the memory allocated for this handle with DragFinish.
  640.     drop.DragFinish();
  641. }
  642.  
  643.  
  644. void [[TApplication]]::AddFile (const char *FileName)
  645. {
  646.     TDocTemplate* tpl = GetDocManager()->MatchTemplate(FileName);
  647.     if (tpl)
  648.       tpl->CreateDoc(FileName);
  649. }
  650. ##--END-- @OPT_APPL_DRAGDROP
  651.  
  652.  
  653. ##{main.owl}
  654.