/*---------------------------------------------------------------------------------------------- Perform whatever action is appropriate when the use clicks on a hot link ----------------------------------------------------------------------------------------------*/ STDMETHODIMP VwBaseVc::DoHotLinkAction(BSTR bstrData, ISilDataAccess * psda) { BEGIN_COM_METHOD; ChkComArgPtrN(ptss); if (BstrLen(bstrData) > 0 && bstrData[0] == kodtExternalPathName) { StrAppBuf strbFile(bstrData + 1); if (::UrlIs(strbFile.Chars(), URLIS_URL)) { // If it's a URL launch whatever it means. ::ShellExecute(NULL, L"open", strbFile.Chars(), NULL, NULL, SW_SHOWNORMAL); return S_OK; } if (AfApp::Papp()) { AfMainWnd * pafw = AfApp::Papp()->GetCurMainWnd(); if (pafw && pafw->GetLpInfo()) pafw->GetLpInfo()->MapExternalLink(strbFile); AfApp::LaunchHL(NULL, _T("open"), strbFile.Chars(), NULL, NULL, SW_SHOW); } } return S_OK; END_COM_METHOD(g_fact, IID_IVwViewConstructor); }
/*---------------------------------------------------------------------------------------------- This method checks for duplicates in list names. If the given name exists then return true. @param pszName name to check to see if it exists. @return True if name already exists. ----------------------------------------------------------------------------------------------*/ bool ListsPropDlg::CheckName(const achar * pszName) { AfMainWnd * pafw = MainWindow(); AssertPtr(pafw); AfLpInfo * plpi = pafw->GetLpInfo(); AssertPtr(plpi); Vector<HVO> & vhvo = plpi->GetPsslIds(); AfDbInfoPtr qdbi = plpi->GetDbInfo(); AssertPtr(qdbi); IOleDbEncapPtr qode; qdbi->GetDbAccess(&qode); StrAnsi sta; int i; StrUni stuIds; int cv = vhvo.Size(); Assert(cv); ComBool fIsNull; ComBool fMoreRows; ULONG cbSpaceTaken; IOleDbCommandPtr qodc; const int kcchBuffer = MAX_PATH; OLECHAR rgchName[kcchBuffer]; HVO hvo; StrUni stu; for (i = 0; i < cv; ++i) { hvo = vhvo[i]; stu.Format(L"exec GetOrderedMultiTxt '%d', %d", hvo, kflidCmMajorObject_Name); CheckHr(qode->CreateCommand(&qodc)); CheckHr(qodc->ExecCommand(stu.Bstr(), knSqlStmtStoredProcedure)); CheckHr(qodc->GetRowset(0)); CheckHr(qodc->NextRow(&fMoreRows)); Assert(fMoreRows); // This proc should always return something. CheckHr(qodc->GetColValue(1, reinterpret_cast <BYTE *>(rgchName), kcchBuffer * isizeof(OLECHAR), &cbSpaceTaken, &fIsNull, 2)); sta = rgchName; if (hvo != m_hvoObj && sta.Equals(pszName)) return false; } return true; }
/*---------------------------------------------------------------------------------------------- Make the root box. ----------------------------------------------------------------------------------------------*/ void TssEdit::MakeRoot(IVwGraphics * pvg, ILgWritingSystemFactory * pwsf, IVwRootBox ** pprootb) { AssertPtr(pvg); AssertPtrN(pwsf); AssertPtr(pprootb); *pprootb = NULL; IVwRootBoxPtr qrootb; qrootb.CreateInstance(CLSID_VwRootBox); CheckHr(qrootb->SetSite(this)); HVO hvo = khvoString; int frag = kfrString; // Set up a new view constructor. ComBool fRTL = FALSE; IWritingSystemPtr qws; Assert(pwsf == m_qwsf.Ptr()); CheckHr(pwsf->get_EngineOrNull(m_wsBase, &qws)); if (qws) CheckHr(qws->get_RightToLeft(&fRTL)); TssEditVcPtr qtevc; qtevc.Attach(NewObj TssEditVc(this, m_nEditable, m_fShowTags, fRTL)); CheckHr(m_qcda->putref_WritingSystemFactory(pwsf)); CheckHr(qrootb->putref_DataAccess(m_qcda)); AfMainWnd * pafw = MainWindow(); AssertPtrN(pafw); AfStylesheet * pss = NULL; AfLpInfo * plpi = pafw->GetLpInfo(); if (plpi) { pss = plpi->GetAfStylesheet(); // This allows it to receive updates to style defns. pafw->RegisterRootBox(qrootb); } IVwViewConstructor * pvvc = qtevc; CheckHr(qrootb->SetRootObjects(&hvo, &pvvc, &frag, pss, 1)); *pprootb = qrootb.Detach(); }
/*---------------------------------------------------------------------------------------------- This is the method for displaying the name of a single reference. This view shows the name for an RnGenericRec consisting of the type of record, hyphen, title, hyphen, creation date. "Subevent - Fishing for pirana - 3/22/2001" @param pvwenv Pointer to the view environment. @param hvo The id of the object we are displaying. @param frag Identifies the part of the view we are currently displaying. @return HRESULT indicating success (S_OK), or failure (E_FAIL). ----------------------------------------------------------------------------------------------*/ STDMETHODIMP CleRecVc::Display(IVwEnv * pvwenv, HVO hvo, int frag) { BEGIN_COM_METHOD; ChkComArgPtr(pvwenv); Assert(false); // Is this needed for poss lists? switch (frag) { case kfrRefName: case kfrListName: { SmartBstr bstrClass = L"UnLoaded"; ITsStringPtr qtss; ITsStringPtr qtssTitle; // Make sure data is loaded. LoadDataFor(pvwenv, hvo, frag); AfMainWnd * pafw = AfApp::Papp()->GetCurMainWnd(); AssertPtr(pafw); AfLpInfo * plpi = pafw->GetLpInfo(); AssertPtr(plpi); AfDbInfo * pdbi = plpi->GetDbInfo(); AssertPtr(pdbi); #define HYPERLINK_CHANGE #ifdef HYPERLINK_CHANGE // Update the string with the new object. GUID uid; if (!pdbi->GetGuidFromId(hvo, uid)) ReturnHr(E_FAIL); StrUni stuData; OLECHAR * prgchData; // Make large enough for a guid plus the type character at the start. stuData.SetSize(isizeof(GUID) / isizeof(OLECHAR) + 1, &prgchData); *prgchData = kodtNameGuidHot; memmove(prgchData + 1, &uid, isizeof(uid)); ITsPropsFactoryPtr qtpf; ITsPropsBldrPtr qtpb; ITsTextPropsPtr qttp; ITsStrFactoryPtr qtsf; qtpf.CreateInstance(CLSID_TsPropsFactory); CheckHr(qtpf->GetPropsBldr(&qtpb)); CheckHr(qtpb->SetIntPropValues(ktptWs, ktpvDefault, pdbi->UserWs())); CheckHr(qtpb->SetStrPropValue(ktptObjData, stuData.Bstr())); CheckHr(qtpb->GetTextProps(&qttp)); qtsf.CreateInstance(CLSID_TsStrFactory); OLECHAR chObj = kchObject; CheckHr(qtsf->MakeStringWithPropsRgch(&chObj, 1, qttp, &qtss)); CheckHr(pvwenv->OpenSpan()); // REVIEW KenZ(RandyR) Whey are DN flids in this app? int flid = kflidRnGenericRec_Title; CheckHr(pvwenv->NoteDependency(&hvo, &flid, 1)); CheckHr(pvwenv->AddString(qtss)); // The class name. CheckHr(pvwenv->CloseSpan()); #else // !HYPERLINK_CHANGE int clid; HVO hvoOwn; int64 ntim; int ws = pdbi->UserWs(); ISilDataAccessPtr qsda; CheckHr(pvwenv->get_DataAccess(&qsda)); AssertPtr(qsda); CheckHr(qsda->get_IntProp(hvo, kflidCmObject_Class, &clid)); CheckHr(qsda->get_ObjectProp(hvo, kflidCmObject_Owner, &hvoOwn)); // REVIEW KenZ(RandyR) Whey are DN flids in this app? CheckHr(qsda->get_TimeProp(hvo, kflidRnGenericRec_DateCreated, &ntim)); CheckHr(qsda->get_StringProp(hvo, kflidRnGenericRec_Title, &qtssTitle)); int stid; // Sharon! Not needed? // if (clid == kclidRnEvent) // { // if (plpi->GetRnId() == hvoOwn) // stid = kstidEvent; // else // stid = kstidSubevent; // } // else if (clid == kclidRnAnalysis) // { // if (plpi->GetRnId() == hvoOwn) // stid = kstidAnalysis; // else // stid = kstidSubanalysis; // } StrUni stu(stid); StrUni stuSep(kstidSpHyphenSp); ITsStrFactoryPtr qtsf; qtsf.CreateInstance(CLSID_TsStrFactory); CheckHr(qtsf->MakeStringRgch(stu.Chars(), stu.Length(), ws, &qtss)); CheckHr(pvwenv->OpenSpan()); CheckHr(pvwenv->AddString(qtss)); // The class name. CheckHr(qtsf->MakeStringRgch(stuSep.Chars(), stuSep.Length(), ws, &qtss)); CheckHr(pvwenv->AddString(qtss)); // The separator //CheckHr(pvwenv->AddString(qtssTitle)); // The title. // The following gives the title of the owning object instead of the ref. CheckHr(pvwenv->AddStringProp(kflidRnGenericRec_Title, this)); // The title. CheckHr(pvwenv->AddString(qtss)); // The separator // Leave the date blank if a date doesn't exist. if (ntim) { // Convert the date to a system date. SilTime tim = ntim; SYSTEMTIME stim; stim.wYear = (unsigned short) tim.Year(); stim.wMonth = (unsigned short) tim.Month(); stim.wDay = (unsigned short) tim.Date(); // Then format it to a time based on the current user locale. char rgchDate[50]; // Tuesday, August 15, 2000 mardi 15 août 2000 ::GetDateFormat(LOCALE_USER_DEFAULT, DATE_SHORTDATE, &stim, NULL, rgchDate, 50); stu = rgchDate; CheckHr(qtsf->MakeStringRgch(stu.Chars(), stu.Length(), ws, &qtss)); CheckHr(pvwenv->AddString(qtss)); // The date. } CheckHr(pvwenv->CloseSpan()); #endif // HYPERLINK_CHANGE break; } } return S_OK; END_COM_METHOD(g_fact2, IID_IVwViewConstructor) }