Alexandre,

clatu_earth schrieb:

> Hi!
>
> Anyone please can tell me what's wrong with the following piece of
> code:
>
> void __fastcall TForm1::IB_Grid1GetCellProps(TObject *Sender,
> int ACol, int ARow,
> TGridDrawState AState, TColor &AColor, TFont *AFont)
> {
> if (IB_Qry1->Active && ACol > 0 && ARow >= IB_Grid1->FixedRows)
> {
> if (IB_Qry1->BufferFieldByName("PEND")->AsString == "YES")
> AColor = clLime;
> }
> }

I just have Delphi, so you have to convert the code back to C, but
coloring a row in a TIB_Grid is - for me - working that way:

with IB_Qry1 do
begin
if Active AND ( ACol > 0 ) AND ( aRow > 0 ) then
begin
BufferRowNum := IBGrid1.DataRow[ ARow ];
if BufferRowNum > 0 then
begin
if AFont.Color <> clHighlightText then
begin
if BufferFieldByName('SOMEFIELD').AsString = SomeValue
then aColor := clSomeColor
else aColor := clSomeOtherColor;
end;
end;
end;
end;

HTH

Luc.