Раскрашивание и изменение содержимого ячеек TcxGrid (из набора Dev Express)

Delphi , Компоненты и Классы , TStringGrid и TDrawGrid

procedure TDirectoryClientsListContracts.grClientsCodeDBTableView1CustomDrawCell(

Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;

  AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);

//устанавливаем следуюший обработчик на CustomDrawCell компанента TcxGrid

Var

  lTextToDraw        : string;

  lColFont : TFont;

begin

  lColFont := ACanvas.Font;//сохраняем настройки шрифта по умолчанию для текущей ячейки



  lTextToDraw :=  trim(AViewInfo.GridRecord.DisplayTexts[5]);//считываем содержимое 5ого столбца, столбец должен быть добавлен в таблицу TcxGrid, но может быть не видимым

  if lTextToDraw = 'True' then lColFont.Style := [fsItalic]; //проверяем значение считанной ячейки, и устанавливаем курсив



  lTextToDraw :=  trim(AViewInfo.GridRecord.DisplayTexts[6]);

  if lTextToDraw = 'False' then lColFont.Color := clRed; //проверяем значение считанной ячейки, и красим в красный цвет



  ACanvas.Font := lColFont; //устанавливаем получившиеся выделение для всей строки



  if ((AViewInfo.Item.Index = 4) and (trim(AViewInfo.GridRecord.DisplayTexts[4]) = '30.12.1899')) then //если мы просматриваем 4й столбец, сравниваем содержимое с нулевой датой

    begin

      ACanvas.Canvas.FillRect(AViewInfo.Bounds);//при желании можем изменить форматирование ячейки, как описано ранее, но оставляем общее для строки форматирование

      ACanvas.DrawText('-', AViewInfo.Bounds, 0);//выводим вместо нулевой даты "-" (минус)

      ADone := True;//разрешаем переписать значение ячейки

    end;



end;

Аналогичным образом происходит работа со стандартным TStringGrid и TBDGrid.

Автор KAN

Статья Раскрашивание и изменение содержимого ячеек TcxGrid (из набора Dev Express) раздела Компоненты и Классы TStringGrid и TDrawGrid может быть полезна для разработчиков на Delphi и FreePascal.

Комментарии и вопросы

:: 2024-03-08 21:47:01 :: ответ

пользователь: kan.

В библиотеке Dev Express для Delphi, TcxGrid предоставляет несколько способов настройки внешнего вида содержимого ячеек, включая раскраску. Вот несколько способов, как это можно сделать:

Использование событий событий CustomDrawCell: Вы можете использовать событие OnCustomDrawCell для настройки внешнего вида содержимого ячеек. В этом событии вы можете установить цвет фона, цвет текста и другие параметры визуализации в зависимости от значений в ячейке или других условий.

delphi

procedure TForm1.cxGrid1DBTableView1CustomDrawCell(Sender: TcxCustomGridTableView;
  ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
begin
  if AViewInfo.GridRecord.Values[Column.FieldName] = 'SomeValue' then
  begin
    ACanvas.Brush.Color := clRed;
    ACanvas.Font.Color := clWhite;
  end;
end;

Использование стилей и настроек представлений: Вы также можете использовать возможности Dev Express для настройки стилей и внешнего вида ячеек через дизайнер стилей и настройки представлений (View Options). Это позволит вам применять стили к различным ячейкам на основе их содержимого или других критериев.

Программное изменение цвета ячеек: Вы также можете изменить цвет ячейки непосредственно в коде, например, в событии OnGetContentStyle:

delphi

procedure TForm1.cxGrid1DBTableView1GetContentStyle(Sender: TcxCustomGridTableView;
  ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem;
  out AStyle: TcxStyle);
begin
  if ARecord.Values[Column.FieldName] = 'SomeValue' then
    AStyle := cxStyle1; // где cxStyle1 это стиль с нужными параметрами визуализации
end;

Эти методы позволяют настраивать внешний вид ячеек TcxGrid в соответствии с вашими требованиями и предпочтениями.

Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.

:: Главная :: TStringGrid и TDrawGrid ::

19.04.2024 15:37:35/0.033628940582275/0