dtpicker
Printed From: Codejock Forums
Category: Codejock Products
Forum Name: Calendar
Forum Description: Topics Related to Codejock Calendar
URL: http://forum.codejock.com/forum_posts.asp?TID=4596
Printed Date: 29 September 2024 at 1:00pm
Software Version: Web Wiz Forums 12.04 - http://www.webwizforums.com
Topic: dtpicker
Posted By: cybeh
Subject: dtpicker
Date 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.
|
Replies:
Posted By: sserge
Date Posted: 30 July 2006 at 7:03pm
see answer in http://forum.codejock.com/forum_posts.asp?TID=4597 - http://forum.codejock.com/forum_posts.asp?TID=4597
--
WBR,
Serge
|
|