Subject Re: [IBO] Problems with TIB_Grid colours - Was: Problems updating acursor
Author Dmitry Beloshistov
Hello, Salvatore!
You wrote to <> on Mon, 24 May 2004 15:41:20 +0200:

SB> thank you for your reply. Using AColor and AFont the result is only
SB> one red cell insead of the whole row. But oddities remain, even
SB> using AColor and AFont.

SB> Anyone else?

Some around this:

var BufferRowNum:integer;
if Self.RowSelect then Flag:=(ARow<>Row); // no red paint for current row
(or paint?-)
//- get data of cell
if BufferRowNum>0 then TmpFld:=GridFields[DataCol[ACol]]
else TmpFld:=nil;
//- should be work for all cell`s of row
if Assigned(TmpFld) and (TmpFld.FieldName = 'REJECTED')
and (TmpFld.AsInteger = 1) and Flag then
if (not (gdSelected in AState)) and (not (gdFocused in AState)) and
(ARow<>Row) then
AColor:=clRed; AFont.Color:=clWhite;

WBR, Dmitry Beloshistov AKA [-=BDS=-]