home *** CD-ROM | disk | FTP | other *** search
- //----------------------------------------------------------------------------
- // ObjectWindows - (C) Copyright 1994 by Borland International
- // Tutorial application -- step16.cpp
- // Embed/Linking/Automation Server example
- //----------------------------------------------------------------------------
- #include <owl/owlpch.h>
- #include <owl/applicat.h>
- #include <owl/dialog.h>
- #include <owl/controlb.h>
- #include <owl/buttonga.h>
- #include <owl/listbox.h>
- #include <owl/statusba.h>
- #include <owl/docmanag.h>
- #include <owl/olemdifr.h>
- #include <owl/oledoc.h>
- #include <owl/oleview.h>
- #include <classlib/arrays.h>
- #include <ocf/automacr.h>
- #include <stdlib.h>
- #include <string.h>
- #include "step16.rc"
- #include "step16dv.h"
- #include "step16.h"
-
- DEFINE_APP_DICTIONARY(AppDictionary);
- static TPointer<TOcRegistrar> Registrar;
-
- // Registration
- //
- REGISTRATION_FORMAT_BUFFER(100)
-
- BEGIN_REGISTRATION(AppReg)
- REGDATA(clsid, "{5E4BD330-8ABC-101B-A23B-CE4E85D07ED2}")
- REGDATA(progid, "DrawPad.Application.16")
- REGDATA(description,"DrawPad AutoServer Application")
- REGDATA(appname, "DrawPad AutoServer")
- //REGDATA(debugger, "tdw")
- REGDATA(cmdline, "/automation")
- REGDATA(usage, ocrMultipleUse)
- END_REGISTRATION
-
- //
- // TDrawApp
- //
- DEFINE_RESPONSE_TABLE1(TDrawApp, TApplication)
- EV_OWLVIEW(dnCreate, EvNewView),
- EV_OWLVIEW(dnClose, EvCloseView),
- EV_WM_DROPFILES,
- EV_COMMAND(CM_ABOUT, CmAbout),
- END_RESPONSE_TABLE;
-
- DEFINE_AUTOAGGREGATE(TDrawApp, OcApp->Aggregate)
- EXPOSE_PROPRW(Visible, TAutoBool, "Visible", "Main window shown", 0)
- EXPOSE_METHOD(NewDoc, TDrawDocument,"NewDocument", "Create new document", 0)
- EXPOSE_METHOD(OpenDoc, TDrawDocument,"OpenDocument","Open existing document", 0)
- REQUIRED_ARG( TAutoString, "Name")
- EXPOSE_PROPRO(AppName, TAutoString, "Name", "Application name", 0)
- EXPOSE_PROPRO(FullName,TAutoString, "FullName", "Complete path to application", 0)
- EXPOSE_APPLICATION(TDrawApp, "Application", "Application object", 0)
- EXPOSE_QUIT( "Quit", "Shutdown application", 0)
- END_AUTOAGGREGATE(TDrawApp,tfAppObject|tfCanCreate,"TDrawApp","Application class", 0)
-
- const char far*
- TDrawApp::GetPath()
- {
- static char buf[_MAX_PATH];
- GetModuleFileName(buf, sizeof(buf)-1);
- return buf;
- }
-
- bool
- TDrawApp::GetShow()
- {
- TFrameWindow* frame = GetMainWindow();
- return (frame && frame->IsWindow() && frame->IsWindowVisible());
- }
-
- void
- TDrawApp::SetShow(bool visible)
- {
- TFrameWindow* frame = GetMainWindow();
- if (frame && frame->IsWindow()) {
- unsigned flags = visible ? SWP_NOACTIVATE|SWP_NOSIZE|SWP_NOMOVE|SWP_SHOWWINDOW
- : SWP_NOACTIVATE|SWP_NOSIZE|SWP_NOMOVE|SWP_NOZORDER|SWP_HIDEWINDOW;
- frame->SetWindowPos(HWND_TOP, 0,0,0,0, flags);
- }
- }
-
- extern TDocTemplate drawTpl;
-
- TDrawDocument*
- TDrawApp::OpenDoc(const char far* name)
- {
- long flags = name ? 0 : dtNewDoc;
- TDocManager* docManager = GetDocManager();
- if (!docManager)
- return 0;
- HWND hWnd = ::GetFocus();
- TDocument* doc = GetDocManager()->CreateDoc(&drawTpl, name, 0, flags);
- ::SetFocus(hWnd);
- return dynamic_cast<TDrawDocument*>(doc);
- }
-
- TDrawApp::TDrawApp() :
- TApplication(::AppReg["appname"], ::Module, &::AppDictionary)
- {
- }
-
- void
- TDrawApp::InitMainWindow()
- {
- TOleMDIFrame* frame;
- frame = new TOleMDIFrame(GetName(), 0, *(Client = new TMDIClient(this)), true, this);
-
- // Construct a status bar
- TStatusBar* sb = new TStatusBar(frame, TGadget::Recessed);
-
- // Construct a control bar
- TControlBar* cb = new TControlBar(frame);
- cb->Insert(*new TButtonGadget(CM_FILENEW, CM_FILENEW, TButtonGadget::Command));
- cb->Insert(*new TButtonGadget(CM_FILEOPEN, CM_FILEOPEN, TButtonGadget::Command));
- cb->Insert(*new TButtonGadget(CM_FILESAVE, CM_FILESAVE, TButtonGadget::Command));
- cb->Insert(*new TButtonGadget(CM_FILESAVEAS, CM_FILESAVEAS, TButtonGadget::Command));
- cb->Insert(*new TSeparatorGadget);
- cb->Insert(*new TButtonGadget(CM_PENSIZE, CM_PENSIZE, TButtonGadget::Command));
- cb->Insert(*new TButtonGadget(CM_PENCOLOR, CM_PENCOLOR, TButtonGadget::Command));
- cb->Insert(*new TSeparatorGadget);
- cb->Insert(*new TButtonGadget(CM_ABOUT, CM_ABOUT, TButtonGadget::Command));
- cb->SetHintMode(TGadgetWindow::EnterHints);
-
- cb->Attr.Id = IDW_TOOLBAR;
-
- // Insert the status bar and control bar into the frame
- frame->Insert(*sb, TDecoratedFrame::Bottom);
- frame->Insert(*cb, TDecoratedFrame::Top);
-
- // Set the main window and its menu
- SetMainWindow(frame);
- GetMainWindow()->SetMenuDescr(TMenuDescr(IDM_MDICMNDS));
-
- // Install the document manager
- SetDocManager(new TDocManager(dmMDI, this));
- }
-
- void
- TDrawApp::InitInstance()
- {
- TApplication::InitInstance();
- GetMainWindow()->DragAcceptFiles(true);
- }
-
- void
- TDrawApp::EvDropFiles(TDropInfo dropInfo)
- {
- int fileCount = dropInfo.DragQueryFileCount();
- for (int index = 0; index < fileCount; index++) {
- int fileLength = dropInfo.DragQueryFileNameLen(index)+1;
- char* filePath = new char [fileLength];
- dropInfo.DragQueryFile(index, filePath, fileLength);
- TDocTemplate* tpl = GetDocManager()->MatchTemplate(filePath);
- GetDocManager()->CreateDoc(tpl, filePath);
- delete filePath;
- }
- dropInfo.DragFinish();
- }
-
- void
- TDrawApp::EvNewView(TView& view)
- {
- TOleView* ov = TYPESAFE_DOWNCAST(&view, TOleView);
- if (view.GetDocument().IsEmbedded() && ov && !ov->IsOpenEditing()) {
- TWindow* vw = view.GetWindow();
- vw->SetParent(TYPESAFE_DOWNCAST(GetMainWindow(), TOleFrame)->GetRemViewBucket());
- vw->Create();
- }
- else {
- TMDIChild* child = new TMDIChild(*Client, 0);
- if (view.GetViewMenu())
- child->SetMenuDescr(*view.GetViewMenu());
- child->Create();
- child->SetClientWindow(view.GetWindow());
- }
-
- if (!ov || !ov->GetOcRemView())
- OcApp->SetOption(amEmbedding, false);
- }
-
- void
- TDrawApp::EvCloseView(TView& /*view*/)
- {
- // nothing needs to be done here for MDI
- }
-
- void
- TDrawApp::CmAbout()
- {
- TDialog(&TWindow(::GetFocus(), this), IDD_ABOUT).Execute();
- }
-
- int
- OwlMain(int /*argc*/, char* /*argv*/ [])
- {
- try {
- Registrar = new TOcRegistrar(AppReg, TOleDocViewAutoFactory<TDrawApp>(),
- TApplication::GetCmdLine(), ::DocTemplateStaticHead);
- if (Registrar->IsOptionSet(amAnyRegOption))
- return 0;
-
- return Registrar->Run();
- }
- catch (xmsg& x) {
- ::MessageBox(0, x.why().c_str(), "Exception", MB_OK);
- }
- return -1;
- }
-