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