forums.silverfrost.com

[Anonymous]

Hello,

I tried to colour part of a text in an EB-box as described in the Clearwin manual. The following program gives no colouring:

WINAPP 0,0
PROGRAM MAIN

EXTERNAL CALLBACK
CHARACTER*1000 BUFFER
INTEGER*4 INFO(24)
COMMON BUFFER,INFO

BUFFER='Colouring text and background(1). Colouring text and background(2). &
&Colouring text and background(3). Colouring text and background(4). &
&Colouring text and background(5). Colouring text and background(6).'
BUFFER(68:6=CHAR(10); BUFFER(136:136)=CHAR(10); BUFFER(204:204)=CHAR(0)

IW=WINIO@('%80.5^`EB[USER_COLOURS]&',BUFFER,1000,INFO,CALLBACK)
IW=WINIO@('%3NL%OB[STATUS]%TT[CLOSE]%CB')
END
!*************************************************************************
INTEGER*4 FUNCTION CALLBACK()

CHARACTER*1000 BUFFER
INTEGER*4 INFO(24),RGB@
COMMON BUFFER,INFO

CALLBACK=0
INFO(15)=30
INFO(16)=20
!! INFO(16)=LOC(BUFFER)+20
INFO(17)=RGB@(0,255,0)
INFO(1=RGB@(255,0,0)
END

Thanks in advance for any help.

Frank

F. Schneider