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