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