Page History
...
Code Block |
---|
// Based on the current view, determine the location of the time CurrentView = Get_Property(@Window:".OLE_SCHEDULE", "OLE.View") Begin Case Case CurrentView EQ "SingleDay" // Pass Time format, result is Y Y = Send_Message(Ctrl, "OLE.MapTimeToClient", IConv("1:17PM", "MTH"), 0) Case CurrentView EQ "SingleDayHorz" // Pass Time format, result is X X = Send_Message(Ctrl, "OLE.MapTimeToClient", IConv("1:17PM", "MTH"), 0) Case CurrentView EQ "MultiDayHorz" // Pass DateTime format, result is X X = Send_Message(Ctrl, "OLE.MapTimeToClient", IConv("7/4/2011 4:40PM", "DT"), 0) End Case |