Alaska Software Inc. - Color palette of CRT app
Username: Password:
AuthorTopic: Color palette of CRT app
Simo FranzColor palette of CRT app
on Wed, 31 Jan 2007 16:53:26 +0100
Is it possible to modify all of 16 colours of CRT application, using RGB
value ?

many thanks.
Osvaldo L AokiRe: Color palette of CRT app
on Wed, 07 Mar 2007 16:49:57 -0300
Yes,

    There is a trick....a
non documented function on Xbase 1.9 only..

    Look !

#include "box.ch"
PROCEDURE Main()
  LOCAL cTmp := space(40)

  SetColor( "N/W" )
  CLS
  @ 4,4,6,20 BOX B_DOUBLE
  @ 5,5 SAY "Test1" GET cTmp
  read

  WAIT "Press a key to change colors"
  SetVGAColor( "N", 255,0,0 )
  SetVGAColor( "R", 0,0,255 )
  SetVGAColor( "W", 246,243,255 )

  CLS
  @ 4,4,6,20 BOX B_DOUBLE
  @ 5,5 SAY "Test2" GET cTmp
  @ 8,5 SAY "Test2" GET cTmp
  read

  WAIT

RETURN


"Simo Franz" <simofranz@tiscali.it> escreveu na mensagem 
news:20e24a95$1d968e9a$7b3ce@news.alaska-software.com...
> Is it possible to modify all of 16 colours of CRT application, using RGB
> value ?
>
> many thanks.
>
>
>