// FreTransDoc.cpp : implementation of the CFreTransDoc class
//

#include "stdafx.h"
#include "FreTrans.h"

#include "FreTransDoc.h"

#ifdef _DEBUG
#define new DEBUG_NEW
#undef THIS_FILE
static char THIS_FILE[] = __FILE__;
#endif

/////////////////////////////////////////////////////////////////////////////
// CFreTransDoc

IMPLEMENT_DYNCREATE(CFreTransDoc, CDocument)

BEGIN_MESSAGE_MAP(CFreTransDoc, CDocument)
	//{{AFX_MSG_MAP(CFreTransDoc)
	ON_COMMAND(ID_FILE_REOPEN, OnFileReopen)
	//}}AFX_MSG_MAP
END_MESSAGE_MAP()

/////////////////////////////////////////////////////////////////////////////
// CFreTransDoc construction/destruction

CFreTransDoc::CFreTransDoc()
{
	// TODO: add one-time construction code here
	// 默認背景色，灰色
	m_refColorBKG = 0x00808080;	
	
	// 初始化變量
	m_pDibImage = NULL;
	m_hDIB = NULL;
	m_palDIB = NULL;
	m_sizeDoc = CSize(1,1);
}

CFreTransDoc::~CFreTransDoc()
{
	// 判斷DIB對象是否存在
	if (m_hDIB != NULL)
	{
		// 清除DIB對象
		::GlobalFree((HGLOBAL) m_hDIB);
	}
	
	// 判斷調色板是否存在
	if (m_palDIB != NULL)
	{
		// 清除調色板
		delete m_palDIB;
		m_palDIB = NULL;
	}

	// 判斷DibImage對象是否存在
	if (m_pDibImage != NULL)
	{
		// 清除DibImage對象
		delete m_pDibImage;
		m_pDibImage = NULL;
	}
}

BOOL CFreTransDoc::OnNewDocument()
{
	if (!CDocument::OnNewDocument())
		return FALSE;

	// TODO: add reinitialization code here
	// (SDI documents will reuse this document)

	return TRUE;
}



/////////////////////////////////////////////////////////////////////////////
// CFreTransDoc serialization

void CFreTransDoc::Serialize(CArchive& ar)
{
	if (ar.IsStoring())
	{
		// TODO: add storing code here
	}
	else
	{
		// TODO: add loading code here
	}
}

/////////////////////////////////////////////////////////////////////////////
// CFreTransDoc diagnostics

#ifdef _DEBUG
void CFreTransDoc::AssertValid() const
{
	CDocument::AssertValid();
}

void CFreTransDoc::Dump(CDumpContext& dc) const
{
	CDocument::Dump(dc);
}
#endif //_DEBUG

/////////////////////////////////////////////////////////////////////////////
// CFreTransDoc commands

void CFreTransDoc::ReplaceHDIB(HDIB hDIB)
{
	// 替換DIB，在功能粘貼中用到該函數	
	if (m_hDIB != NULL)
	{
		::GlobalFree((HGLOBAL) m_hDIB);
	}
	m_hDIB = hDIB;		
}

void CFreTransDoc::InitDIBData()
{
	// 初始化DIB對象

	if (m_palDIB != NULL)
	{
		delete m_palDIB;
		m_palDIB = NULL;
	}	
	if (m_hDIB == NULL)
	{
		return;
	}
	
	LPSTR lpDIB = (LPSTR) ::GlobalLock((HGLOBAL) m_hDIB);
	
	// 判斷圖像是否過大
	if (m_pDibImage->DIBWidth(lpDIB) > INT_MAX ||m_pDibImage->DIBHeight(lpDIB) 
		> INT_MAX)
	{
		::GlobalUnlock((HGLOBAL) m_hDIB);
		::GlobalFree((HGLOBAL) m_hDIB);

		m_hDIB = NULL;
		
		CString strMsg;
		strMsg = "BMP圖像太大！";
		MessageBox(NULL, strMsg, "系統提示", MB_ICONINFORMATION | MB_OK);

		return;
	}
	
	m_sizeDoc = CSize((int) m_pDibImage->DIBWidth(lpDIB), 
		(int) m_pDibImage->DIBHeight(lpDIB));
	
	::GlobalUnlock((HGLOBAL) m_hDIB);
	
	// 創建新調色板
	m_palDIB = new CPalette;
	if (m_palDIB == NULL)
	{
		::GlobalFree((HGLOBAL) m_hDIB);
		m_hDIB = NULL;

		return;
	}

	if (m_pDibImage->CreateDIBPalette(m_hDIB, m_palDIB) == NULL)
	{
		delete m_palDIB;
		m_palDIB = NULL;

		return;
	}
}

