http://forum.codejock.com/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Wed, 13 May 2026 07:09:07 +0000 Sun, 30 Jul 2006 19:03:32 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 forum.codejock.com/RSS_post_feed.asp?TID=4596 http://forum.codejock.com/forum_images/codejock-logo.gif http://forum.codejock.com/ http://forum.codejock.com/forum_posts.asp?TID=4596&PID=14473&title=dtpicker#14473 Author: sserge
Subject: 4596
Posted: 30 July 2006 at 7:03pm

see answer in http://forum.codejock.com/forum_posts.asp?TID=4597

--
WBR,
Serge
]]> Sun, 30 Jul 2006 19:03:32 +0000 http://forum.codejock.com/forum_posts.asp?TID=4596&PID=14473&title=dtpicker#14473 http://forum.codejock.com/forum_posts.asp?TID=4596&PID=14176&title=dtpicker#14176 Author: cybeh
Subject: 4596
Posted: 15 July 2006 at 2:09am

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 advnace.



]]> Sat, 15 Jul 2006 02:09:07 +0000 http://forum.codejock.com/forum_posts.asp?TID=4596&PID=14176&title=dtpicker#14176