WD Style for displaying the table cells - Altera a cor das linhas e celulas da tabel em runtime


nSTyle is int

SWITCH RADIO_Hatched
CASE 1 :
nSTyle = styleHorizontalHatch
CASE 2 :
nSTyle = styleVerticalHatch
CASE 3 :
nSTyle = styleRightDiagonalHatch
CASE 4 :
nSTyle = styleLeftDiagonalHatch
CASE 5 :
nSTyle = styleCrossHatch
CASE 6 :
nSTyle = styleDiagonalCrossHatch
CASE 7 :
nSTyle = styleGradient
CASE 8:
nSTyle = styleTube
OTHER CASE

END

// hatch the cells according to the selected option
IF EDT_Row_Subscript..Modified _OR_ EDT_Column_subscript..Modified THEN
// apply the hatches to the selected cell
IF nSTyle = styleGradient OR nSTyle = styleTube THEN
TABLE_Table1[EDT_Row_Subscript][EDT_Column_subscript]..BrushColor = LightGreen
END
TABLE_Table1[EDT_Row_Subscript][EDT_Column_subscript]..BrushStyle = nSTyle
EDT_Row_Subscript..Modified = False
EDT_Column_subscript..Modified = False
ELSE
IF nSTyle = styleGradient OR nSTyle = styleTube THEN
TABLE_Table1[TABLE_Table1]..BrushColor = LightGreen
END
// apply the hatches to the selected row
TABLE_Table1[TABLE_Table1]..BrushStyle = nSTyle
END

TableDeleteAll(TABLE_Table1)
ExecuteProcess(TABLE_Table1,trtInit)

//------------------------------------------------------------