Im_Viewport_To_Cursor - Intermec Janus 2010 Reference Manual

im_viewport_to_cursor

im_viewport_to_cursor
This function centers the viewport around the cursor.
Purpose:
With Intrmecd_IO, Intrmecp_IO;
Syntax:
Use Intrmecd_IO, Intrmecp_IO;
None.
IN Parameters:
None.
OUT Parameters:
None.
Return Value:
Notes: This function has no effect on the JANUS 2050.
im_cursor_to_viewport, im_viewport_end, im_viewport_home,
See Also:
im_viewport_page_down, im_viewport_to_cursor, im_viewport_move,
im_viewport_setxy
Example
With System, Text_IO, Intrmecd_IO, Intrmecp_IO;
Use System, Text_IO, Intrmecd_IO, Intrmecp_IO;
procedure vp2cursr Is
package STATUS_IO is new INTEGER_IO (System.Word);
row, col : System.Word;
status : System.Word;
begin
im_viewport_end;
im_viewport_getxy (row,col,status);
status := im_standby_wait (5000);
im_viewport_to_cursor;
--show that viewport moved to end, then back to cursor
status := im_standby_wait (5000);
STATUS_IO.Put (row);
STATUS_IO.Put (col);
New_Line;
end vp2cursr;
3-148
procedure im_viewport_to_cursor;