🔧

Failed to load site

We apologize for the temporary inconvenience. Please try to reload the page.
You can always check the current server status in the Telegram community chat.

Reload page

503

JTSOFT -FAQ по Builder'у-

Главная / FAQ по Builder'у / 166 Как в DBGrid залить цветом колонки?

166 Как в DBGrid залить цветом колонки?

Для примера зальем их красным цветом:

void __fastcall TForm1::DBGrid1DrawColumnCell(TObject *Sender,
      const TRect &Rect, int DataCol, TColumn *Column,
      TGridDrawState State)
{
    class THackDBGrid :public TDBGrid
    {
    public:
     __property  RowHeights;
    };

    TRect TitleRect;
    TitleRect.Top = 0;
    TitleRect.Bottom = ((THackDBGrid*)DBGrid1)->RowHeights[0];
    TitleRect.Left=Rect.Left;
    TitleRect.Right=Rect.Right;

    DBGrid1->Canvas->Brush->Color=clRed;
    DBGrid1->Canvas->FillRect(TitleRect);

    DBGrid1->Canvas->Brush->Color=clWhite;
    DBGrid1->DefaultDrawColumnCell(Rect,DataCol,Column,State);
}

Я так мои Гриды в XP перекрашиваю.

Andrej Kalinicenko

Предыдущий вопрос |

| Следующий вопрос

источник by jenyok

Сайт управляется системой uCoz