Intermec Janus 2020 Reference Manual - Im_Cursor_To_Viewport

im_cursor_to_viewport

3-15

3

im_cursor_to_viewport

Purpose:

This function moves the cursor to the center of the current viewport. Since

the viewport can move around with or without the cursor, you can use this

function to recenter the cursor.

Syntax:

With Intrmecd_IO, Intrmecp_IO;

Use Intrmecd_IO, Intrmecp_IO;

procedure im_cursor_to_viewport;

IN Parameters:

None.

OUT Parameters:

None.

Return Value:

None.

Notes:

This function has no effect on the JANUS 2050.

See also:

im_viewport_end, im_viewport_home, im_viewport_page_down,

im_viewport_page_up, im_viewport_to_cursor, im_viewport_move

Example

With System, Bit, Text_IO, Intrmecd_IO, Intrmecp_IO;

Use System, Bit, Text_IO, Intrmecd_IO, Intrmecp_IO;

procedure crsrview Is

    package STATUS_IO is new INTEGER_IO (System.Word);

    row, col : System.Word;

    status   : System.Word;

    begin

       im_viewport_move (IM_VIEWPORT_RIGHT, 15, row, col, status);

       im_cursor_to_viewport;

       status := im_standby_wait (5000);

       -- show that viewport moved

       STATUS_IO.Put (row);

       STATUS_IO.Put (col);

       New_Line;

       im_viewport_home;

    end crsrview;