| move txt item at runtime [message #257744] |
Thu, 09 August 2007 02:02  |
sispk6
Messages: 164
Registered: November 2006
Location: pakistan
|
Senior Member |
|
|
hi friends i want to move text box containging data on a form where the mouse moves.
i did on "when mouse down" , i wrote the code
its working but not perfectly the way we on Gui(ide's) environment some one give me an idae, sorry for not formatting my text, thanx
-----------
declare
xpos number;
ypos number;
xmouse number;
ymouse number;
begin
-- go_item('block4.val3');
if (:val4 is not null) then
xpos := get_item_property('val4',x_pos);
ypos := get_item_property('val4',y_pos);
xmouse := to_number(:system.mouse_x_pos);
ymouse := to_number(:system.mouse_y_pos);
-- message('xmouse'||xmouse||' ymouse'||ymouse);
set_item_property('val4', position , xpos + xmouse, ypos + ymouse);
-- set_item_property('val2',y_pos , ymouse );
end if;
end;
|
|
|
|
|
|
] 
Blog
Search
Help
Members
Register
Login
Home
