Method TSBrowse: Set3DText()
Syntax:
oBrw:Set3DText( [ lOnOff ], [ lRaised ], [ nColumn
], [ nLevel ], [ nClrLight
], [ nClrShadow ] ) ŕ oBrw
Description:
Assigns the 3D attribute to the text of cells, headers, superheaders and
footers.
Parameters:
lOnOff.- .T. = 3D text; .F. =
Toggles to normal text. Default is .T.
lRaised.- .T. = Raised text; .F. = Bas-relief text
Default is .T.
nColum.- Number of column to set the 3D text attribute. If ommited, all
columns is assumed.
nLevel.- 1 =
Cells 2 = Headers 3= Footers. If ommited all levels is assumed.
nClrLigtn.- Color expression for the light color to be
used in 3D effect. Defaults to
GetSysColor( COLOR_BTNHIGHTLIGHT )
nColum.- Color expression for the shadow color to be
used in 3D effect. Defaults to GetSyscolor( COLOR_BTNSHADOW )
For colors you can use code blocks which will be evaluated receiving
nRow, nCol as parameters.
Returns: A reference to the same TSBrowse object modified.
Examples:
1.- Assign 3D text attribute (
raised ) to cells of column 1 using special colors for 3D effect.
oBrw:Set3Dtext( .T., .T., 1, 1, CLR_YELLOW, CLR_GREEN )
2.- Assign 3D text attribute (
bas-relief ) to all headers using default colors.
oBrw:Set3Dtext( .T., .F., Nil, 2 )