#include <OfficeAutomation/OfficeAutomation.h>

using namespace Upp;

class WordFrm : public TopWindow {
public:
	WordFrm() {
		Sizeable().Zoomable();
		embedded = 0;
	}
	void Embed() {	
		if (doc.IsAvailable("Microsoft")) 
			doc.Init("Microsoft");
		
		doc.AddDoc(true);
		embedded = FindWindow("Opusapp", NULL);
		LONG lStyle = GetWindowLong(embedded, GWL_STYLE);
		lStyle &= ~(WS_CAPTION | WS_THICKFRAME | WS_MINIMIZE | WS_MAXIMIZE | WS_SYSMENU | WS_BORDER | WS_DLGFRAME | WS_SIZEBOX);
		SetWindowLong(embedded, GWL_STYLE, lStyle); 
		LONG lExStyle = GetWindowLong(embedded, GWL_EXSTYLE);
		lExStyle &= ~(WS_EX_DLGMODALFRAME | WS_EX_CLIENTEDGE | WS_EX_STATICEDGE);
		SetWindowLong(embedded, GWL_EXSTYLE, lExStyle);			 	
		SetWindowPos(embedded, NULL, 0,0,0,0, SWP_FRAMECHANGED | SWP_NOMOVE | SWP_NOSIZE | SWP_NOZORDER | SWP_NOOWNERZORDER);
		::SetParent(embedded, GetHWND());		
		Layout();
	}
private:
	OfficeDoc doc;
	HWND embedded;
	
	virtual void Layout() {
		if (embedded == 0)
			return;
		Rect r = GetScreenView();
    	Rect pr = GetScreenClient(embedded);	
		MoveWindow(embedded, r.left - pr.left, r.top - pr.top, r.Width(), r.Height(), TRUE);
	}
	virtual LRESULT WindowProc(UINT message, WPARAM wParam, LPARAM lParam) {
		if (message == WM_SIZE)
			Layout();
		return TopWindow::WindowProc(message, wParam, lParam);
	}
};

GUI_APP_MAIN
{	
	WordFrm w;
	w.Open();	
	w.Embed();
	w.Run();
}