Архив рубрики: Delphi

Delphi cxTreeList — свой стиль для определенных строк

cxTreeList - свой стиль

Среда DELPHI.
В компоненте cxTreeList  понадобилось для определенных значений (больше 0) использовать свой стиль .

Для этого можно использовать событие cxTreeList1StylesGetContentStyle.

Сначала создаем свои стили.  Например в этом случае нам нужно 2 стиля.  Стиль обычный и  стиль с жирный шрифтом.

Затем пишем следующий код в cxTreeList1StylesGetContentStyle.

 procedure TMForm.cxTreeList1StylesGetContentStyle(
  Sender: TcxCustomTreeList; AColumn: TcxTreeListColumn; ANode: TcxTreeListNode;
  var AStyle: TcxStyle);
begin
       //в этом примере значение для сравнения во второй колонке
        if VarIsNull(ANode.Values[cxTreeList1Column2.ItemIndex])  then Exit; 
       
        if ANode.Values[cxTreeList1Column2.ItemIndex] > 0  then
          begin
            AStyle := cxstyl1; // стиль для >0 
           end
       else
          AStyle := cxstyl2; // стиль для = 0
End

получаем результат

TreeList