| Popup Menu [message #85550] |
Wed, 07 July 2004 23:27  |
Hana
Messages: 5
Registered: May 2004
|
Junior Member |
|
|
Hi,
Is it possible to move popup menu programmatically? I used to move the popup menu WIN_API function(WIN_API_SHELL.SENDMESSAGE), but there is a problem with Forms logical unit and pixels. Is it possible to convert Forms logical units to pixels? Platform is Windows NT and Forms 6.5. Can you help me?
Thanks Hana
|
|
|
|
| Re: Popup Menu [message #86270 is a reply to message #85550] |
Thu, 16 September 2004 03:47  |
0ri0n
Messages: 1
Registered: September 2004
|
Junior Member |
|
|
Can you give an example of moving popup menu with WIN_API_SHELL.SENDMESSAGE function? Who knows how to display popup menu programmatically using this function?
Thanks.
|
|
|
|
| Re: Popup Menu [message #86509 is a reply to message #86270] |
Wed, 06 October 2004 23:36 |
Hana
Messages: 5
Registered: May 2004
|
Junior Member |
|
|
PROCEDURE show_popup_menu IS
WM_RBUTTONDOWN CONSTANT PLS_INTEGER := 516; /* 0x0204*/
WM_RBUTTONUP CONSTANT PLS_INTEGER := 517; /* 0x0205 */
hWin PLS_INTEGER; /* Item Window Handle */
pos_shifft PLS_INTEGER;
v_block_name VARCHAR2(64) ;
v_item_name VARCHAR2(64) ;
BEGIN
v_block_name := SUBSTR(:system.trigger_item,1,INSTR(:system.trigger_item,'.')-1) ;
v_item_name := v_block_name || '.' || SUBSTR(:system.trigger_item,INSTR(:system.trigger_item,'.')+1) ;
-- Calculate position shifft
pos_shifft := 18 * 256 * 256;
-- Get the Window handle for item
hWin := get_item_property(v_item_name, WINDOW_HANDLE);
win_api_shell.sendmessage(hWin, WM_RBUTTONUP,0,pos_shifft,TRUE);
EXCEPTION
WHEN NO_DATA_FOUND THEN
message('Put some error handling in here');
END;
|
|
|
|
] 
Blog
Search
Help
Members
Register
Login
Home
