Functions and Directives Functions and Directives

Function IsColor() Foundation

Tests whether a color graphic card is installed.

Syntax
IsColor() --> lColor
Return

In GUI applications, IsColor() returns always .T. (true). In text mode applications, the return value is .T. when the computer is equipped with a color graphic card, otherwise it is .F. (false).

Description

The environment function IsColor() is only relevant for text mode applications. It tests whether the current computer is equipped with a color graphic card. Different color values can then be set in the program dependent on the graphic card.

Examples
IsColor() 
// In the example the specific color palette used 
// is dependent on IsColor() 

PROCEDURE Main 
   LOCAL cColor 

   IF IsColor() 
      cColor := "B/BG,W+/R" 
   ELSE 
      cColor := "W/N,N+/W" 
   ENDIF 

   DispBox( 10,10,20,50,2,cColor ) 

   @ Row(), Col() GET cColor COLOR cColor 
   READ 

RETURN
Feedback

If you see anything in the documentation that is not correct, does not match your experience with the particular feature or requires further clarification, please use this form to report a documentation issue.