home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 May / Pcwk5b98.iso / Borland / Cplus45 / BC45 / EXPERT.PAK / CMDIDOCV.OWL < prev    next >
Text File  |  1995-08-29  |  18KB  |  539 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. ##<<TMDIClient QUERY_FILE_H [[FileName]]
  11. #include "[[FileName]]"
  12. ##<<TMDIChild QUERY_FILE_H [[FileName]]
  13. #include "[[FileName]]"
  14. ##OPT_DV_RESET
  15. ##OPT_DV_NEXT
  16. ##QUERY_DV_TVIEW [[WindowClient]]
  17. ##<<*WindowClient QUERY_FILE_H [[FileName]]
  18. #include "[[FileName]]"
  19. ##<<TDialog QUERY_FILE_H [[Filename]]
  20. #include "[[Filename]]"                        // Definition of about dialog.       
  21.  
  22.  
  23. ##--BEGIN-- @OPT_APPL_HELP
  24. ##--BEGIN-- @QUERY_APPL_COMMENT == VALUE_VERBOSE
  25. //
  26. // Generated help file.
  27. //
  28. ##--END-- @QUERY_APPL_COMMENT == VALUE_VERBOSE
  29. ##@QUERY_APPL_HELP [[HelpFile]]
  30. const char HelpFileName[] = "[[HelpFile]].hlp";
  31.  
  32.  
  33. ##--END-- @OPT_APPL_HELP
  34. ##{cdragdrp.owl}
  35. //{{[[TApplication]] Implementation}}
  36.  
  37.  
  38. ##--BEGIN-- @QUERY_APPL_OLE_AUTO 
  39. //
  40. // OLE's ITypeInfo browses this symbol table for a list of all data,
  41. // properties, and methods exposed by this automated class.
  42. //
  43. ##@QUERY_APPL_OLE != VALUE_NOOLE
  44. DEFINE_AUTOAGGREGATE([[TApplication]], OcApp->Aggregate)
  45. ##@QUERY_APPL_OLE == VALUE_NOOLE
  46. DEFINE_AUTOCLASS([[TApplication]])
  47.     EXPOSE_APPLICATION([[TApplication]], "Application", "Application object", 0)
  48.     EXPOSE_QUIT("Quit", "Quit application", 0)
  49. //{{[[TApplication]]SYM_TBL_BEGIN}}
  50. //{{[[TApplication]]SYM_TBL_END}}
  51. ##@QUERY_APPL_OLE != VALUE_NOOLE
  52. END_AUTOAGGREGATE([[TApplication]], tfAppObject | tfCanCreate, "[[TApplication]]", 0, 0);
  53. ##@QUERY_APPL_OLE == VALUE_NOOLE
  54. END_AUTOCLASS([[TApplication]], tfAppObject | tfCanCreate, "[[TApplication]]", 0, 0);
  55.  
  56.  
  57. ##--END-- @QUERY_APPL_OLE_AUTO 
  58. ##((@QUERY_APPL_OLE != VALUE_NOOLE) || @QUERY_APPL_OLE_AUTO) 2
  59. DEFINE_APP_DICTIONARY(AppDictionary);
  60.  
  61. ##((@QUERY_APPL_OLE == VALUE_NOOLE) && @QUERY_APPL_OLE_AUTO)
  62. static TPointer<TRegistrar> Registrar;
  63. ##((@QUERY_APPL_OLE != VALUE_NOOLE)
  64. static TPointer<TOcRegistrar> Registrar;
  65.  
  66. ##--BEGIN-- ((@QUERY_APPL_OLE != VALUE_NOOLE) || @QUERY_APPL_OLE_AUTO)
  67. REGISTRATION_FORMAT_BUFFER(100)
  68.  
  69. BEGIN_REGISTRATION(ApplicationReg)
  70. ##@QUERY_OLE_GUID [[GUID]]
  71.     REGDATA(clsid, "{[[GUID]]}")
  72. ##--BEGIN-- @QUERY_PRJ_NAME [[AppTitle]]
  73. ##((@QUERY_APPL_OLE == VALUE_SERVER) || (@QUERY_APPL_OLE == VALUE_OLEBOTH) || @QUERY_APPL_OLE_AUTO) 2
  74.     REGDATA(appname, "[[AppTitle]] Server")
  75.     REGDATA(description, "[[AppTitle]] Server Application")
  76. ##((@QUERY_APPL_OLE == VALUE_CONTAINER) && !@QUERY_APPL_OLE_AUTO) 2
  77.     REGDATA(appname, "[[AppTitle]] Container")
  78.     REGDATA(description, "[[AppTitle]] Container Application")
  79. ##@QUERY_APPL_OLE_AUTO
  80.     REGDATA(progid, "[[AppTitle]].Application.1")
  81. ##--END-- @QUERY_PRJ_NAME [[AppTitle]]
  82. ##@QUERY_APPL_OLE_AUTO
  83.     REGDATA(cmdline, "/Automation")
  84. ##!@QUERY_APPL_OLE_AUTO
  85.     REGDATA(cmdline, "")
  86. ##((@QUERY_APPL_OLE == VALUE_SERVER) || (@QUERY_APPL_OLE == VALUE_OLEBOTH))
  87.     REGDATA(usage, ocrMultipleUse)
  88. ##--BEGIN-- @QUERY_APPL_OLE_AUTO
  89. //    REGDATA(debugger, "TDW")
  90. ##--END-- @QUERY_APPL_OLE_AUTO
  91. END_REGISTRATION
  92.  
  93. ##--END-- @QUERY_APPL_OLE != VALUE_NOOLE
  94. ##@QUERY_APPL_OLE != VALUE_NOOLE
  95. ##: {AddOleDV.SNP}
  96. ##*
  97. ##@QUERY_APPL_OLE == VALUE_NOOLE
  98. ##: {AddDocV.SNP}
  99. ##*
  100.  
  101.  
  102. ##--BEGIN-- @QUERY_APPL_COMMENT == VALUE_VERBOSE
  103. //
  104. // Build a response table for all messages/commands handled
  105. // by the application.
  106. //
  107. ##--END-- @QUERY_APPL_COMMENT == VALUE_VERBOSE
  108. DEFINE_RESPONSE_TABLE1([[TApplication]], TApplication)
  109. //{{[[TApplication]]RSP_TBL_BEGIN}}
  110.     EV_OWLVIEW(dnCreate, EvNewView),
  111.     EV_OWLVIEW(dnClose,  EvCloseView),
  112. ##:DBResponse(\\"[[TApplication]]", "CM_HELPABOUT", "CmHelpAbout", "", "COMMAND")
  113.     EV_COMMAND(CM_HELPABOUT, CmHelpAbout),
  114. ##@OPT_APPL_HELP 2
  115. ##:DBResponse(\\"[[TApplication]]", "CM_HELPCONTENTS", "CmHelpContents", "", "COMMAND")
  116. ##:DBResponse(\\"[[TApplication]]", "CM_HELPUSING", "CmHelpUsing", "", "COMMAND")
  117.     EV_COMMAND(CM_HELPCONTENTS, CmHelpContents),
  118.     EV_COMMAND(CM_HELPUSING, CmHelpUsing),
  119. ##@OPT_APPL_DRAGDROP
  120. ##:DBResponse(\\"[[TApplication]]", "", "", "WM_DROPFILES", "")
  121.     EV_WM_DROPFILES,
  122. ##@OPT_APPL_PRINTING
  123. ##:DBResponse(\\"[[TApplication]]", "", "", "WM_WININICHANGE", "")
  124.     EV_WM_WININICHANGE,
  125. //{{[[TApplication]]RSP_TBL_END}}
  126. END_RESPONSE_TABLE;
  127.  
  128.  
  129. ##--BEGIN-- @QUERY_APPL_COMMENT == VALUE_VERBOSE
  130. //////////////////////////////////////////////////////////
  131. // [[TApplication]]
  132. // =====
  133. //
  134. ##--END-- @QUERY_APPL_COMMENT == VALUE_VERBOSE
  135. ##((@QUERY_APPL_OLE == VALUE_NOOLE) && (@QUERY_APPL_OLE_AUTO))
  136. [[TApplication]]::[[TApplication]] () : TApplication(::ApplicationReg["appname"], ::Module, &::AppDictionary)
  137. ##@QUERY_APPL_OLE != VALUE_NOOLE
  138. [[TApplication]]::[[TApplication]] () : TApplication(::ApplicationReg["appname"], ::Module, &::AppDictionary)
  139. ##((@QUERY_APPL_OLE == VALUE_NOOLE) && (!@QUERY_APPL_OLE_AUTO))
  140. ##QUERY_WIND_TITLE [[Title]]
  141. [[TApplication]]::[[TApplication]] () : TApplication("[[Title]]")
  142. {
  143. ##@OPT_APPL_HELP 4
  144.     HelpState = false;
  145.     ContextHelp = false;
  146.     HelpCursor = 0;
  147.  
  148. ##@OPT_APPL_PRINTING 3
  149.     Printer = 0;
  150.     Printing = 0;
  151.  
  152.     SetDocManager(new TDocManager(dmMDI, this));
  153.  
  154.     // INSERT>> Your constructor code here.
  155. }
  156.  
  157.  
  158. [[TApplication]]::~[[TApplication]] ()
  159. {
  160. ##@OPT_APPL_PRINTING 3
  161.     if (Printer)
  162.         delete Printer;
  163.  
  164.     // INSERT>> Your destructor code here.
  165. }
  166.  
  167.  
  168. ##--BEGIN-- @OPT_APPL_HELP
  169. bool [[TApplication]]::CanClose ()
  170. {
  171.     bool result = TApplication::CanClose();
  172.  
  173. ##--BEGIN-- @QUERY_APPL_COMMENT == VALUE_VERBOSE
  174.     //
  175.     // Close the help engine if we used it.
  176.     //
  177. ##--END-- @QUERY_APPL_COMMENT == VALUE_VERBOSE
  178.     if (result && HelpState)
  179.         GetMainWindow()->WinHelp(HelpFileName, HELP_QUIT, 0L);
  180.  
  181.     return result;
  182. }
  183.  
  184.  
  185. ##--END-- @OPT_APPL_HELP
  186. ##--BEGIN-- @OPT_APPL_TOOLBAR
  187. void [[TApplication]]::CreateGadgets (TControlBar *cb, bool server)
  188. {
  189.     if (!server) {
  190.         cb->Insert(*new TButtonGadget(CM_MDIFILENEW, CM_MDIFILENEW));
  191.         cb->Insert(*new TButtonGadget(CM_MDIFILEOPEN, CM_MDIFILEOPEN));
  192.         cb->Insert(*new TButtonGadget(CM_FILESAVE, CM_FILESAVE));
  193.         cb->Insert(*new TSeparatorGadget(6));
  194.     }
  195.  
  196.     cb->Insert(*new TButtonGadget(CM_EDITCUT, CM_EDITCUT));
  197.     cb->Insert(*new TButtonGadget(CM_EDITCOPY, CM_EDITCOPY));
  198.     cb->Insert(*new TButtonGadget(CM_EDITPASTE, CM_EDITPASTE));
  199.     cb->Insert(*new TSeparatorGadget(6));
  200.     cb->Insert(*new TButtonGadget(CM_EDITUNDO, CM_EDITUNDO));
  201.     cb->Insert(*new TSeparatorGadget(6));
  202.     cb->Insert(*new TButtonGadget(CM_EDITFIND, CM_EDITFIND));
  203.     cb->Insert(*new TButtonGadget(CM_EDITFINDNEXT, CM_EDITFINDNEXT));
  204. ##--BEGIN-- @OPT_APPL_PRINTING
  205.  
  206.     if (!server) {
  207.         cb->Insert(*new TSeparatorGadget(6));
  208.         cb->Insert(*new TButtonGadget(CM_FILEPRINT, CM_FILEPRINT));
  209.         cb->Insert(*new TButtonGadget(CM_FILEPRINTPREVIEW, CM_FILEPRINTPREVIEW));
  210.     }
  211. ##--END-- @OPT_APPL_PRINTING
  212. ##@OPT_APPL_HELP 3
  213.  
  214.     cb->Insert(*new TSeparatorGadget(6));
  215.     cb->Insert(*new TButtonGadget(CM_HELPCONTENTS, CM_HELPCONTENTS));
  216.  
  217. ##@QUERY_APPL_COMMENT == VALUE_VERBOSE
  218.     // Add fly-over help hints.
  219.     cb->SetHintMode(TGadgetWindow::EnterHints);
  220. }
  221.  
  222.  
  223. ##@QUERY_APPL_OLE == VALUE_NOOLE
  224. void [[TApplication]]::SetupSpeedBar (TDecoratedMDIFrame *frame)
  225. ##@QUERY_APPL_OLE != VALUE_NOOLE
  226. void [[TApplication]]::SetupSpeedBar (TOleMDIFrame *frame)
  227. { 
  228. ##--BEGIN-- @QUERY_APPL_COMMENT == VALUE_VERBOSE
  229.     //
  230.     // Create default toolbar New and associate toolbar buttons with commands.
  231.     //   
  232. ##--END-- @QUERY_APPL_COMMENT == VALUE_VERBOSE
  233.     TControlBar* cb = new TControlBar(frame);
  234.     CreateGadgets(cb);
  235.  
  236. ##@QUERY_APPL_COMMENT == VALUE_VERBOSE
  237.     // Setup the toolbar ID used by OLE 2 for toolbar negotiation.
  238.     cb->Attr.Id = IDW_TOOLBAR;
  239.  
  240.     frame->Insert(*cb, TDecoratedFrame::Top);
  241. }
  242.  
  243.  
  244. ##--END-- @OPT_APPL_TOOLBAR
  245. ##--BEGIN-- @QUERY_APPL_COMMENT == VALUE_VERBOSE
  246. //////////////////////////////////////////////////////////
  247. // [[TApplication]]
  248. // =====
  249. // Application intialization.
  250. //
  251. ##--END-- @QUERY_APPL_COMMENT == VALUE_VERBOSE
  252. void [[TApplication]]::InitMainWindow ()
  253. {
  254.     if (nCmdShow != SW_HIDE)
  255. ##@QUERY_APPL_STARTUP == VALUE_NORMAL
  256.         nCmdShow = (nCmdShow != SW_SHOWMINNOACTIVE) ? SW_SHOWNORMAL : nCmdShow;
  257. ##@QUERY_APPL_STARTUP == VALUE_MIN
  258.         nCmdShow = (nCmdShow != SW_SHOWMINNOACTIVE) ? SW_SHOWMINIMIZED : nCmdShow;
  259. ##@QUERY_APPL_STARTUP == VALUE_MAX
  260.         nCmdShow = (nCmdShow != SW_SHOWMINNOACTIVE) ? SW_SHOWMAXIMIZED : nCmdShow;
  261.  
  262. ##<<TMDIClient QUERY_CLASS_NAME [[TMDIClient]]
  263.     mdiClient = new [[TMDIClient]](this);
  264. ##@OPT_APPL_STATUSBAR 2
  265. ##@QUERY_APPL_OLE != VALUE_NOOLE
  266.     TOleMDIFrame* frame = new TOleMDIFrame(Name, MDI_MENU, *mdiClient, true, this);
  267. ##@QUERY_APPL_OLE == VALUE_NOOLE
  268.     TDecoratedMDIFrame* frame = new TDecoratedMDIFrame(Name, MDI_MENU, *mdiClient, true, this);
  269. ##!@OPT_APPL_STATUSBAR 2
  270. ##@QUERY_APPL_OLE != VALUE_NOOLE
  271.     TOleMDIFrame* frame = new TOleMDIFrame(Name, MDI_MENU, *mdiClient, false, this);
  272. ##@QUERY_APPL_OLE == VALUE_NOOLE
  273.     TDecoratedMDIFrame* frame = new TDecoratedMDIFrame(Name, MDI_MENU, *mdiClient, false, this);
  274.  
  275. ##QUERY_WIND_STYLE [[StyleAttributes]]
  276. ##StyleAttributes != "" 3
  277.     // Override the default window style for the main window.
  278. [[StyleAttributes]]
  279.  
  280. ##QUERY_WIND_BACKGRND [[BackgroundColor]]
  281. ##BackgroundColor != "" 3
  282.     // Change the window's background color
  283.     frame->SetBkgndColor([[BackgroundColor]]);
  284.  
  285. ##--BEGIN-- ((@QUERY_APPL_OLE != VALUE_SERVER) && (@QUERY_APPL_OLE != VALUE_OLEBOTH))
  286. ##@QUERY_APPL_STARTUP == VALUE_NORMAL
  287.     nCmdShow = (nCmdShow != SW_SHOWMINNOACTIVE) ? SW_SHOWNORMAL : nCmdShow;
  288. ##@QUERY_APPL_STARTUP == VALUE_MIN
  289.     nCmdShow = (nCmdShow != SW_SHOWMINNOACTIVE) ? SW_SHOWMINIMIZED : nCmdShow;
  290. ##@QUERY_APPL_STARTUP == VALUE_MAX
  291.     nCmdShow = (nCmdShow != SW_SHOWMINNOACTIVE) ? SW_SHOWMAXIMIZED : nCmdShow;
  292.  
  293. ##--END-- ((@QUERY_APPL_OLE != VALUE_SERVER) && (@QUERY_APPL_OLE != VALUE_OLEBOTH))
  294. ##--BEGIN-- @QUERY_APPL_COMMENT == VALUE_VERBOSE
  295.     //
  296.     // Assign ICON w/ this application.
  297.     //
  298. ##--END-- @QUERY_APPL_COMMENT == VALUE_VERBOSE
  299.     frame->SetIcon(this, IDI_MDIAPPLICATION);
  300.  
  301. ##--BEGIN-- @QUERY_APPL_COMMENT == VALUE_VERBOSE
  302.     //
  303.     // Menu associated with window and accelerator table associated with table.
  304.     //
  305. ##--END-- @QUERY_APPL_COMMENT == VALUE_VERBOSE
  306.     frame->AssignMenu(MDI_MENU);
  307.     
  308. ##--BEGIN-- @QUERY_APPL_COMMENT == VALUE_VERBOSE
  309.     //
  310.     // Associate with the accelerator table.
  311.     //
  312. ##--END-- @QUERY_APPL_COMMENT == VALUE_VERBOSE
  313.     frame->Attr.AccelTable = MDI_MENU;
  314.  
  315. ##@OPT_APPL_TOOLBAR
  316.     SetupSpeedBar(frame);
  317. ##@OPT_APPL_STATUSBAR 7
  318.  
  319.     TStatusBar *sb = new TStatusBar(frame, TGadget::Recessed,
  320.                                     TStatusBar::CapsLock        |
  321.                                     TStatusBar::NumLock         |
  322.                                     TStatusBar::ScrollLock      |
  323.                                     TStatusBar::Overtype);
  324.     frame->Insert(*sb, TDecoratedFrame::Bottom);
  325.   
  326.     SetMainWindow(frame);
  327.  
  328.     frame->SetMenuDescr(TMenuDescr(MDI_MENU));
  329.  
  330. ##--BEGIN-- @QUERY_APPL_CONTROL==VALUE_3D
  331. ##--BEGIN-- @QUERY_APPL_COMMENT == VALUE_VERBOSE
  332.     //
  333.     // Windows 3-D controls.
  334.     //
  335. ##--END-- @QUERY_APPL_COMMENT == VALUE_VERBOSE
  336.     EnableCtl3d(true);
  337. ##--END-- @QUERY_APPL_CONTROL==VALUE_3D
  338. ##--BEGIN-- @QUERY_APPL_CONTROL==VALUE_BWCC
  339. ##--BEGIN-- @QUERY_APPL_COMMENT == VALUE_VERBOSE
  340.     //
  341.     // Borland Windows custom controls.
  342.     //
  343. ##--END-- @QUERY_APPL_COMMENT == VALUE_VERBOSE
  344.     EnableBWCC();
  345. ##--END-- @QUERY_APPL_CONTROL==VALUE_BWCC
  346. }
  347.  
  348.  
  349. ##--BEGIN-- @QUERY_APPL_COMMENT == VALUE_VERBOSE
  350. //////////////////////////////////////////////////////////
  351. // [[TApplication]]
  352. // =====
  353. // Response Table handlers:
  354. //
  355. ##--END-- @QUERY_APPL_COMMENT == VALUE_VERBOSE
  356. void [[TApplication]]::EvNewView (TView& view)
  357. {
  358. ##--BEGIN-- ((@QUERY_APPL_OLE == VALUE_SERVER) || (@QUERY_APPL_OLE == VALUE_OLEBOTH))
  359.     TOleView* ov = TYPESAFE_DOWNCAST(&view, TOleView);
  360.     // If  we're embedded and we're opening out of place then don't create the child window.
  361.     if (view.GetDocument().IsEmbedded() && ov && !ov->IsOpenEditing()) {
  362.         TWindow* vw = view.GetWindow();
  363.         vw->SetParent(TYPESAFE_DOWNCAST(GetMainWindow(), TOleFrame)->GetRemViewBucket());
  364.         vw->Create();
  365.     } else {
  366.         TMDIClient *mdiClient = TYPESAFE_DOWNCAST(GetMainWindow()->GetClientWindow(), TMDIClient);
  367.         if (mdiClient) {
  368. ##<<TMDIChild QUERY_CLASS_NAME [[TMDIChild]]
  369.             [[TMDIChild]]* child = new [[TMDIChild]](*mdiClient, 0, 0);
  370.  
  371. ##@QUERY_APPL_COMMENT == VALUE_VERBOSE
  372.             // Associate ICON w/ this child window.
  373.             child->SetIcon(this, IDI_DOC);
  374.  
  375. ##@QUERY_APPL_OLE != VALUE_NOOLE 3
  376.             if (view.GetViewMenu())
  377.                 child->SetMenuDescr(*view.GetViewMenu());
  378.  
  379.             child->Create();
  380.             child->SetClientWindow(view.GetWindow());
  381.         }
  382.     }
  383.  
  384.     if (!ov || !ov->GetOcRemView())
  385.         OcApp->SetOption(amEmbedding, false);
  386. ##--END-- ((@QUERY_APPL_OLE == VALUE_SERVER) || (@QUERY_APPL_OLE == VALUE_OLEBOTH))
  387. ##--BEGIN-- ((@QUERY_APPL_OLE != VALUE_SERVER) && (@QUERY_APPL_OLE != VALUE_OLEBOTH))
  388.     TMDIClient *mdiClient = TYPESAFE_DOWNCAST(GetMainWindow()->GetClientWindow(), TMDIClient);
  389.     if (mdiClient) {
  390. ##<<TMDIChild QUERY_CLASS_NAME [[TMDIChild]]
  391.         [[TMDIChild]]* child = new [[TMDIChild]](*mdiClient, 0, view.GetWindow());
  392.  
  393. ##@QUERY_APPL_COMMENT == VALUE_VERBOSE
  394.         // Associate ICON w/ this child window.
  395.         child->SetIcon(this, IDI_DOC);
  396.  
  397. ##@QUERY_APPL_OLE != VALUE_NOOLE 3
  398.         if (view.GetViewMenu())
  399.             child->SetMenuDescr(*view.GetViewMenu());
  400.  
  401.         child->Create();
  402.     }
  403. ##--END-- ((@QUERY_APPL_OLE != VALUE_SERVER) && (@QUERY_APPL_OLE != VALUE_OLEBOTH))
  404. }
  405.  
  406.  
  407. void [[TApplication]]::EvCloseView (TView&)
  408. {
  409. }
  410. ##--BEGIN-- @OPT_APPL_HELP
  411.  
  412.  
  413. ##--BEGIN-- @QUERY_APPL_COMMENT == VALUE_VERBOSE
  414. //////////////////////////////////////////////////////////
  415. // [[TApplication]]
  416. // =====
  417. // Menu Help Contents command
  418. ##--END-- @QUERY_APPL_COMMENT == VALUE_VERBOSE
  419. void [[TApplication]]::CmHelpContents ()
  420. {
  421. ##--BEGIN-- @QUERY_APPL_COMMENT == VALUE_VERBOSE
  422.     //
  423.     // Show the help table of contents.
  424.     //
  425. ##--END-- @QUERY_APPL_COMMENT == VALUE_VERBOSE
  426.     HelpState = GetMainWindow()->WinHelp(HelpFileName, HELP_CONTENTS, 0L);
  427. }
  428.  
  429.  
  430. ##--BEGIN-- @QUERY_APPL_COMMENT == VALUE_VERBOSE
  431. //////////////////////////////////////////////////////////
  432. // [[TApplication]]
  433. // =====
  434. // Menu Help Using Help command
  435. ##--END-- @QUERY_APPL_COMMENT == VALUE_VERBOSE
  436. void [[TApplication]]::CmHelpUsing ()
  437. {
  438. ##--BEGIN-- @QUERY_APPL_COMMENT == VALUE_VERBOSE
  439.     //
  440.     // Display the contents of the Windows help file.
  441.     //
  442. ##--END-- @QUERY_APPL_COMMENT == VALUE_VERBOSE
  443.     HelpState = GetMainWindow()->WinHelp(HelpFileName, HELP_HELPONHELP, 0L);
  444. }
  445. ##--END-- @OPT_APPL_HELP
  446.  
  447.  
  448. ##--BEGIN-- @QUERY_APPL_COMMENT == VALUE_VERBOSE
  449. //////////////////////////////////////////////////////////
  450. // [[TApplication]]
  451. // ===========
  452. ##--END-- @QUERY_APPL_COMMENT == VALUE_VERBOSE
  453. ##@QUERY_TARGET_NAME [[Target]]
  454. // Menu Help About [[Target]] command
  455. void [[TApplication]]::CmHelpAbout ()
  456. {
  457. ##--BEGIN-- @QUERY_APPL_COMMENT == VALUE_VERBOSE
  458.     //
  459.     // Show the modal dialog.
  460.     //
  461. ##--END-- @QUERY_APPL_COMMENT == VALUE_VERBOSE
  462. ##--BEGIN-- <<TDialog QUERY_CLASS_NAME [[TDialog]]
  463. ##((@QUERY_APPL_OLE == VALUE_SERVER) || (@QUERY_APPL_OLE == VALUE_OLEBOTH))
  464.     [[TDialog]](&TWindow(::GetFocus(), this)).Execute();
  465. ##((@QUERY_APPL_OLE != VALUE_SERVER) && (@QUERY_APPL_OLE != VALUE_OLEBOTH))
  466.     [[TDialog]](GetMainWindow()).Execute();
  467. ##--END-- <<TDialog QUERY_CLASS_NAME [[TDialog]]
  468. }
  469. ##--BEGIN-- @OPT_APPL_DRAGDROP
  470.  
  471.  
  472. void [[TApplication]]::InitInstance ()
  473. {
  474.     TApplication::InitInstance();
  475.  
  476. ##:@QUERY_APPL_COMMENT == VALUE_VERBOSE
  477.     // Accept files via drag/drop in the frame window.
  478.     GetMainWindow()->DragAcceptFiles(true);
  479. }
  480.  
  481.  
  482. void [[TApplication]]::EvDropFiles (TDropInfo drop)
  483. {
  484. ##@QUERY_APPL_COMMENT == VALUE_VERBOSE
  485.     // Number of files dropped.
  486.     int totalNumberOfFiles = drop.DragQueryFileCount();
  487.  
  488.     TFileList* files = new TFileList;
  489.  
  490.     for (int i = 0; i < totalNumberOfFiles; i++) {
  491. ##@QUERY_APPL_COMMENT == VALUE_VERBOSE
  492.         // Tell DragQueryFile the file interested in (i) and the length of your buffer.
  493.         int     fileLength = drop.DragQueryFileNameLen(i) + 1;
  494.         char    *fileName = new char[fileLength];
  495.  
  496.         drop.DragQueryFile(i, fileName, fileLength);
  497.  
  498. ##--BEGIN-- @QUERY_APPL_COMMENT == VALUE_VERBOSE
  499.         // Getting the file dropped. The location is relative to your client coordinates,
  500.         // and will have negative values if dropped in the non client parts of the window.
  501.         //
  502.         // DragQueryPoint copies that point where the file was dropped and returns whether
  503.         // or not the point is in the client area.  Regardless of whether or not the file
  504.         // is dropped in the client or non-client area of the window, you will still receive
  505.         // the file name.
  506. ##--END-- @QUERY_APPL_COMMENT == VALUE_VERBOSE
  507.         TPoint  point;
  508.         bool    inClientArea = drop.DragQueryPoint(point);
  509.         files->Add(new TFileDrop(fileName, point, inClientArea, this));
  510.     }
  511.  
  512. ##:@QUERY_APPL_COMMENT == VALUE_VERBOSE
  513.     // Open the files that were dropped.
  514.     AddFiles(files);
  515.  
  516. ##@QUERY_APPL_COMMENT == VALUE_VERBOSE
  517.     // Release the memory allocated for this handle with DragFinish.
  518.     drop.DragFinish();
  519. }
  520.  
  521.  
  522. void [[TApplication]]::AddFiles (TFileList* files)
  523. {
  524. ##@QUERY_APPL_COMMENT == VALUE_VERBOSE
  525.     // Open all files dragged in.
  526.     TFileListIter fileIter(*files);
  527.  
  528.     while (fileIter) {
  529.         TDocTemplate* tpl = GetDocManager()->MatchTemplate(fileIter.Current()->WhoAmI());
  530.         if (tpl)
  531.             tpl->CreateDoc(fileIter.Current()->WhoAmI());
  532.         fileIter++;
  533.     }
  534. }
  535. ##--END-- @OPT_APPL_DRAGDROP
  536.  
  537.  
  538. ##{main.owl}
  539.