C / C++ / MFC

Declare Function Draw Lib "PDF_In_The_Box.dll" (ByVal hBox As Long, ByVal aX As Long, ByVal aY As Long, ByVal hBitmap As Long) As Long
//////////

Sub CallBox(ByVal aFunctionCall As Long)
  Dim Msg As String * 255
  Dim n As Long

  If aFunctionCall = -1 Then
    n = GetErrorMsg(Msg)
    MsgBox Msg, 16, "PDF In-The-Box"
    Stop
  End If
End Sub
////////////////////
Function GetStr(ByVal aBoxHandle As Long, ByVal aPropID As Long) As String
  Dim Result As String * 255
  CallBox GetStrProp(aBoxHandle, aPropID, Result)
  GetStr = Result
End Function
///////////////////////////

class CMainWindow : public CFrameWnd {<br />
<br />
<br />
public:<br />
	CMainWindow();<br />
	<br />
protected:<br />
	afx_msg int OnCreate( LPCREATESTRUCT );<br />
	afx_msg void OnSize( UINT nType, int cx, int cy );<br />
<br />
	afx_msg void OnPaint();<br />
	afx_msg void OnHScroll( UINT nCode, UINT nPos, CScrollBar *pScrollBar );<br />
<br />
	DECLARE_MESSAGE_MAP()<br />
<br />
private:<br />
<br />
	int charWidth;<br />
<br />
	int m_nPageWidth;<br />
	int m_HorzScrollPos;<br />
<br />
	CEdit input1;<br />
<br />
};

<br />
int<br />
CMainWindow::OnCreate( LPCREATESTRUCT lpcs )<br />
{<br />
	if ( CFrameWnd::OnCreate( lpcs ) == -1 )<br />
		return -1;<br />
<br />
	<br />
	TEXTMETRIC tm;<br />
	CClientDC dc(this);<br />
	dc.GetTextMetrics( &tm );<br />
<br />
	charWidth = tm.tmAveCharWidth;<br />
<br />
	input1.CreateEx( WS_EX_CLIENTEDGE, TEXT("edit"), NULL,<br />
                WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_AUTOHSCROLL,<br />
                    150, 125, 60, 20,<br />
                    m_hWnd, (HMENU)500, NULL );<br />
	return 0;<br />
}

void<br />
CMainWindow::OnPaint()<br />
{<br />
    CPaintDC dc(this);<br />
    dc.SetWindowOrg( m_HorzScrollPos, 0 );<br />
    dc.TextOut( 150, 100,<br />
      TEXT( "This is a very long string which I hope will take up most of the line" ), 69 );<br />
}

BOOL CBrowserFrame::OnCreateClient(LPCREATESTRUCT lpcs,CCreateContext* 
pContext)
{
    // Create a contextt.
    CCreateContext context;
    pContext = &context;
    // Assign custom view.
  
    pContext->m_pNewViewClass = RUNTIME_CLASS(CBrowserView);

    // Create the view.
	pview = (CBrowserView *) CreateView(pContext, AFX_IDW_PANE_FIRST);
	((CMainFrame*)GetParentFrame())->pBView=pview;
    if (pview ==NULL)
        return FALSE;
   pview->Test(); //Nothing is displayed!!
    // Notify the view.
    pview->SendMessage(WM_INITIALUPDATE);
    SetActiveView(pview, FALSE);
	return CFrameWnd::OnCreateClient(lpcs,pContext);
    
}

void CBrowserView::OnInitialUpdate()
{
	Navigate2("http://localhost");
	CHtmlView::OnInitialUpdate();
}
void CBrowserView::OnDocumentComplete(LPCTSTR lpszURL)
{
	MessageBox("OnDocumentComplete()");
	CHtmlView::OnDocumentComplete(lpszURL);
}
void CBrowserView::Test()
{
	Navigate("http://www.google.com");
}