Posted by Mike Saunders on December 10, 2007 at 11:12:44:
In Reply to: Re: Mix and Match posted by Brian Levantine on December 08, 2007 at 17:38:25:
Brian,
With a little tweaking I've been able to get the test program working.
As I mentioned, as it is doing the DLL method, there is the (small) additional problem of getting the DLL over to the CA clients. The preferred solution would be to have all the code in the Comet Object program.
As I could see in the btnwin.ibs program that is was creating buttons directly on the screen I figured I'd try adding a date time Picker.
I have been successful in getting a DateTimePicker Control into btnwin.ibs program and have it displaying okay.
However I seem to be having a bit of a time trapping the event for it. (i.e Gosub COS.AppendCmdFilter)
From Windows Documentation it looks like I would be wanting to use the Closeup event, but I do not see it listed in WINDOWS.INC. (only see CBN.CLOSEUP for the combo box)
Would you explain a little more on the handling of events under Comet?
Thought I had a grasp of it, but maybe not.
USR.CommandHandler:
Select Case cosCtlId
Case IDC.CALBTN
Gosub APP.Calendar
cosCWnd$ = cosDlghDlg$
GoSub COS.SetFocus
Case IDC.DATETIMEPICKER1
MsgBox "DateTimePicker Event"
EndSelect
Return
CreateControls:
Gosub COS.Init ! Initialize Windows runtime
cosCtlText$ = "" ! Initialize filter to empty
cosCWnd$ = cosDlghDlg$ ! View window
Gosub COS.InitCmdFilter ! Tell COSW that we want NO messages
Gosub MakeCalendarButton ! Make pushbutton Calendar
Gosub MakeDateTimePicker ! Make DateTime Contorl
Gosub COS.EnableInterrupts ! Enable automatic message handling
Return
MakeDateTimePicker:
cosRow = 2
cosCol = 20
cosWidth = 215
cosHeight = 35
cosCtlId = IDC.DATETIMEPICKER1
cosStyle = WS.VISIBLE + WS.TABSTOP + WS.CHILD + DTS.SHORTDATEFORMAT + DTS.RIGHTALIGN !+ DTS.SHOWNONE
cosExStyle = 0
cosDlgFlags = 0
gosub COS.CreateDateTimeControl
cosMonth = 4
cosDay = 1
cosYear = 1986
cosState = GDT.VALID
gosub COS.SetSystemTime
cosCtlText$ = Intel(IDC.DATETIMEPICKER1)+Intel(GDT.ERROR)+Intel(DTN.DATETIMECHANGE)+_
Intel(GDT.VALID)+Intel(GDT.NONE)+Intel(CBN.CLOSEUP)
cosCWnd$ = cosDlghDlg$
Gosub COS.AppendCmdFilter ! Tell COSW that we want the messages
Return
Note: in the above cosCtlText$ I was just trying everything after having tried them individually.