added LSL2 stored procedures

LSL2/STPROC/GET_LPARAM.txt

@@ -0,0 +1,40 @@
+Function Get_lParam(CtrlEntId, Point, Point.W)
+/******************************************************************************************************* 
+
+    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        :   Get Lparam
+
+    Description :
+    
+    Tags		:	[SRP]
+
+    Parameters  :
+
+    History (Date, Initials, Notes)
+        09/17/08    fjt     Initial development
+
+*******************************************************************************************************/
+
+$insert SRP_APP_INSERTS
+
+Declare subroutine GetCursorPos, ScreenToClient
+Declare function Blank_Struct, Struct_To_Var
+
+Win  = Field(CtrlEntId, ".", 1)
+hWnd = Get_Property(CtrlEntId, "HANDLE")
+MousePos = Blank_Struct("POINT")
+GetCursorPos(MousePos)
+ScreenToClient(hWnd, MousePos)
+Point = Struct_To_Var(MousePos, "POINT")
+lParam = Point<1> + (Point<2> * 65536)
+
+Point.W = ""
+Size.C = Get_Property(CtrlEntId, "SIZE")
+Size.W = Get_Property(Win, "SIZE")
+
+Point.W<1> = Point<1> + Size.C<1> + Size.W<1>
+Point.W<2> = Point<2> + Size.C<2> + Size.W<2> + 26
+
+Return lParam