How to make selected cell different from selected row color 2

[hoosier121]

Hi all,

With the help of the great experts here I have been able to make a distinct row color for the selected row of a grid. What I want to do now is make the selected cell different than even the row color. I have been able to make it white, but when I try another RGB I get funky results. Here is my code so far...

** dataentrygrid.init
** Code to set the color of a selected row
cForeColor = "IIF(RECNO(This.RecordSource) = This.InRecNo, "
cForeColor = cForeColor + "RGB(255,255,255), RGB(0,0,0))" && White and Black
cBackColor = "IIF(RECNO(This.RecordSource) = This.InRecNo, "
cBackColor = cBackColor + "RGB(128,128,255), RGB(255,255,255))" && LightPurple and White

WITH This
.Inrecno = RECNO(.RecordSource)
.SetAll('DynamicForeColor', cForeColor, 'COLUMN')
.SetAll('DynamicBackColor', cBackColor, 'COLUMN')
ENDWITH

This.SetAll([SelectedBackColor],RGB(255,255,255))
This.SetAll([SelectedForeColor],RGB(0,0,0))

** dataentrygrid.AfterRowColChange
This.InRecNo = RECNO()
This.Refresh() John

Everything I needed to know I learned from Yoda.

 

[CJWARNER]

See the MS KB articles:

How to Highlight a Single Grid Field

http://support.microsoft.com/default.aspx?scid=kb;en-us;138655

HOWTO: Change the Color of the Active Cell in a Grid

http://support.microsoft.com/default.aspx?scid=kb;en-us;129280

 

[ramani]

Hi Try.. the following..

In Grids AfterRowColChangeEvent..
This.Columns(This.ActiveColumn).Text1.BackColor = ;
RGB(255,0,0) && put whatever you want.

Assumed your forecolor is Black.. This should be Ok. As you skip thru the columns.. you should get RED back color in the above case. You may have to set the SELECTED BACKCOLOR same as the one described here to have some the same effect.

ramani
(Subramanian.G),FoxAcc, ramani_g@yahoo.com

 

[hoosier121]

Thanks guys,
My distinct color is working great now. John

Everything I needed to know I learned from Yoda.