/*
 * PowerPointApplet.h 
 * Copyright (c) 2012 Antillia.com TOSHIYUKI ARAI. ALL RIGHTS RESERVED. 
 */


//2010/04/08
//2010/05/05 Added a lot of public methods.
//2012/05/16 Added methods setTransparentAttributes and unsetTransparentAttributes

#pragma once

#include <sol/office/OfficeApplet.h>

//PowerPoint
#ifdef WIN64

#ifdef OFFICE2010
#import "C:\Program Files (x86)\Microsoft Office\OFFICE14\MSPPT.OLB" \
    rename("DocumentProperties","DocumentPropertiesPXL") \
    rename("RGB","RBGPXL") \
    rename("DialogBox","DialogBoxPXL") \
    rename("CopyFile","CopyFilePXL") \
    rename("ReplaceText","ReplaceTextPXL") \
    rename("FindText","FindTextPXL") \
    rename("ExitWindows","_ExitWindowsP")
#else
#import "C:\Program Files (x86)\Microsoft Office\OFFICE14\MSPPT.OLB" \
    rename("DocumentProperties","DocumentPropertiesPXL") \
    rename("RGB","RBGPXL") \
    rename("DialogBox","DialogBoxPXL") \
    rename("CopyFile","CopyFilePXL") \
    rename("ReplaceText","ReplaceTextPXL") \
    rename("FindText","FindTextPXL") \
    rename("ExitWindows","_ExitWindowsP")
#endif

#else 

#ifdef OFFICE2010
#import "C:\Program Files\Microsoft Office\OFFICE14\MSPPT.OLB" \
    rename("DocumentProperties","DocumentPropertiesPXL") \
    rename("RGB","RBGPXL") \
    rename("DialogBox","DialogBoxPXL") \
    rename("CopyFile","CopyFilePXL") \
    rename("ReplaceText","ReplaceTextPXL") \
    rename("FindText","FindTextPXL") \
    rename("ExitWindows","_ExitWindowsP")

#else
#import "C:\Program Files\Microsoft Office\OFFICE12\MSPPT.OLB" \
    rename("DocumentProperties","DocumentPropertiesPXL") \
    rename("RGB","RBGPXL") \
    rename("DialogBox","DialogBoxPXL") \
    rename("CopyFile","CopyFilePXL") \
    rename("ReplaceText","ReplaceTextPXL") \
    rename("FindText","FindTextPXL") \
    rename("ExitWindows","_ExitWindowsP")
#endif

#endif

namespace SOL {

/////////////////////////////////////////////////////////////////

class PowerPointApplet :public OfficeApplet {

private:
    PowerPoint::_ApplicationPtr powerPoint;

private:            
    PowerPoint::PresentationsPtr presentations;

private:
    bool isCreated;

public:
    PowerPointApplet()
    :powerPoint(NULL),
    presentations(NULL),
    isCreated(false)
    {
    
        IDispatch* pDisp = NULL;
        const wchar_t* application = L"PowerPoint.Application";

        if (getActiveObject(application, &pDisp)) {
            this->powerPoint = pDisp;        
            printf( "PowerPoint#PowerPoint,1,Found an active PowerPoint object\n");
        } else {
            HRESULT hr= this->powerPoint.CreateInstance(application);
            if (FAILED(hr)) {
                throw hr;
            } else {
                printf( "PowerPoint#PowerPoint,2,Created a PowerPoint object\n");
                isCreated = true;
            }
        }

        if (this->powerPoint) {
            this->presentations = powerPoint->Presentations;
        }
    }

public:
    ~PowerPointApplet()
    {
        if (this->powerPoint) {
            if (this->presentations != NULL) {
                int count = this->presentations->GetCount();    
                if (count == 0) {
                    if (isCreated) {
                        this->presentations = NULL;
                        this->powerPoint->Quit();
                    }
                }
                this->presentations = NULL;
                this->powerPoint = NULL;
            }
        }
    }

public:
    PowerPoint::_PresentationPtr open(const BSTR docName, bool visible=false)
    {
        if (isCreated) {
            this->powerPoint->PutWindowState(PowerPoint::ppWindowMinimized);

            if (visible==false) {
                this->powerPoint->PutVisible(Office::msoFalse);
            } else {
                this->powerPoint->PutVisible(Office::msoTrue);
            }
        }

        PowerPoint::_PresentationPtr presentation = NULL;

        try {
            presentation = this->presentations ->Open(docName, 
                Office::msoFalse, 
                Office::msoFalse, 
                Office::msoTrue);
        } catch (...) {

        }

        return presentation;

    }
    //2010/05/04

public:    
    PowerPoint::PresentationsPtr getPresentations ( )
    {
        return powerPoint->GetPresentations ( );
    }
    
