http://forum.codejock.com/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Wed, 13 May 2026 08:59:48 +0000 Tue, 18 Jul 2006 09:19:13 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 forum.codejock.com/RSS_post_feed.asp?TID=4597 http://forum.codejock.com/forum_images/codejock-logo.gif http://forum.codejock.com/ http://forum.codejock.com/forum_posts.asp?TID=4597&PID=14207&title=dtpicker-in-reportcontrol#14207 Author: SuperMario
Subject: 4597
Posted: 18 July 2006 at 9:19am

You need the license to use CreateObject:

Dim pDatePicker
   XtremeCalendarControl.License = "Calendar Control Copyright (c)2003-2006 Codejock Software" & vbCrLf & "PRODUCT-ID:Codejock.Calendar.ActiveX.v10.2" & vbCrLf & "VALIDATE-CODE:XXX-XXX-XXX-XXX"
    Set pDatePicker = CreateObject("Codejock.DatePicker." + XtremeCalendarControl.Version)

Also note if you are still using 9.81 then you will need to change the version number and copyright years
]]> Tue, 18 Jul 2006 09:19:13 +0000 http://forum.codejock.com/forum_posts.asp?TID=4597&PID=14207&title=dtpicker-in-reportcontrol#14207 http://forum.codejock.com/forum_posts.asp?TID=4597&PID=14177&title=dtpicker-in-reportcontrol#14177 Author: cybeh
Subject: 4597
Posted: 15 July 2006 at 2:11am

Hi,

In my reporting control, I do have a drop down button which should let the user click and show the dt picker.

        nResult = Show_XTPDatePicker(nX, nY, dTDate)

Private Function Show_XTPDatePicker(nX, nY, dTDate) As Long
    Show_XTPDatePicker = -1
   
    On Error GoTo err1
   
    Dim pDatePicker
    Dim dtDate0
    Set pDatePicker = CreateObject("Codejock.DatePicker.9.81")
   
    If pDatePicker Is Nothing Then
        Exit Function
    End If
   
    pDatePicker.MaxSelectionCount = 1
   
    Dim nWidth As Long, nHeight As Long
    pDatePicker.GetMinReqRect nWidth, nHeight, 1, 1
       
    pDatePicker.SelectRange dTDate, dTDate
    pDatePicker.EnsureVisible dTDate
                   
    Dim bResult As Boolean
    bResult = pDatePicker.ShowModalEx(nX, nY, nWidth + 4, nHeight + 4, wndReportControl.hwnd)
   
   
    Show_XTPDatePicker = 0
       
    If bResult And pDatePicker.Selection.BlocksCount > 0 Then
       
        dtDate0 = pDatePicker.Selection.Blocks(0).DateBegin()
        If IsDate(dtDate0) Then
            dTDate = CDate(dtDate0)
            Show_XTPDatePicker = 1
        End If
    Else
        If bResult And pDatePicker.Selection.BlocksCount = 0 Then
            dtDate0 = "1601-01-01"
            dTDate = CDate(dtDate0)
            Show_XTPDatePicker = 1
        End If
    End If
err1:
End Function


The code works fine at my machine, but not my client machine. I think there is some OCX missing.

But, I do include all this in my InnoSetup Script

Source:"D:\Coding\ProjectManagement\Package\Support\Codejock.TaskPanel.v9.81.ocx";DestDir: "{sys}"; Flags: sharedfile regserver
Source:"D:\Coding\ProjectManagement\Package\Support\Codejock.SuiteCtrls.v9.81.ocx";DestDir: "{sys}"; Flags: sharedfile regserver
Source: "D:\Coding\ProjectManagement\Package\Support\Codejock.Calendar.v9.81.ocx"; DestDir: "{sys}"; Flags: sharedfile regserver
Source:"D:\Coding\ProjectManagement\Package\Support\Codejock.ShortcutBar.v9.81.ocx";DestDir: "{sys}"; Flags: sharedfile regserver
Source:"D:\Coding\ProjectManagement\Package\Support\Codejock.CommandBars.v9.81.ocx";DestDir: "{sys}"; Flags: sharedfile regserver
Source:"D:\Coding\ProjectManagement\Package\Support\Codejock.ReportControl.v9.81.ocx";DestDir: "{sys}"; Flags: sharedfile regserver


Can anyone tell me wut's missing? Please advice. Thanks in advance.



]]> Sat, 15 Jul 2006 02:11:22 +0000 http://forum.codejock.com/forum_posts.asp?TID=4597&PID=14177&title=dtpicker-in-reportcontrol#14177