added LSL2 stored procedures

LSL2/STPROC/SVC_OPTION_BUTTON.txt

@@ -0,0 +1,50 @@
+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