// ExcelTabView.cpp // // (c)1998-2025 Codejock Software, All Rights Reserved. // // THIS SOURCE FILE IS THE PROPERTY OF CODEJOCK SOFTWARE AND IS NOT TO BE // RE-DISTRIBUTED BY ANY MEANS WHATSOEVER WITHOUT THE EXPRESSED WRITTEN // CONSENT OF CODEJOCK SOFTWARE. // // THIS SOURCE CODE CAN ONLY BE USED UNDER THE TERMS AND CONDITIONS OUTLINED // IN THE XTREME TOOLKIT PRO LICENSE AGREEMENT. CODEJOCK SOFTWARE GRANTS TO // YOU (ONE SOFTWARE DEVELOPER) THE LIMITED RIGHT TO USE THIS SOFTWARE ON A // SINGLE COMPUTER. // // CONTACT INFORMATION: // support@codejock.com // http://www.codejock.com // ///////////////////////////////////////////////////////////////////////////// #include "stdafx.h" #include "ExcelTabView.h" #include "MainFrm.h" #include "SheetListCtrl.h" #include "SheetEditCtrl.h" #include "SheetTreeCtrl.h" #include "SheetFormView.h" #include "SheetScrollView.h" #include "ExcelTabViewDoc.h" #include "ExcelTabViewView.h" #include "AboutDlg.h" #include #pragma comment(lib, "Shlwapi") #ifdef _DEBUG # define new DEBUG_NEW # undef THIS_FILE static char THIS_FILE[] = __FILE__; #endif // CExcelTabViewApp IMPLEMENT_DYNAMIC(CExcelTabViewApp, CXTPWinApp); BEGIN_MESSAGE_MAP(CExcelTabViewApp, CXTPWinApp) ON_COMMAND(ID_APP_ABOUT, OnAppAbout) // Standard file based document commands ON_COMMAND(ID_FILE_NEW, OnFileNew) ON_COMMAND(ID_FILE_OPEN, OnFileOpen) END_MESSAGE_MAP() // The one and only CExcelTabViewApp object CExcelTabViewApp theApp; // CExcelTabViewApp construction CExcelTabViewApp::CExcelTabViewApp() { // TODO: replace application ID string below with unique ID string; recommended // format for string is CompanyName.ProductName.SubProduct.VersionInformation // SetAppID(_T("ExcelTabView.AppID.NoVersion")); // TODO: add construction code here, // Place all significant initialization in InitInstance } CExcelTabViewApp::~CExcelTabViewApp() { // TODO: add cleanup code here } // CExcelTabViewApp initialization BOOL CExcelTabViewApp::InitInstance() { // InitCommonControlsEx() is required on Windows XP if an application // manifest specifies use of ComCtl32.dll version 6 or later to enable // visual styles. Otherwise, any window creation will fail. INITCOMMONCONTROLSEX InitCtrls; InitCtrls.dwSize = sizeof(InitCtrls); // Set this to include all the common control classes you want to use // in your application. InitCtrls.dwICC = ICC_WIN95_CLASSES; InitCommonControlsEx(&InitCtrls); CXTPWinApp::InitInstance(); AfxEnableControlContainer(); CXTPWinDwmWrapper().SetProcessDPIAware(); #if _MSC_VER <= 1200 // MFC 6.0 or earlier # ifdef _AFXDLL Enable3dControls(); // Call this when using MFC in a shared DLL # else Enable3dControlsStatic(); // Call this when linking to MFC statically # endif #endif // Standard initialization // If you are not using these features and wish to reduce the size // of your final executable, you should remove from the following // the specific initialization routines you do not need // Change the registry key under which our settings are stored // TODO: You should modify this string to be something appropriate // such as the name of your company or organization CString ver; ver.Format(_T("Codejock %s v%d.%d.%d"), _XTP_PACKAGE_NAME, _XTPLIB_VERSION_MAJOR, _XTPLIB_VERSION_MINOR, _XTPLIB_VERSION_REVISION); SetRegistryKey(ver); LoadStdProfileSettings(); // Load standard INI file options (including MRU) InitVisualStyles(); SAFE_DELETE(m_pRecentFileList); m_pRecentFileList = new CXTPRecentFileList(0, _T("Recent File List"), _T("File%d"), 10); m_pRecentFileList->ReadList(); // Register the application's document templates. Document templates // serve as the connection between documents, frame windows and views CSingleDocTemplate* pDocTemplate = new CSingleDocTemplate(IDR_MAINFRAME, RUNTIME_CLASS(CExcelTabViewDoc), RUNTIME_CLASS(CMainFrame), RUNTIME_CLASS(CExcelTabViewView)); AddDocTemplate(pDocTemplate); // Parse command line for standard shell commands, DDE, file open CCommandLineInfo cmdInfo; ParseCommandLine(cmdInfo); // Dispatch commands specified on the command line. Will return FALSE if // app was launched with /RegServer, /Register, /Unregserver or /Unregister. if (!ProcessShellCommand(cmdInfo)) return FALSE; // The main window has been initialized, so show and update it m_pMainWnd->ShowWindow(m_nCmdShow); m_pMainWnd->UpdateWindow(); return TRUE; } int CExcelTabViewApp::ExitInstance() { // TODO: handle additional resources you may have added AfxOleTerm(FALSE); return CXTPWinApp::ExitInstance(); } void CExcelTabViewApp::OnAppAbout() { CAboutDlg aboutDlg; aboutDlg.DoModal(); } XTPPaintTheme CExcelTabViewApp::GetAppTheme(XTPPaintTheme nDefaultTheme /*= xtpThemeNone*/) const { UINT nTheme = const_cast(this)->GetProfileInt(_T(""), _T("Theme"), nDefaultTheme); return static_cast(nTheme); } CString CExcelTabViewApp::GetAppThemeSettings(LPCTSTR lpDefaultSettings /*= NULL*/) { CString strThemeSettings = const_cast(this)->GetProfileString( _T(""), _T("ThemeSettings"), lpDefaultSettings); strThemeSettings.MakeUpper(); return strThemeSettings; } void CExcelTabViewApp::SetAppTheme(XTPPaintTheme nTheme, LPCTSTR lpThemeSettings /*= NULL*/, BOOL bUpdateResources /*= TRUE*/) { UNREFERENCED_PARAMETER(bUpdateResources); if (NULL != lpThemeSettings) { XTPThemeDLL()->SetHandle(lpThemeSettings); } else { XTPThemeDLL()->Reset(); } XTPPaintManager()->SetTheme(nTheme); WriteProfileInt(_T(""), _T("Theme"), nTheme); CString strThemeSettings; if (NULL != lpThemeSettings) { strThemeSettings = lpThemeSettings; strThemeSettings.MakeUpper(); } WriteProfileString(_T(""), _T("ThemeSettings"), strThemeSettings); } void CExcelTabViewApp::InitVisualStyles() { XTPPaintTheme nTheme = GetAppTheme(xtpThemeOffice2016); CString strThemeSettings = GetAppThemeSettings(xtpIniOffice2016ExcelColorful); SetAppTheme(nTheme, strThemeSettings); } BOOL CExcelTabViewApp::GetStylesPath(CString& strPath, LPCTSTR lpFileName /*= NULL*/) { TCHAR szPath[MAX_PATH + 1] = { _T('\0') }; if (0 == ::GetModuleFileName(AfxGetApp()->m_hInstance, szPath, MAX_PATH + 1)) { TRACE(_T("ERROR: Unable to obtain module file name.\n")); return FALSE; } ::PathRemoveFileSpec(szPath); SIZE_T cchAdditional = 1 + _tcslen(_T("Styles")) + (NULL != lpFileName ? 1 + _tcslen(lpFileName) : 0) + 1; if (_countof(szPath) < (_tcslen(szPath) + cchAdditional)) { TRACE(_T("ERROR: Style path is too long.\n")); return FALSE; } if (!::PathAppend(szPath, _T("Styles"))) { TRACE(_T("ERROR: Unable to append path.\n")); return FALSE; } if (NULL != lpFileName) { if (!::PathAppend(szPath, lpFileName)) { TRACE(_T("ERROR: Unable to append path.\n")); return FALSE; } } strPath = szPath; return TRUE; } // CExcelTabViewApp message handlers