HMGforum.com

Posted: **Mon Apr 16, 2012 6:06 pm**

Hi all,

The example
C:\hmg.3.0.40\SAMPLES\ACTIVEX.7\demo7.prg

#include "hmg.ch"

FUNCTION Main()

	DEFINE WINDOW Win1 ;
		AT 0,0 ;
		WIDTH 800 ;
		HEIGHT 500 ;
		TITLE 'HMG ActiveX Support Demo' ;
		MAIN 

		DEFINE MAIN MENU
			POPUP "Test"
				MENUITEM "Open File" ACTION Test()
			END POPUP 			
		END MENU

		DEFINE ACTIVEX Test
			ROW 10
			COL 50
			WIDTH 700  
			HEIGHT 400  
			PROGID "AcroPDF.PDF.1"  
		END ACTIVEX

	END WINDOW

	Center Window Win1

	Activate Window Win1

RETURN NIL

Procedure Test()

//	Win1.Test.Object:src := curdrive() + ':\' + curdir() + '\' + 'readme.pdf'
Win1.Test.Object:src := 'readme.pdf'

Return

does not run in my computer, it stops at:

: ActiveX.JPG (28.99 KiB) Viewed 1673 times

I tried the same example in HMG Extended and works well.
Thanks in advance.
Best Regard,
Claudio Soto

Posted: **Mon Apr 16, 2012 7:07 pm**

Hola Claudio

prueba reemplazar CurDrive() por la funcion HB_Curdrive()

Code: Select all

/*
 * HMG - Harbour Win32 GUI library Demo
 *
 * Copyright 2002-2008 Roberto Lopez <mail.box.hmg@gmail.com>
 * http://sites.google.com/site/hmgweb/
 * Activex Sample: Inspired by Freewin Activex inplementation by 
 * Oscar Joel Lira Lira (http://sourceforge.net/projects/freewin).
*/

#include "hmg.ch"

FUNCTION Main()

	DEFINE WINDOW Win1 ;
		AT 0,0 ;
		WIDTH 800 ;
		HEIGHT 500 ;
		TITLE 'HMG ActiveX Support Demo' ;
		MAIN 

		DEFINE MAIN MENU
			POPUP "Test"
				MENUITEM "Open File" ACTION Test()
			END POPUP 			
		END MENU

		DEFINE ACTIVEX Test
			ROW 10
			COL 50
			WIDTH 700  
			HEIGHT 400  
			PROGID "AcroPDF.PDF.1"  
		END ACTIVEX

	END WINDOW

	Center Window Win1

	Activate Window Win1

RETURN NIL

Procedure Test()

	Win1.Test.Object:src := hb_curdrive() + ':\' + curdir() + '\' + 'readme.pdf'

Return

Posted: **Mon Apr 16, 2012 7:27 pm**

Grande Daniel, funciona perfecto!!!!

Saludos cordiales,
Claudio

HMGforum.com

Help: Problem with ActiveX control

Help: Problem with ActiveX control

Re: Help: Problem with ActiveX control

Re: Help: Problem with ActiveX control