BOOL CFreTransDoc::OnOpenDocument(LPCTSTR lpszPathName) 
{
	CFile file;
	CFileException fe;

	if (!file.Open(lpszPathName, CFile::modeRead | CFile::shareDenyWrite, &fe))
	{
		ReportSaveLoadException(lpszPathName, &fe,FALSE, 
			AFX_IDP_FAILED_TO_OPEN_DOC);

		return FALSE;
	}
	
	DeleteContents();

	BeginWaitCursor();

	if(m_pDibImage != NULL)
	{
		delete m_pDibImage;
		m_pDibImage = NULL;
	}
	m_pDibImage = new CDibImage;

	TRY
	{
		m_hDIB = m_pDibImage->ReadDIBFile(file);
	}
	CATCH (CFileException, eLoad)
	{
		file.Abort();
		EndWaitCursor();

		ReportSaveLoadException(lpszPathName, eLoad,FALSE, 
			AFX_IDP_FAILED_TO_OPEN_DOC);
		
		m_hDIB = NULL;

		if(m_pDibImage != NULL)
		{
			delete m_pDibImage;
			m_pDibImage = NULL;
		}

		return FALSE;
	}
	END_CATCH

	InitDIBData();
	EndWaitCursor();
	
	// 判斷讀取文件是否成功
	if (m_hDIB == NULL)
	{
		CString strMsg;
		strMsg = "讀取圖像時出錯！可能是不支持該類型的圖像文件！";
		MessageBox(NULL, strMsg, "系統提示", MB_ICONINFORMATION | MB_OK);

		if(m_pDibImage != NULL)
		{
			delete m_pDibImage;
			m_pDibImage = NULL;
		}
		
		return FALSE;
	}
		
	SetPathName(lpszPathName);			// 設置文件名稱	
	SetModifiedFlag(FALSE);				// 初始化脹標記為FALSE

	return TRUE;
}

BOOL CFreTransDoc::OnSaveDocument(LPCTSTR lpszPathName) 
{
	CFile file;
	CFileException fe;

	if (!file.Open(lpszPathName, CFile::modeCreate |CFile::modeReadWrite 
		| CFile::shareExclusive, &fe))
	{
		ReportSaveLoadException(lpszPathName,&fe,TRUE,AFX_IDP_INVALID_FILENAME);
		return FALSE;
	}

	BOOL bSuccess = FALSE;
	TRY
	{
		BeginWaitCursor();
		bSuccess = m_pDibImage->SaveDIB(m_hDIB, file);
		file.Close();
	}
	CATCH (CException, eSave)
	{
		file.Abort();
		EndWaitCursor();
		ReportSaveLoadException(lpszPathName,eSave,TRUE,
			AFX_IDP_FAILED_TO_SAVE_DOC);

		return FALSE;
	}
	END_CATCH

	EndWaitCursor();
	SetModifiedFlag(FALSE);

	if (!bSuccess)
	{
		// 保存失敗，可能是其它格式的DIB，可以讀取但是不能保存
		// 或者是SaveDIB函數有誤
		CString strMsg;
		strMsg = "無法保存BMP圖像！";
		MessageBox(NULL, strMsg, "系統提示", MB_ICONINFORMATION | MB_OK);
	}
	
	return bSuccess;
}

void CFreTransDoc::OnFileReopen() 
{
	// 重新打開圖像，放棄所有修改
 
	// 判斷當前圖像是否已經被改動
	if (IsModified())
	{
		if (MessageBox(NULL, "重新打開圖像將丟失所有改動！是否繼續？", 
			"系統提示", MB_ICONQUESTION | MB_YESNO) == IDNO)
		{
			return;
		}
	}
	
	CFile file;
 	CFileException fe;
 	CString strPathName;
 	strPathName = GetPathName();

 	if (!file.Open(strPathName, CFile::modeRead | CFile::shareDenyWrite, &fe))
 	{
 		ReportSaveLoadException(strPathName,&fe,FALSE,AFX_IDP_FAILED_TO_OPEN_DOC);
 
 		return;
 	}
 	
 	BeginWaitCursor();
 	
	if(m_pDibImage != NULL)
	{
		delete m_pDibImage;
		m_pDibImage = NULL;
	}
	m_pDibImage = new CDibImage;

 	TRY
 	{
 		m_hDIB = m_pDibImage->ReadDIBFile(file);
 	}
 	CATCH (CFileException, eLoad)
 	{
 		file.Abort();
 		EndWaitCursor();
 		
 		ReportSaveLoadException(strPathName,eLoad,FALSE,AFX_IDP_FAILED_TO_OPEN_DOC);
 
 		m_hDIB = NULL;
		if(m_pDibImage != NULL)
		{
			delete m_pDibImage;
			m_pDibImage = NULL;
		}

 		return;
 	}
 	END_CATCH
 	
 	InitDIBData();
 	
 	if (m_hDIB == NULL)
 	{
 		CString strMsg;
 		strMsg = "讀取圖像時出錯！可能是不支持該類型的圖像文件！";
 		MessageBox(NULL, strMsg, "系統提示", MB_ICONINFORMATION | MB_OK);

 		EndWaitCursor();

		if(m_pDibImage != NULL)
		{
			delete m_pDibImage;
			m_pDibImage = NULL;
		}
 
 		return;
 	}
 	
 	SetModifiedFlag(FALSE);
 	UpdateAllViews(NULL);
 	EndWaitCursor();

 	return;
}