Pedro,

I received the OCX and manual, registered it and tried to start it up,
without any success.
I cannot find any practical programming examples in the manual. Is
there a license string required ? 
Also, in the manual they keep saying that all is preliminary, but the
files are from 2005. Is there anything more recent and less
'preliminary' ?

Regards,
Jan


On Fri, 04 Jan 2008 21:16:00 +0100, Jan Groenestein wrote:

>Pedro,
>
>I looked at your code and compiled it, at first sight there seems to
>be no problem. I also tried to find the Activex contol that you are
>calling in order to test it. However, the makers of this stuff offer a
>whole list of products an I can't find out which one I need. Can you
>send me this stuff or specify what I should actually download ?
>
>Regards,
>Jan
>
>
>On Thu, 3 Jan 2008 17:32:03 -0500, "Pedro Hernández"
><comp_cidav@codetel.net.do> wrote:
>
>>This  inside the file
>>
>>#include "xbp.ch"
>>#include "appevent.ch"
>>#include "inkey.ch"
>>#include "activex.ch"
>>#include "Xbp.ch"
>>#INCLUDE "DLL.CH"
>>
>>#pragma library( "ascom10.lib" )
>>
>>PROCEDURE MAIN()
>>   LOCAL oDlg, oCRWViewer
>>
>>   oDlg := XbpDialog():new(AppDesktop(),,{100,100},{800,600},,.F.)
>>   oDlg:taskList := .T.
>>   oDlg:drawingarea:resize := {|aO,aN| oCRWViewer:setSize(aN), 
>>oCRWViewer:invalidateRect() }  //working in original
>>   oDlg:drawingarea:clipChildren := .T.
>>   oDlg:create()
>>   oDlg:Show()
>>
>>   oCRWViewer := xbpActiveXControl():new( oDlg:drawingArea,, {0,0}, 
>>oDlg:drawingArea:currentSize() )
>>   oCRWViewer:clsid := "CCubeX3.ContourGridX"
>>   oCRWViewer:create( )
>>
>>   nEvent := xbe_None
>>   DO WHILE nEvent <> xbeP_Close
>>      nEvent := AppEvent( @mp1, @mp2, @oXbp )
>>      oXbp:handleEvent( nEvent, mp1, mp2 )
>>   ENDDO
>>
>>   oCRWViewer:destroy()
>>   oDlg:destroy()
>>
>>RETURN
>>
>>PROCEDURE DbeSys()
>>RETURN
>>
>>PROCEDURE AppSys()
>>RETURN
>>
>>
>>Thanks ++

If you are using Xbase++ 1.9 activeX is built in. The OCX stuff was for
an older version.

Jim

Jan Groenestein wrote:
> Pedro,
> 
> I received the OCX and manual, registered it and tried to start it up,
> without any success.
> I cannot find any practical programming examples in the manual. Is
> there a license string required ? 
> Also, in the manual they keep saying that all is preliminary, but the
> files are from 2005. Is there anything more recent and less
> 'preliminary' ?
> 
> Regards,
> Jan
> 
> 
> On Fri, 04 Jan 2008 21:16:00 +0100, Jan Groenestein wrote:
> 
>> Pedro,
>>
>> I looked at your code and compiled it, at first sight there seems to
>> be no problem. I also tried to find the Activex contol that you are
>> calling in order to test it. However, the makers of this stuff offer a
>> whole list of products an I can't find out which one I need. Can you
>> send me this stuff or specify what I should actually download ?
>>
>> Regards,
>> Jan
>>
>>
>> On Thu, 3 Jan 2008 17:32:03 -0500, "Pedro Hernández"
>> <comp_cidav@codetel.net.do> wrote:
>>
>>> This  inside the file
>>>
>>> #include "xbp.ch"
>>> #include "appevent.ch"
>>> #include "inkey.ch"
>>> #include "activex.ch"
>>> #include "Xbp.ch"
>>> #INCLUDE "DLL.CH"
>>>
>>> #pragma library( "ascom10.lib" )
>>>
>>> PROCEDURE MAIN()
>>>   LOCAL oDlg, oCRWViewer
>>>
>>>   oDlg := XbpDialog():new(AppDesktop(),,{100,100},{800,600},,.F.)
>>>   oDlg:taskList := .T.
>>>   oDlg:drawingarea:resize := {|aO,aN| oCRWViewer:setSize(aN), 
>>> oCRWViewer:invalidateRect() }  //working in original
>>>   oDlg:drawingarea:clipChildren := .T.
>>>   oDlg:create()
>>>   oDlg:Show()
>>>
>>>   oCRWViewer := xbpActiveXControl():new( oDlg:drawingArea,, {0,0}, 
>>> oDlg:drawingArea:currentSize() )
>>>   oCRWViewer:clsid := "CCubeX3.ContourGridX"
>>>   oCRWViewer:create( )
>>>
>>>   nEvent := xbe_None
>>>   DO WHILE nEvent <> xbeP_Close
>>>      nEvent := AppEvent( @mp1, @mp2, @oXbp )
>>>      oXbp:handleEvent( nEvent, mp1, mp2 )
>>>   ENDDO
>>>
>>>   oCRWViewer:destroy()
>>>   oDlg:destroy()
>>>
>>> RETURN
>>>
>>> PROCEDURE DbeSys()
>>> RETURN
>>>
>>> PROCEDURE AppSys()
>>> RETURN
>>>
>>>
>>> Thanks ++