Visible to Intel only — GUID: GUID-2EB3D581-722E-4C8F-9E7C-96861917DE46
Visible to Intel only — GUID: GUID-2EB3D581-722E-4C8F-9E7C-96861917DE46
GETTEXTPOSITION
Graphics Subroutine: Returns the current text position. This routine is only available for Windows.
Module
USE IFQWIN
CALL GETTEXTPOSITION (s)
s |
(Output) Derived type rccord. Current text position. The derived type rccoord is defined in IFQWIN.F90 as follows: TYPE rccoord INTEGER(2) row ! Row coordinate INTEGER(2) col ! Column coordinate END TYPE rccoord |
The text position given by coordinates (1, 1) is defined as the upper-left corner of the text window. Text output from the OUTTEXT function (and WRITE and PRINT statements) begins at the current text position. Font text is not affected by the current text position. Graphics output, including OUTGTEXT output, begins at the current graphics output position, which is a separate position returned by GETCURRENTPOSITION.
Example
! Build as QuickWin or Standard Graphics
USE IFQWIN
TYPE (rccoord) textpos
CALL GETTEXTPOSITION (textpos)
END