Page History
...
Code Block |
---|
// Based on the current view, determine the time beneath the mouse CurrentView = Get_Property(@Window:".OLE_SCHEDULE", "OLE.View") Begin Case Case CurrentView EQ "SingleDay" // Pass Y, result is Time format TimeVal = Send_Message(Ctrl, "OLE.MapClientToTime", Y, 0) Time = OConv(TimeVal, "MTH") Case CurrentView EQ "SingleDayHorz" // Pass X, result is Time format TimeVal = Send_Message(Ctrl, "OLE.MapClientToTime", X, 0) Time = OConv(TimeVal, "MTH") Case CurrentView EQ "MultiDayHorz" // Pass X, result is DateTime format TimeVal = Send_Message(Ctrl, "OLE.MapClientToTime", X, 0) Time = OConv(TimeVal, "DT2/^H'") End Case |