    PowerPoint::DocumentWindowsPtr getWindows ( )
    {
        return powerPoint->GetWindows ( );
    }
    
    IUnknownPtr getDialogs ( )
    {
        return powerPoint->GetDialogs ( );
    }
    
    PowerPoint::DocumentWindowPtr getActiveWindow ( )
    {
        return powerPoint->GetActiveWindow ( );
    }
    
    PowerPoint::_PresentationPtr getActivePresentation ( )
    {
        return powerPoint->GetActivePresentation ( );
    }
    
    PowerPoint::SlideShowWindowsPtr getSlideShowWindows ( )
    {
        return powerPoint->GetSlideShowWindows ( );
    }
    
    Office::_CommandBarsPtr getCommandBars ( )
    {
        return powerPoint->GetCommandBars ( );
    }
    
    _bstr_t getPath ( )
    {
        return powerPoint->GetPath ( );
    }
    
    _bstr_t getName ( )
    {
        return powerPoint->GetName ( );
    }
    
    _bstr_t getCaption ( )
    {
        return powerPoint->GetCaption ( );
    }
    
    void putCaption (
            _bstr_t caption )
    {
        powerPoint->PutCaption (
                caption );
    }
    
    Office::AssistantPtr getAssistant ( )
    {
        return powerPoint->GetAssistant ( );
    }
    
    Office::FileSearchPtr getFileSearch ( )
    {
        return powerPoint->GetFileSearch ( );
    }
    
    Office::IFindPtr getFileFind ( )
    {
        return powerPoint->GetFileFind ( );
    }
    
    _bstr_t getBuild ( )
    {
        return powerPoint->GetBuild ( );
    }
    
    _bstr_t getVersion ( )
    {
        return powerPoint->GetVersion ( );
    }
    
    _bstr_t getOperatingSystem ( )
    {
        return powerPoint->GetOperatingSystem ( );
    }
    
    _bstr_t getActivePrinter ( )
    {
        return powerPoint->GetActivePrinter ( );
    }
    
    long getCreator ( )
    {
        return powerPoint->GetCreator ( );
    }
    
    PowerPoint::AddInsPtr getAddIns ( )
    {
        return powerPoint->GetAddIns ( );
    }
    
    VBIDE::VBEPtr getVBE ( )
    {
        return powerPoint->GetVBE ( );
    }
    
    HRESULT help (
            _bstr_t helpFile,
            int contextID )
    {
        HRESULT hr = S_OK;
        if (FAILED(hr = powerPoint->Help (
                helpFile,
                contextID )) ) {
            throw hr;
        }
        return hr;
    }
    
    HRESULT quit ( )
    {
        HRESULT hr = S_OK;
        if (FAILED(hr = powerPoint->Quit ( )) ) {
            throw hr;
        }
        return hr;
    }
    
    _variant_t run (
            _bstr_t macroName,
            SAFEARRAY * * safeArrayOfParams )
    {
        return powerPoint->Run (
                macroName,
                safeArrayOfParams );
    }
    
    IUnknownPtr ppFileDialog (
            enum PowerPoint::PpFileDialogType type )
    {
        return powerPoint->PPFileDialog (
                type );
    }
    
    HRESULT launchSpelling (
            struct PowerPoint::DocumentWindow * pWindow )
    {
        HRESULT hr = S_OK;
        if (FAILED(hr = powerPoint->LaunchSpelling (
                pWindow )) ) {
            throw hr;
        }
        return hr;
    }
    
    float getLeft ( )
    {
        return powerPoint->GetLeft ( );
    }
    
    void putLeft (
            float left )
    {
        powerPoint->PutLeft (
                left );
    }
    
