.TEXT SET TXT MARGIN

This subroutine sets the margins for the text in the "current" Text Object .

Usage:

      PASS         <left_margin>              FIELD            SHARE? N
      PASS         <right_margin>             FIELD            SHARE? N
      PASS         <top_margin>               FIELD            SHARE? N
      PASS         <bottom_margin>            FIELD            SHARE? N
      GOSUB    0CD .TEXT SET TXT MARGIN
      *        Check for error
      IF       0CD .TEXT SET TXT MARGIN       NE

Description:

This subroutine sets the margins for the text in the "current" Text Object.

The parameters are optional. If specified, they must be an unsigned integer in the range 1-99999. They represent the margins in pixels. Any parameter that is blank will be reset to the default. By default, the left and right margins are approximately half the font width, and the top and bottom margins are approximately 1/4 of the font height.

If only one parameter is passed, then all margins will be set to that value. Otherwise, the individual values are set as received. Any value not received is cleared indicating that an appropriate default should be used.

You can also use .TEXT SET TXT MARGIN:L, .TEXT SET TXT MARGIN:R, .TEXT SET TXT MARGIN:T and .TEXT SET TXT MARGIN:B to set individual margins.

Comments:

Read what other users have said about this page or add your own comments.

-- JeanNeron - 2011-11-18