Visual Style VS_NOREAD

LANSA

Visual Style VS_NOREAD
* ===================================================================;
*;
* Component : VS_NOREAD;
* Type : Visual Style;
* Ancestor : ;
* ;
* Description : Visual Style for no-read or disabled fields ;
*;
* Disclaimer : The following material is supplied as sample material ;
* only. No warranty concerning this material or its use ;
* in any way whatsoever is expressed or implied. ;
* ;
* ===================================================================;
FUNCTION OPTIONS(*DIRECT);
BEGIN_COM DEFAULT(#SCHEME);
DEFINE_COM CLASS(#PRIM_VSS) NAME(#SCHEME) CAPTIONS(#CAPTION) TITLES(#CAPTION) VALUES(#VALUE);
DEFINE_COM CLASS(#PRIM_VSI) NAME(#CAPTION) FACENAME('MS Sans Serif') FONTSIZE(8) NORMBACKCOLOR(ButtonFace);
DEFINE_COM CLASS(#PRIM_VSI) NAME(#VALUE) BORDERSTYLE(3DLeft) FACENAME('MS Sans Serif') FONTSIZE(8) NORMBACKCOLOR(ButtonFace);
END_COM;