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