1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
|
//---------------------------------------------------------------------------
void __fastcall TForm1::DBG1DrawColumnCell(TObject *Sender,
const TRect &Rect, int DataCol, TColumn *Column,
TGridDrawState State)
{
if (Form1->DBG1->DataSource->DataSet->FieldByName("STOCK")->Value <= Sl)
{
Form1->DBG1->Canvas->Brush->Color = StrToInt(Edit10->Text);
Form1->DBG1->DefaultDrawColumnCell(Rect, 1, Column, State);
}
if (Form1->DBG1->DataSource->DataSet->FieldByName("MAT")->Value == 1)
{
Form1->DBG1->Canvas->Font->Style = Form1->DBG1->Canvas->Font->Style << fsBold;
Form1->DBG1->Canvas->Font->Color = StrToInt(Edit20->Text);//clRed;
Form1->DBG1->DefaultDrawColumnCell(Rect, 1, Column, State);
}
}
//--------------------------------------------------------------------------- |
Partager