// Copyright 2010 ESRI
// 
// All rights reserved under the copyright laws of the United States
// and applicable international laws, treaties, and conventions.
// 
// You may freely redistribute and use this sample code, with or
// without modification, provided you include the original copyright
// notice and use restrictions.
// 
// See the use restrictions.
// 

  
#include "PanUp.h"

PanUp::PanUp()
{
  m_ipHookHelper.CreateInstance(CLSID_HookHelper);

  // Load the bitmap
  IRasterPicturePtr ipRastPict(CLSID_BasicRasterPicture);
  IPicturePtr ipPict;
  HRESULT hr = ipRastPict->LoadPicture(CComBSTR(L"./Res/PanUp.bmp"), &ipPict);
  if (SUCCEEDED(hr))
  {
    OLE_HANDLE hBitmap;
    hr = ipPict->get_Handle(&hBitmap);
    if (SUCCEEDED(hr))
      m_hBitmap = hBitmap;
  }
}

PanUp::~PanUp()
{
  m_ipHookHelper = 0;
  m_hBitmap = 0;

}

HRESULT PanUp::get_Enabled(VARIANT_BOOL* Enabled)
{
  if (!Enabled)
    return E_POINTER;

  IMapPtr ipMap;
  m_ipHookHelper->get_FocusMap(&ipMap);
  if (ipMap == 0)
    return S_OK;

  *Enabled = VARIANT_TRUE;
  return S_OK;
}

HRESULT PanUp::get_Checked(VARIANT_BOOL* Checked)
{
  if (!Checked)
    return E_POINTER;

  Checked = VARIANT_FALSE;
  return S_OK;
}

HRESULT PanUp::get_Name(BSTR* Name)
{
  if (!Name)
    return E_POINTER;
  
  *Name = ::AoAllocBSTR(L"Sample_Pan/Zoom_Pan Up");
  return S_OK;
}

HRESULT PanUp::get_Caption(BSTR* Caption) 
{
  if (!Caption)
    return E_POINTER;
  
  *Caption = ::AoAllocBSTR(L"Pan Up");
  return S_OK;
}

HRESULT PanUp::get_Tooltip(BSTR* Tooltip) 
{
  if (!Tooltip)
    return E_POINTER;
  
  *Tooltip = ::AoAllocBSTR(L"Pan Up");
  return S_OK;
}

HRESULT PanUp::get_Message(BSTR* Message) 
{
  if (!Message)
    return E_POINTER;
  
  *Message = ::AoAllocBSTR(L"Pan display up by the pan factor percentage");
  return S_OK;
}

HRESULT PanUp::get_Bitmap(OLE_HANDLE* bitmap) 
{
  if (!bitmap)
    return E_POINTER;
  
  if (m_hBitmap != 0)
  {
    *bitmap = m_hBitmap;
    return S_OK;
  }

  return E_FAIL;
}

HRESULT  PanUp::get_Category(BSTR* categoryName) 
{
  if (!categoryName)
    return E_POINTER;
  
  *categoryName = ::AoAllocBSTR(L"Sample_Pan/Zoom");
  return S_OK;
}

// Create the command and set who it will work with
HRESULT PanUp::OnCreate(IDispatch* hook) 
{
  if (!hook)
    return E_POINTER;
  
  m_ipHookHelper->putref_Hook(hook);
  return S_OK;
}

// When clicked, the button appears pressed
HRESULT PanUp::OnClick() 
{

  // Get the active view
  IMapPtr ipMap;
  m_ipHookHelper->get_FocusMap(&ipMap);
  IActiveViewPtr ipActiveView(ipMap);

  if (ipMap == 0)
    return S_OK;

  // Get the extent
  IEnvelopePtr ipEnv;
  ipActiveView->get_Extent(&ipEnv);

  // Create a point to pan to
  IPointPtr ipPoint(CLSID_Point);
  double dHeight;
  ipEnv->get_Height(&dHeight);
  double dXMin;
  ipEnv->get_XMin(&dXMin);
  double dXMax;
  ipEnv->get_XMax(&dXMax);
  double dYMin;
  ipEnv->get_YMin(&dYMin);
  double dYMax;
  ipEnv->get_YMax(&dYMax);
  double dPanFactor;
  GetPanFactor(&dPanFactor);
  ipPoint->put_X((dXMin + dXMax)/2);
  ipPoint->put_Y((dYMin + dYMax)/2 + (dHeight / (100 / dPanFactor)));

  // Center the envelope at the point
  ipEnv->CenterAt(ipPoint);
  // Set the new extent
  ipActiveView->put_Extent(ipEnv);
  // Refresh the active view
  ipActiveView->Refresh();

  return S_OK;
}

HRESULT PanUp::GetPanFactor(double* dPanFactor)
{
  *dPanFactor = 50;

  return S_OK;
}