    float getTop ( )
    {
        return powerPoint->GetTop ( );
    }
    
    void putTop (
            float top )
    {
        powerPoint->PutTop (
                top );
    }
    
    float getWidth ( )
    {
        return powerPoint->GetWidth ( );
    }
    
    void putWidth (
            float width )
    {
        powerPoint->PutWidth (
                width );
    }
    
    float getHeight ( )
    {
        return powerPoint->GetHeight ( );
    }
    
    void putHeight (
            float height )
    {
        powerPoint->PutHeight (
                height );
    }
    
    enum PowerPoint::PpWindowState getWindowState ( )
    {
        return powerPoint->GetWindowState ( );
    }
    
    void putWindowState (
            enum PowerPoint::PpWindowState windowState )
    {
        powerPoint->PutWindowState (
                windowState );

    }
    
    enum Office::MsoTriState getVisible ( )
    {
        return powerPoint->GetVisible ( );
    }
    
    void putVisible (
            enum Office::MsoTriState visible )
    {
        powerPoint->PutVisible (
                visible );
    }
    
    long getHWND ( )
    {
        return powerPoint->GetHWND ( );
    }
    
    enum Office::MsoTriState getActive ( )
    {
        return powerPoint->GetActive ( );
    }
    
    HRESULT activate ( )
    {
        HRESULT hr = S_OK;
        if (FAILED(hr = powerPoint->Activate ( )) ) {
            throw hr;
        }
        return hr;
    }
    
    Office::AnswerWizardPtr getAnswerWizard ( )
    {
        return powerPoint->GetAnswerWizard ( );
    }
    
    Office::COMAddInsPtr getCOMAddIns ( )
    {
        return powerPoint->GetCOMAddIns ( );
    }
    
    _bstr_t getProductCode ( )
    {
        return powerPoint->GetProductCode ( );
    }
    
    PowerPoint::DefaultWebOptionsPtr getDefaultWebOptions ( )
    {
        return powerPoint->GetDefaultWebOptions ( );
    }
    
    Office::LanguageSettingsPtr getLanguageSettings ( )
    {
        return powerPoint->GetLanguageSettings ( );
    }
    
    Office::MsoDebugOptionsPtr getMsoDebugOptions ( )
    {
        return powerPoint->GetMsoDebugOptions ( );
    }
    
    enum Office::MsoTriState getShowWindowsInTaskbar ( )
    {
        return powerPoint->GetShowWindowsInTaskbar ( );
    }
    
    void putShowWindowsInTaskbar (
            enum Office::MsoTriState showWindowsInTaskbar )
    {
        powerPoint->PutShowWindowsInTaskbar (
                showWindowsInTaskbar );
    }
    
    IUnknownPtr getMarker ( )
    {
        return powerPoint->GetMarker ( );
    }
    
    enum Office::MsoFeatureInstall getFeatureInstall ( )
    {
        return powerPoint->GetFeatureInstall ( );
    }
    
    void putFeatureInstall (
            enum Office::MsoFeatureInstall featureInstall )
    {
        powerPoint->PutFeatureInstall (
                featureInstall );
    }
    
    VARIANT_BOOL getOptionFlag (
            long option,
            VARIANT_BOOL persist )
    {
        return powerPoint->GetOptionFlag (
                option,
                persist );
    }
    
    HRESULT setOptionFlag (
            long option,
            VARIANT_BOOL state,
            VARIANT_BOOL persist )
    {
        HRESULT hr = S_OK;
        if (FAILED(hr = powerPoint->SetOptionFlag (
                option,
                state,
                persist )) ) {
            throw hr;
        }
        return hr;
    }
    
    Office::FileDialogPtr getFileDialog (
                enum Office::MsoFileDialogType type )
    {
        return powerPoint->GetFileDialog (
                type );
    }
    
    enum Office::MsoTriState getDisplayGridLines ( )
    {
        return powerPoint->GetDisplayGridLines ( );
    }
    
    void putDisplayGridLines (
            enum Office::MsoTriState displayGridLines )
    {
        powerPoint->PutDisplayGridLines (
                displayGridLines );
    }
    
