Alaska Software Inc. - Codejock Calendar Dialogs
Username: Password:
AuthorTopic: Codejock Calendar Dialogs
AUGE_OHRCodejock Calendar Dialogs
on Tue, 03 Nov 2009 07:02:25 +0100
hi,

we (Roger and i ) still have Problem with Xbase++ and Codejock.
Alaska have promise to look at it, so here is a Sample, try to run it.

*** Code ***
#include "Gra.ch"
#include "Xbp.ch"
#include "Appevent.ch"
#include "Font.ch"

#PRAGMA LIBRARY( "ASCOM10.LIB" )

/********************************************************************************************************
CalendarDialogs Object
Description
Object used to manage the built in calendar dialogs.

For a list of all members defined in this module, see CalendarDialogs
members.

c:\Programme\Codejock Software\ActiveX\Xtreme SuitePro ActiveX
v13.0.0\Samples\Calendar\VB\CalendarSample\frmMain.frm

Private Sub ModifyEvent(ModEvent As CalendarEvent)

    If g_bUseBuiltInCalendarDialogs Then
        Dim dlgCalendar As New CalendarDialogs
        dlgCalendar.ParentHWND = Me.hwnd
        dlgCalendar.Calendar = CalendarControl

********************************************************************************************************/

PROCEDURE APPSYS
RETURN

PROCEDURE Main
LOCAL nEvent, mp1, mp2, aSize
LOCAL oDlg, oXbp, drawingArea, aEditControls := {}
LOCAL oCal, oDialogs,yyy

   oDlg := XbpDialog():new( AppDesktop(), , {0,0}, {800,600}, , .F.)
   oDlg:taskList := .T.
   oDlg:title := "Calendar Dialogs Demo"
   oDlg:create()

   drawingArea := oDlg:drawingArea
   drawingArea:setFontCompoundName( "8.Arial" )

   oCal := XbpActiveXControl():new( drawingArea, , {20,25}, {760,550} )
*  oCal:CLSID := "{7B7990A4-9419-4F8C-A459-3E4644BCC35F}"
   oCal:CLSID   := "Codejock.CalendarControl.13.0.0"
   oCal:License := "Calendar Control Copyright (c) 2003-2009 Codejock
Software"+ Chr(13)+Chr(10) +"PRODUCT-ID: Codejock.Calendar.ActiveX.v13.0"+
Chr(13)+Chr(10) +"VALIDATE-CODE: WAD-FOY-VBC-AED"
   oCal:TabStop := .T.
   oCal:create()

   oDlg:show()
   SetAppFocus(oDlg)

 create Build-in Dialogs

   oDialogs := CreateObject( "Codejock.CalendarDialogs.13.0.0"  )


 Handle to the parent form.
 Set this to the handle of the parent form from which the built-in dialogs 
will be displayed.

   oDialogs:ParentHWND := oDlg:getHwnd()
*   oDialogs:ParentHWND := oCal:hWnd

 Property "Calendar" exist but NIL

   yyy := oDialogs:getProperty("Calendar" )
ALTD()

 Handle to the Calendar control for which the built-in dialogs will 
manage.
 Set this to the handle of the Calendar control for which the built-in 
dialogs will manage.

 here it crash

   oDialogs:setProperty("Calendar", oCal )
*  oDialogs:setProperty("Calendar", oCal:hWnd )  crash dito

   nEvent := xbe_None
   DO WHILE nEvent <> xbeP_Close
      nEvent := AppEvent( @mp1, @mp2, @oXbp )
      oXbp:handleEvent( nEvent, mp1, mp2 )
   ENDDO
RETURN

*** Eof ***

is Alaska willing to fulfill its promise and fix that Problem ?

greetings by OHR
Jimmy