Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Для новичков > Изменить Font в CustomDrawCell.

Автор: Avers 21.9.2009, 10:59

Есть проект, написанный в БДС 2006 с DevExpress. Перешел на новую версию дельфи и девок.
Проект небольшой - без труда подправил на новые компоненты.
Но вот незадача.... В событии OnCustomDrawDataCell (на предыдущей версии девок это был просто OnCustomDrawCell) есть код

Код


  if AViewInfo.Node.Focused then
    begin
      if (Sender as TcxDBTreeList).Focused then
        ACanvas.Brush.Color := clTreeListGreen
      else
        ACanvas.Brush.Color := clTreeListGray;
      ACanvas.Font.Style := [fsBold];
    end;

Условие работает хорошо, выбранный элемент дерева приятно подсвечивается, но вот шрифт подсвеченного элемента жирным не становится. :( А раньше работало.
Подскажите в чем может быть проблема.

Автор: Regulum 25.9.2009, 13:51

А что если

Код


ACanvas.Font.Style := ACanvas.Font.Style + [fsBold];

В некоторых случаях помогает.