Versions Compared

Old Version 1

changes.mady.by.user SRP Support

Saved on

compared with

New Version Current

changes.mady.by.user SRP Support

Saved on

Key

  • This line was added.
  • This line was removed.
  • Formatting was changed.

...

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

See Also

MapTimeToClient