Many thanks to Riho and Thomas for the really very fast help.

Best greetings

Ronni

--- In IBObjects@yahoogroups.com, "Riho-Rene Ellermaa"
<r.ellermaa@h...> wrote:

> THat is how I do it
>
> //Colors grid rows according to statuses
> void __fastcall TFMaster::GridGetCellProps(TObject *Sender, int

ACol,

> int ARow, TGridDrawState AState, TColor &AColor, TFont *AFont)
> {
> if ( !ACol || !ARow ) return;
> if(DSource && DSource->Dataset && DSource->Dataset->Active)
> { int BufferRowNum = Grid->DataRow[ ARow ];
> DSource->Dataset->BufferRowNum = BufferRowNum;
> int stat = DSource->Dataset->BufferFieldByName("STATUS")-
>AsInteger;
> if(stat==1)
> AFont->Color =
> Common.IniFile->ReadInteger("Colors","Prepared",clBlack);
> else if(stat==3)
> AFont->Color =
> Common.IniFile->ReadInteger("Colors","Waiting2",clOlive);
> else if(stat==2)
> AFont->Color =
> Common.IniFile->ReadInteger("Colors","Accepted",clGreen);
> else if(stat==4)
> AFont->Color =
> Common.IniFile->ReadInteger("Colors","Rejected",clRed);
> else if(stat==8)
> AFont->Color = Common.IniFile->ReadInteger

("Colors","Sent",clBlue);

> else if(stat==16)
> AFont->Color =
> Common.IniFile->ReadInteger("Colors","Archived",clTeal);
> else
> AFont->Color = clWindowText;
> }
>
> }
>
>
>
> Riho Ellermaa
>
>
>
>
>
>
>
> [Non-text portions of this message have been removed]