41 lines
1.2 KiB
Plaintext
41 lines
1.2 KiB
Plaintext
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
|