51 lines
1.3 KiB
Plaintext
51 lines
1.3 KiB
Plaintext
Function SVC_Option_Button(Service, Param1, Param2, Param3)
|
|
|
|
/********************************************************************************************************
|
|
|
|
This program is proprietary and is not to be used by or disclosed to others, nor is it to
|
|
be copied without written permission from SRP Computer Solutions, Inc.
|
|
|
|
Name :
|
|
|
|
Description :
|
|
|
|
Tags : [SRP]
|
|
|
|
Parameters :
|
|
|
|
History (Date, Initials, Notes)
|
|
01/25/08 fjt Initial development
|
|
|
|
********************************************************************************************************/
|
|
|
|
$insert SRP_APP_INSERTS
|
|
$insert SERVICE_INSERT
|
|
|
|
Begin Case
|
|
Case Service _eqc "Add" ; GoSub Add
|
|
End Case
|
|
|
|
Return Ans
|
|
|
|
|
|
!----- SERVICES -----------------------------------------------------------------------------------------
|
|
|
|
|
|
Add:
|
|
Window = Param1
|
|
CtrlId = Param2
|
|
Image = Param3
|
|
|
|
// Control handle
|
|
CtrlId = Window:".":CtrlId
|
|
Handle = Get_Property(CtrlId, "HANDLE")
|
|
|
|
// Subclass the control
|
|
rv = Send_Message(@Window:".OLE_SUBCLASS", "OLE.Subclass", Handle, CtrlId)
|
|
Convert "." to ";" in CtrlId
|
|
Set_Property(@Window:".OLE_SUBCLASS", "OLE.OptionButton[":CtrlId:"]", 1)
|
|
|
|
// Add an image
|
|
If Image then Set_Property(@Window:".OLE_SUBCLASS", "OLE.OptionImage[":CtrlId:"]", Image)
|
|
return
|