xTable - change cell colour

[mrme]

Hello,

In my xTable, this sub will change the colour of the dialog permanently when I change a cell entry:-

Sub XTable1_EventValSet(ByRef This, Row, Col, ByRef Cell) 'Created Event Handler

If Row > 0 And Col > 0 Then

Data.GetChannel(Col).Values(Row) = Val(Eval(Cell.Text))

Dialog.Color = vbcyan ' this works

End If

But, how can I change the background colour of just the changed cell permanently?

I can only get the cell colour to change temporarily using the examples from Diadem help (XTable1_EventDefaultColCtrlPreset and Cell.ForeColor)......

Any help is appreciated.

Thank you.

[Walter_Rick]

Hello mrme,

did you try this:

Sub XTable1_EventValSet(ByRef This, Row, Col, ByRef Cell) 'Created Event Handler

If Row > 0 And Col > 0 Then
  Data.GetChannel(Col).Values(Row) = Val(Eval(Cell.Text))
  ' Dialog.Color = vbcyan ' this works
  Cell.BackColor = = vbcyan ' this works
End If

End Sub

Greetings

Walter

[mrme]

Hello Walter,

Thanks for the response.   Yes, I have tried it, but no success. Neither Cell.BackColor nor Cell.ForeColor work.  There is no error message.  Xtable1.Refresh has no effect either.

I forgot to provide the version of Diadem  - it is 2018, 18.0.0f7097 (64 bit).

Thank you,

Thomas

[Walter_Rick · Accepted solution]

Hello Thomas,

Colors can only be set in the ...Get event. I've attached an example SUD.

Greetings

Walter

[mrme]

Hello Walter,

Many thanks for the reply and example.

Thomas