FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour Class MyActiveX
Posts: 603
Joined: Sun May 04, 2008 08:44 PM
Class MyActiveX
Posted: Thu Nov 26, 2009 05:02 AM

HI,

this a perfect class to use object Activex/COM
is class ToleAuto with events. ( base in work of Carlos Mora WoleEvent )

A project started by Carlo Mora and Oscar Lira, i add news features that i think that is necessary.

Can make download here http://fivewin.com.br/exibedicas.asp?id=1026

How use:

include "MyActiveX.ch"

@ 0, 0 MyACTIVEX oAct "Codejock.SkinFrameWorks.13.2.1" OF oWnd size 300,400

Or by REDEFINE mode

REDEFINE MyACTIVEX oAct ID 4001 OF oWnd PROGID "Codejock.SkinFrameWorks.13.2.1"

Or too

oAct:=MyActiveX():New(ownd,"Codejock.SkinFrameWorks.13.2.1")

Using events

define Update 1

oAct:Event( 1, {|| MsgINfo("I´m Event update") } )

Good Luck.
And thanks carlos mora and oscar lira, thanks too Antonio linhares y daniel.

Continue the discussion