    enum Office::MsoAutomationSecurity getAutomationSecurity ( )
    {
        return powerPoint->GetAutomationSecurity ( );
    }
    
    void putAutomationSecurity (
            enum Office::MsoAutomationSecurity automationSecurity )
    {
        powerPoint->PutAutomationSecurity (
                automationSecurity );
    }
    
    Office::NewFilePtr getNewPresentation ( )
    {
        return powerPoint->GetNewPresentation ( );
    }
    
    enum PowerPoint::PpAlertLevel getDisplayAlerts ( )
    {
        return powerPoint->GetDisplayAlerts ( );
    }
    
    void putDisplayAlerts (
            enum PowerPoint::PpAlertLevel displayAlerts )
    {
        powerPoint->PutDisplayAlerts (
                displayAlerts );
    }
    
    enum Office::MsoTriState getShowStartupDialog ( )
    {
        return powerPoint->GetShowStartupDialog ( );
    }
    
    void putShowStartupDialog (
            enum Office::MsoTriState showStartupDialog )
    {
        powerPoint->PutShowStartupDialog (
                showStartupDialog );
    }
    
    HRESULT setPerfMarker (
            int marker )
    {
        HRESULT hr = S_OK;
        if (FAILED(hr = powerPoint->SetPerfMarker (
                marker )) ) {
            throw hr;
        }
        return hr;
    }
    
    PowerPoint::AutoCorrectPtr getAutoCorrect ( )
    {
        return powerPoint->GetAutoCorrect ( );
    }
    
    PowerPoint::OptionsPtr getOptions ( )
    {
        return powerPoint->GetOptions ( );
    }
    
    HRESULT launchPublishSlidesDialog (
            _bstr_t slideLibraryUrl )
    {
        HRESULT hr = S_OK;
        if (FAILED(hr = powerPoint->LaunchPublishSlidesDialog (
                slideLibraryUrl )) ) {
            throw hr;
        }
        return hr;
    }
    
    HRESULT launchSendToPPTDialog (
            VARIANT * slideUrls )
    {
        HRESULT hr = S_OK;
        if (FAILED(hr = powerPoint->LaunchSendToPPTDialog (
                slideUrls )) ) {
            throw hr;
        }
        return hr;
    }
    
    VARIANT_BOOL getDisplayDocumentInformationPanel ( )
    {
        return powerPoint->GetDisplayDocumentInformationPanel ( );
    }
    
    void putDisplayDocumentInformationPanel (
            VARIANT_BOOL displayDocumentInformationPanel )
    {
        powerPoint->PutDisplayDocumentInformationPanel (
                displayDocumentInformationPanel );
    }
    
    Office::IAssistancePtr getAssistance ( )
    {
        return powerPoint->GetAssistance ( );
    }
    
    long getActiveEncryptionSession ( )
    {
        return powerPoint->GetActiveEncryptionSession ( );
    }
    
    PowerPoint::FileConvertersPtr getFileConverters ( )
    {
        return powerPoint->GetFileConverters ( );
    }

public:
    //2012/05/16
    void setTransparentAttribute()
    {
        HWND hwnd = (HWND)powerPoint->HWND;
        if (hwnd) {
            SetWindowLong(hwnd, GWL_EXSTYLE, 
                GetWindowLong(hwnd, GWL_EXSTYLE)|WS_EX_LAYERED );
            SetLayeredWindowAttributes(hwnd,0,0, LWA_ALPHA|LWA_COLORKEY);
                    
            if (isCreated) {
                ShowWindow(hwnd, SW_FORCEMINIMIZE);
                ShowWindow(hwnd, SW_SHOWMINIMIZED);
            }
        }
    }

public:
    //2012/05/16
    void unsetTransparentAttribute()
    {
        HWND hwnd = (HWND)powerPoint->HWND;
        if (hwnd) {
            if (isCreated) {
                ShowWindow(hwnd, SW_HIDE);
            }
            SetWindowLong(hwnd, GWL_EXSTYLE, 
                GetWindowLong(hwnd, GWL_EXSTYLE)^WS_EX_LAYERED);
            SetLayeredWindowAttributes(hwnd, 0, 0, 0);//LWA_ALPHA|LWA_COLORKEY);
        }
    }
};


}