Exemplo simples de acesso a componentes ocx usando a HWGUI.
Saudações
Itamar M. Lins Jr.
Código: Selecionar todos
/*
*$Id: pdfreader.prg,v 1.2 2008/04/01 08:54:50 giuseppem Exp $
*
* HWGUI - Harbour Win32 and Linux (GTK) GUI library
* pdfreader.prg - sample of ActiveX container for the Acrobat Reader ocx
*
*
* Copyright 2006 Alexander S.Kresin <alex@belacy.belgorod.su>
* www - http://kresin.belgorod.su
*
* Sample code derived from a sample code found on Internet.... oohg ?
*
*/
#include "hwgui.ch"
#include "rmchart.ch"
#include "hbclass.ch"
Function Main
Local oMainWnd, oPanel
Private oPdf
INIT WINDOW oMainWnd TITLE "Pdf example" AT 200,0 SIZE 500,400
MENU OF oMainWnd
MENU TITLE "File"
MENUITEM "E&xit" ACTION oMainWnd:Close()
ENDMENU
ENDMENU
@ 0,0 PANEL oPanel SIZE 500,366 ON SIZE {|o,x, y| o:Move(,,x,y), opdf:Move(,,x,y), opdf:Refresh() }
opdf := ViewPdf( oPanel, "SAMPLE.PDF", 0, 0, 500, 366 )
ACTIVATE WINDOW oMainWnd
Return
CLASS PdfReader FROM HActiveX
CLASS VAR winclass INIT "Pdfreader"
METHOD New()
ENDCLASS
METHOD New(p1,p2,p3,p4,p5,p6) CLASS PdfReader
Super:New(p1,p2,p3,p4,p5,p6)
RETURN
function ViewPdf(oWindow, cPdfFile, col, row, nHeight, nWidth)
local oPdf
oPdf := PdfReader():New( oWindow, "AcroPDF.PDF.1", 0, 0, nHeight, nWidth )
oPdf:LoadFile(cPdfFile)
return oPdf