ich habe irgendwo mal Sourcecode für einen Kalender gefunden. Der lief auch mal. Habe jetzt den Code mal ausprobiert, läuft jetzt aber nicht mehr
Fehlermeldung: "Could nor create AktiveX control". #include "activex.ch" ist eingebunden. Weis jemand woher der Code stammt und wie man das wieder zum Laufen bringt?
PROCEDURE DisplayCalendar( oOwner )
LOCAL oDlg
LOCAL oXbp
LOCAL aRect
oDlg := XbpDialog():New( AppDesktop(), oOwner )
oDlg:Title := "Kalender"
oDlg:Border := XBPDLG_RAISEDBORDERTHIN_FIXED
oDlg:Create( ,,,{100,100},, .F. )
oXbp := XbpMonthView():New( oDlg:DrawingArea )
oXbp:Create()
oXbp:MultiSelect := .T.
*oXbp:MinDate := oOwner:oDeparture:GetData()
*oXbp:MaxDate := oOwner:oArrival:GetData()
oXbp:MaxSelect := 9999
*oXbp:SelStart := oOwner:oDeparture:GetData()
*oXbp:SelEnd := oOwner:oArrival:GetData()
oXbp:MonthRows := 3
oXbp:MonthColumns:= 4
oXbp:ShowWeekNumbers := .T.
oXbp:SetPos( {0,0} )
oXbp:Disable()
aRect := oXbp:CurrentSize()
aRect := {0,0,aRect[1],aRect[2]}
aRect := oDlg:CalcFrameRect( aRect )
oDlg:SetSize( {aRect[3],aRect[4]} )
CenterControl( oDlg, oOwner )
oDlg:ShowModal()
oDlg:Destroy()
RETURN