SETTEXTCOLOR (W*S)

Module

USE IFQWIN

result = SETTEXTCOLOR (index)

Results

The result type is INTEGER(2). The result is the previous text color index.

SETTEXTCOLOR sets the current text color index. The default value is 15, which is associated with white unless the user remaps the palette. GETTEXTCOLOR returns the text color index set by SETTEXTCOLOR. SETTEXTCOLOR affects text output with OUTTEXT, WRITE, and PRINT.

The background color index is set with SETBKCOLOR and returned with GETBKCOLOR. The color index of graphics over the background color is set with SETCOLOR and returned with GETCOLOR. These non-RGB color functions use color indexes, not true color values, and limit the user to colors in the palette, at most 256. To access all system colors, use SETTEXTCOLORRGB, SETBKCOLORRGB, and SETCOLORRGB.

Example

 ! Build as a Graphics ap.
 USE IFQWIN
 INTEGER(2) oldtc
 oldtc = SETTEXTCOLOR(INT2(2)) ! green
 WRITE(*,*) "hello, world"
 END