home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 May / Pcwk5b98.iso / Borland / Cplus45 / BC45 / EXPERT.PAK / CMDI.OWL < prev    next >
Text File  |  1995-08-29  |  13KB  |  403 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. ##<<TDialog QUERY_FILE_H [[Filename]]
  13. #include "[[Filename]]"                        // Definition of about dialog.       
  14.  
  15.  
  16. ##--BEGIN-- @OPT_APPL_HELP
  17. ##--BEGIN-- @QUERY_APPL_COMMENT == VALUE_VERBOSE
  18. //
  19. // Generated help file.
  20. //
  21. ##--END-- @QUERY_APPL_COMMENT == VALUE_VERBOSE
  22. ##@QUERY_APPL_HELP [[HelpFile]]
  23. const char HelpFileName[] = "[[HelpFile]].hlp";
  24.  
  25.  
  26. ##--END-- @OPT_APPL_HELP
  27. ##{cdragdrp.owl}
  28. //{{[[TApplication]] Implementation}}
  29.  
  30.  
  31. ##--BEGIN-- @QUERY_APPL_OLE_AUTO 
  32. //
  33. // OLE's ITypeInfo browses this symbol table for a list of all data,
  34. // properties, and methods exposed by this automated class.
  35. //
  36. DEFINE_AUTOCLASS([[TApplication]])
  37.     EXPOSE_APPLICATION([[TApplication]], "Application", "Application object", 0)
  38.     EXPOSE_QUIT("Quit", "Quit application", 0)
  39. //{{[[TApplication]]SYM_TBL_BEGIN}}
  40. //{{[[TApplication]]SYM_TBL_END}}
  41. END_AUTOCLASS([[TApplication]], tfAppObject | tfCanCreate, "[[TApplication]]", 0, 0);
  42.  
  43.  
  44. DEFINE_APP_DICTIONARY(AppDictionary);
  45. static TPointer<TRegistrar> Registrar;
  46.  
  47. REGISTRATION_FORMAT_BUFFER(100)
  48.  
  49. BEGIN_REGISTRATION(ApplicationReg)
  50. ##@QUERY_OLE_GUID [[GUID]]
  51.     REGDATA(clsid, "{[[GUID]]}")
  52. ##--BEGIN-- @QUERY_PRJ_NAME [[AppTitle]]
  53.     REGDATA(progid, "[[AppTitle]].Application.1")
  54.     REGDATA(appname, "[[AppTitle]] Server")
  55.     REGDATA(description, "[[AppTitle]] Server Application")
  56.     REGDATA(cmdline, "/Automation")
  57. //    REGDATA(debugger, "TDW")
  58. ##--END-- @QUERY_PRJ_NAME [[AppTitle]]
  59. END_REGISTRATION
  60.  
  61.  
  62. ##--END-- @QUERY_APPL_OLE_AUTO 
  63. ##--BEGIN-- @QUERY_APPL_COMMENT == VALUE_VERBOSE
  64. //
  65. // Build a response table for all messages/commands handled
  66. // by the application.
  67. //
  68. ##--END-- @QUERY_APPL_COMMENT == VALUE_VERBOSE
  69. DEFINE_RESPONSE_TABLE1([[TApplication]], TApplication)
  70. //{{[[TApplication]]RSP_TBL_BEGIN}}
  71. ##@OPT_APPL_HELP 2
  72. ##:DBResponse(\\"[[TApplication]]", "CM_HELPCONTENTS", "CmHelpContents", "", "COMMAND")
  73. ##:DBResponse(\\"[[TApplication]]", "CM_HELPUSING", "CmHelpUsing", "", "COMMAND")
  74.     EV_COMMAND(CM_HELPCONTENTS, CmHelpContents),
  75.     EV_COMMAND(CM_HELPUSING, CmHelpUsing),
  76. ##:DBResponse(\\"[[TApplication]]", "CM_HELPABOUT", "CmHelpAbout", "", "COMMAND")
  77.     EV_COMMAND(CM_HELPABOUT, CmHelpAbout),
  78. ##@OPT_APPL_DRAGDROP
  79. ##:DBResponse(\\"[[TApplication]]", "", "", "WM_DROPFILES", "")
  80.     EV_WM_DROPFILES,
  81. ##@OPT_APPL_PRINTING
  82. ##:DBResponse(\\"[[TApplication]]", "", "", "WM_WININICHANGE", "")
  83.     EV_WM_WININICHANGE,
  84. //{{[[TApplication]]RSP_TBL_END}}
  85. END_RESPONSE_TABLE;
  86.  
  87.  
  88. ##--BEGIN-- @QUERY_APPL_COMMENT == VALUE_VERBOSE
  89. //////////////////////////////////////////////////////////
  90. // [[TApplication]]
  91. // =====
  92. //
  93. ##--END-- @QUERY_APPL_COMMENT == VALUE_VERBOSE
  94. ##@QUERY_APPL_OLE_AUTO
  95. [[TApplication]]::[[TApplication]] () : TApplication(::ApplicationReg["appname"], ::Module, &::AppDictionary)
  96. ##!@QUERY_APPL_OLE_AUTO
  97. ##QUERY_WIND_TITLE [[Title]]
  98. [[TApplication]]::[[TApplication]] () : TApplication("[[Title]]")
  99. {
  100. ##@OPT_APPL_HELP 3
  101.     HelpState = false;
  102.     ContextHelp = false;
  103.     HelpCursor = 0;
  104.  
  105. ##@OPT_APPL_PRINTING 3
  106.     Printer = 0;
  107.     Printing = 0;
  108.  
  109.     // INSERT>> Your constructor code here.
  110. }
  111.  
  112.  
  113. [[TApplication]]::~[[TApplication]] ()
  114. {
  115. ##@OPT_APPL_PRINTING 3
  116.     if (Printer)
  117.         delete Printer;
  118.  
  119.     // INSERT>> Your destructor code here.
  120. }
  121.  
  122.  
  123. ##--BEGIN-- @OPT_APPL_HELP
  124. bool [[TApplication]]::CanClose ()
  125. {
  126.     bool result = TApplication::CanClose();
  127.  
  128. ##--BEGIN-- @QUERY_APPL_COMMENT == VALUE_VERBOSE
  129.     //
  130.     // Close the help engine if we used it.
  131.     //
  132. ##--END-- @QUERY_APPL_COMMENT == VALUE_VERBOSE
  133.     if (result && HelpState)
  134.         GetMainWindow()->WinHelp(HelpFileName, HELP_QUIT, 0L);
  135.  
  136.     return result;
  137. }
  138.  
  139.  
  140. ##--END-- @OPT_APPL_HELP
  141. ##--BEGIN-- @OPT_APPL_TOOLBAR
  142. void [[TApplication]]::SetupSpeedBar (TDecoratedMDIFrame *frame)
  143. { 
  144. ##--BEGIN-- @QUERY_APPL_COMMENT == VALUE_VERBOSE
  145.     //
  146.     // Create default toolbar New and associate toolbar buttons with commands.
  147.     //   
  148. ##--END-- @QUERY_APPL_COMMENT == VALUE_VERBOSE
  149.     TControlBar* cb = new TControlBar(frame);
  150.     cb->Insert(*new TButtonGadget(CM_MDIFILENEW, CM_MDIFILENEW));
  151.     cb->Insert(*new TButtonGadget(CM_MDIFILEOPEN, CM_MDIFILEOPEN));
  152.     cb->Insert(*new TButtonGadget(CM_FILESAVE, CM_FILESAVE));
  153.     cb->Insert(*new TSeparatorGadget(6));
  154.     cb->Insert(*new TButtonGadget(CM_EDITCUT, CM_EDITCUT));
  155.     cb->Insert(*new TButtonGadget(CM_EDITCOPY, CM_EDITCOPY));
  156.     cb->Insert(*new TButtonGadget(CM_EDITPASTE, CM_EDITPASTE));
  157.     cb->Insert(*new TSeparatorGadget(6));
  158.     cb->Insert(*new TButtonGadget(CM_EDITUNDO, CM_EDITUNDO));
  159.     cb->Insert(*new TSeparatorGadget(6));
  160.     cb->Insert(*new TButtonGadget(CM_EDITFIND, CM_EDITFIND));
  161.     cb->Insert(*new TButtonGadget(CM_EDITFINDNEXT, CM_EDITFINDNEXT));
  162. ##@OPT_APPL_PRINTING 3
  163.     cb->Insert(*new TSeparatorGadget(6));
  164.     cb->Insert(*new TButtonGadget(CM_FILEPRINT, CM_FILEPRINT));
  165.     cb->Insert(*new TButtonGadget(CM_FILEPRINTPREVIEW, CM_FILEPRINTPREVIEW));
  166. ##@OPT_APPL_HELP 2
  167.     cb->Insert(*new TSeparatorGadget(6));
  168.     cb->Insert(*new TButtonGadget(CM_HELPCONTENTS, CM_HELPCONTENTS));
  169.  
  170. ##@QUERY_APPL_COMMENT == VALUE_VERBOSE
  171.     // Add fly-over help hints.
  172.     cb->SetHintMode(TGadgetWindow::EnterHints);
  173.  
  174.     frame->Insert(*cb, TDecoratedFrame::Top);
  175. }
  176.  
  177.  
  178. ##--END-- @OPT_APPL_TOOLBAR
  179. ##--BEGIN-- @QUERY_APPL_COMMENT == VALUE_VERBOSE
  180. //////////////////////////////////////////////////////////
  181. // [[TApplication]]
  182. // =====
  183. // Application intialization.
  184. //
  185. ##--END-- @QUERY_APPL_COMMENT == VALUE_VERBOSE
  186. void [[TApplication]]::InitMainWindow ()
  187. {
  188.     if (nCmdShow != SW_HIDE)
  189. ##@QUERY_APPL_STARTUP == VALUE_NORMAL
  190.         nCmdShow = (nCmdShow != SW_SHOWMINNOACTIVE) ? SW_SHOWNORMAL : nCmdShow;
  191. ##@QUERY_APPL_STARTUP == VALUE_MIN
  192.         nCmdShow = (nCmdShow != SW_SHOWMINNOACTIVE) ? SW_SHOWMINIMIZED : nCmdShow;
  193. ##@QUERY_APPL_STARTUP == VALUE_MAX
  194.         nCmdShow = (nCmdShow != SW_SHOWMINNOACTIVE) ? SW_SHOWMAXIMIZED : nCmdShow;
  195.  
  196. ##<<TMDIClient QUERY_CLASS_NAME [[TMDIClient]]
  197.     mdiClient = new [[TMDIClient]];
  198. ##@OPT_APPL_STATUSBAR
  199.     TDecoratedMDIFrame* frame = new TDecoratedMDIFrame(Name, MDI_MENU, *mdiClient, true);
  200. ##!@OPT_APPL_STATUSBAR
  201.     TDecoratedMDIFrame* frame = new TDecoratedMDIFrame(Name, MDI_MENU, *mdiClient, false);
  202.  
  203. ##QUERY_WIND_STYLE [[StyleAttributes]]
  204. ##StyleAttributes != "" 3
  205.     // Override the default window style for the main window.
  206. [[StyleAttributes]]
  207.  
  208. ##--BEGIN-- QUERY_WIND_BACKGRND [[BackgroundColor]]
  209. ##BackgroundColor != "" 3
  210.     // Change the window's background color
  211.     frame->SetBkgndColor([[BackgroundColor]]);
  212.  
  213. ##BackgroundColor == "" 3
  214.     // Set the client area to the application workspace color.
  215.     frame->SetBkgndColor(::GetSysColor(COLOR_APPWORKSPACE));
  216.  
  217. ##--END-- QUERY_WIND_BACKGRND [[BackgroundColor]]
  218. ##--BEGIN-- @QUERY_APPL_COMMENT == VALUE_VERBOSE
  219.     //
  220.     // Assign ICON w/ this application.
  221.     //
  222. ##--END-- @QUERY_APPL_COMMENT == VALUE_VERBOSE
  223.     frame->SetIcon(this, IDI_MDIAPPLICATION);
  224.  
  225. ##--BEGIN-- @QUERY_APPL_COMMENT == VALUE_VERBOSE
  226.     //
  227.     // Menu associated with window and accelerator table associated with table.
  228.     //
  229. ##--END-- @QUERY_APPL_COMMENT == VALUE_VERBOSE
  230.     frame->AssignMenu(MDI_MENU);
  231.     
  232. ##--BEGIN-- @QUERY_APPL_COMMENT == VALUE_VERBOSE
  233.     //
  234.     // Associate with the accelerator table.
  235.     //
  236. ##--END-- @QUERY_APPL_COMMENT == VALUE_VERBOSE
  237. ##@QUERY_APPL_MODEL == VALUE_MDI
  238.     frame->Attr.AccelTable = MDI_MENU;
  239. ##@QUERY_APPL_MODEL == VALUE_SDI
  240.     frame->Attr.AccelTable = SDI_MENU;
  241.  
  242. ##@OPT_APPL_TOOLBAR
  243.     SetupSpeedBar(frame);
  244. ##@OPT_APPL_STATUSBAR 7
  245.  
  246.     TStatusBar *sb = new TStatusBar(frame, TGadget::Recessed,
  247.                                     TStatusBar::CapsLock        |
  248.                                     TStatusBar::NumLock         |
  249.                                     TStatusBar::ScrollLock      |
  250.                                     TStatusBar::Overtype);
  251.     frame->Insert(*sb, TDecoratedFrame::Bottom);
  252.   
  253.     SetMainWindow(frame);
  254.  
  255.     frame->SetMenuDescr(TMenuDescr(MDI_MENU));
  256. ##--BEGIN-- @QUERY_APPL_CONTROL==VALUE_3D
  257.  
  258. ##--BEGIN-- @QUERY_APPL_COMMENT == VALUE_VERBOSE
  259.     //
  260.     // Windows 3-D controls.
  261.     //
  262. ##--END-- @QUERY_APPL_COMMENT == VALUE_VERBOSE
  263.     EnableCtl3d(true);
  264. ##--END-- @QUERY_APPL_CONTROL==VALUE_3D
  265. ##--BEGIN-- @QUERY_APPL_CONTROL==VALUE_BWCC
  266.  
  267. ##--BEGIN-- @QUERY_APPL_COMMENT == VALUE_VERBOSE
  268.     //
  269.     // Borland Windows custom controls.
  270.     //
  271. ##--END-- @QUERY_APPL_COMMENT == VALUE_VERBOSE
  272.     EnableBWCC();
  273. ##--END-- @QUERY_APPL_CONTROL==VALUE_BWCC
  274. }
  275. ##--BEGIN-- @OPT_APPL_HELP
  276.  
  277.  
  278. ##--BEGIN-- @QUERY_APPL_COMMENT == VALUE_VERBOSE
  279. //////////////////////////////////////////////////////////
  280. // [[TApplication]]
  281. // =====
  282. // Menu Help Contents command
  283. ##--END-- @QUERY_APPL_COMMENT == VALUE_VERBOSE
  284. void [[TApplication]]::CmHelpContents ()
  285. {
  286. ##--BEGIN-- @QUERY_APPL_COMMENT == VALUE_VERBOSE
  287.     //
  288.     // Show the help table of contents.
  289.     //
  290. ##--END-- @QUERY_APPL_COMMENT == VALUE_VERBOSE
  291.     HelpState = GetMainWindow()->WinHelp(HelpFileName, HELP_CONTENTS, 0L);
  292. }
  293.  
  294.  
  295. ##--BEGIN-- @QUERY_APPL_COMMENT == VALUE_VERBOSE
  296. //////////////////////////////////////////////////////////
  297. // [[TApplication]]
  298. // =====
  299. // Menu Help Using Help command
  300. ##--END-- @QUERY_APPL_COMMENT == VALUE_VERBOSE
  301. void [[TApplication]]::CmHelpUsing ()
  302. {
  303. ##--BEGIN-- @QUERY_APPL_COMMENT == VALUE_VERBOSE
  304.     //
  305.     // Display the contents of the Windows help file.
  306.     //
  307. ##--END-- @QUERY_APPL_COMMENT == VALUE_VERBOSE
  308.     HelpState = GetMainWindow()->WinHelp(HelpFileName, HELP_HELPONHELP, 0L);
  309. }
  310. ##--END-- @OPT_APPL_HELP
  311.  
  312.  
  313. ##--BEGIN-- @QUERY_APPL_COMMENT == VALUE_VERBOSE
  314. //////////////////////////////////////////////////////////
  315. // [[TApplication]]
  316. // ===========
  317. ##--END-- @QUERY_APPL_COMMENT == VALUE_VERBOSE
  318. ##@QUERY_TARGET_NAME [[Target]]
  319. // Menu Help About [[Target]] command
  320. void [[TApplication]]::CmHelpAbout ()
  321. {
  322. ##--BEGIN-- @QUERY_APPL_COMMENT == VALUE_VERBOSE
  323.     //
  324.     // Show the modal dialog.
  325.     //
  326. ##--END-- @QUERY_APPL_COMMENT == VALUE_VERBOSE
  327. ##<<TDialog QUERY_CLASS_NAME [[TDialog]]
  328.     [[TDialog]](MainWindow).Execute();
  329. }
  330. ##--BEGIN-- @OPT_APPL_DRAGDROP
  331.  
  332.  
  333. void [[TApplication]]::InitInstance ()
  334. {
  335.     TApplication::InitInstance();
  336.  
  337. ##:@QUERY_APPL_COMMENT == VALUE_VERBOSE
  338.     // Accept files via drag/drop in the frame window.
  339.     GetMainWindow()->DragAcceptFiles(true);
  340. }
  341.  
  342.  
  343. void [[TApplication]]::EvDropFiles (TDropInfo drop)
  344. {
  345. ##@QUERY_APPL_COMMENT == VALUE_VERBOSE
  346.     // Number of files dropped.
  347.     int totalNumberOfFiles = drop.DragQueryFileCount();
  348.  
  349.     TFileList* files = new TFileList;
  350.  
  351.     for (int i = 0; i < totalNumberOfFiles; i++) {
  352. ##@QUERY_APPL_COMMENT == VALUE_VERBOSE
  353.         // Tell DragQueryFile the file interested in (i) and the length of your buffer.
  354.         int     fileLength = drop.DragQueryFileNameLen(i) + 1;
  355.         char    *fileName = new char[fileLength];
  356.  
  357.         drop.DragQueryFile(i, fileName, fileLength);
  358.  
  359. ##--BEGIN-- @QUERY_APPL_COMMENT == VALUE_VERBOSE
  360.         // Getting the file dropped. The location is relative to your client coordinates,
  361.         // and will have negative values if dropped in the non client parts of the window.
  362.         //
  363.         // DragQueryPoint copies that point where the file was dropped and returns whether
  364.         // or not the point is in the client area.  Regardless of whether or not the file
  365.         // is dropped in the client or non-client area of the window, you will still receive
  366.         // the file name.
  367. ##--END-- @QUERY_APPL_COMMENT == VALUE_VERBOSE
  368.         TPoint  point;
  369.         bool    inClientArea = drop.DragQueryPoint(point);
  370.         files->Add(new TFileDrop(fileName, point, inClientArea, this));
  371.     }
  372.  
  373. ##@QUERY_APPL_COMMENT == VALUE_VERBOSE
  374.     // Open the files that were dropped.
  375.     AddFiles(files);
  376.  
  377. ##@QUERY_APPL_COMMENT == VALUE_VERBOSE
  378.     // Release the memory allocated for this handle with DragFinish.
  379.     drop.DragFinish();
  380. }
  381.  
  382.  
  383. void [[TApplication]]::AddFiles (TFileList* files)
  384. {
  385. ##@QUERY_APPL_COMMENT == VALUE_VERBOSE
  386.     // Open all files dragged in.
  387.     TFileListIter fileIter(*files);
  388.  
  389.     TFrameWindow *tfw = TYPESAFE_DOWNCAST(GetMainWindow(), TFrameWindow);
  390.     if (tfw) {
  391. ##<<TMDIClient QUERY_CLASS_NAME [[TMDIClient]]
  392.         [[TMDIClient]] *theClient = TYPESAFE_DOWNCAST(tfw->GetClientWindow(), [[TMDIClient]]);
  393.  
  394.         if (theClient)
  395.             while (fileIter) {
  396.                 theClient->OpenFile(fileIter.Current()->WhoAmI());
  397.                 fileIter++;
  398.             }
  399.     }
  400. }
  401. ##--END-- @OPT_APPL_DRAGDROP
  402. ##{main.owl}
  403.