Page History
...
Code Block |
---|
// Subclass my editline control and add an option button that appears only during focus CtrlId = @Window:".EDITLINE" Handle = Get_Property(CtrlId, "HANDLE") rv = Send_Message(@Window:".OLE_SUBCLASS", "OLE.Subclass", Handle, CtrlId) Convert "." to ";" in CtrlId Set_Property(@Window:".OLE_SUBCLASS", "OLE.OptionButton[":CtrlId:"]", 1) Set_Property(@Window:".OLE_SUBCLASS", "OLE.OptionFocus[":CtrlId:"]", 1) |