Delphi 7 - стиль TDBGrid

Как использовать стилизованный стол в Delphi 7? Например:

Источник

2 ответа

Решение

Если вы имеете в виду, какой компонент TDbGrid вам нужен, вы можете использовать Themed DBGrid runtime replacement от Джереми Норта и Андреаса Хаусладена.

Источник

Я написал и протестировал для вас этот пример на Delphi 7 и Windows 8.1

Используйте Event DrawColumnCell, чтобы изменить цвет или что-то еще.

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  try
    if Column.FieldName = 'FIRST_NAME' then
      DBGrid1.Canvas.Brush.Color := clGreen;
  finally
    DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
  end;
end;

Скачать полный пример: файл

Источник
Другие вопросы по тегам