ListView и кастомная отрисовка

[velaskes]

Всем привет! Проблема в том, что не могу в ListView
назначить отдельной строке Style шрифта или определенный Size.
Перерыл весь инет - готовые примеры не работают.
Lazarus 1.6.4

Следующий пример не пашет от слова "совсем", зато Color срабатывает

Код: Выделить всё

procedure TForm1.ListView1CustomDrawItem(Sender: TCustomListView;
  Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
  if Item.Index mod 2 = 0 then
    Sender.Canvas.Font.Style := [fsBold]
  else
    Sender.Canvas.Font.Style := [];
end;     

[zub]

Ну какже не работают. у меня когдато работали

[velaskes]

Ну какже не работают. у меня когдато работали

Проведите эксперемент на живую) На англоязычном форуме по Лазарю
промелькнуло сообщение (от 2011) что это вообще бага...

[zub]

Никто не говорит что без багов. но работают.

>>Проведите эксперемент на живую)
приведенный в первом посте кусок кода явно не проходил такого эксперимента

[vitaly_l]

это вообще бага

Код: Выделить всё

var
  textStyle: TTextStyle; 
begin
textStyle := Sender.Canvas.TextStyle;
{здесь заполняете стиль как надо и потом присваиваете}
Sender.Canvas.TextStyle := textStyle;

[velaskes]

vitaly_l

мдэ) Изменений не заметил...

приведенный в первом посте кусок кода явно не проходил такого эксперимента

; <- в этом смысле?

[vitaly_l]

Изменений не заметил...

Да - это я не то посоветовал

Там есть:

Код: Выделить всё

ListView1CustomDraw(Sender: TCustomListView; const ARect: TRect; var DefaultDraw: Boolean);

У него есть ARect: TRect; с помощью ARect - можно рисовать самому. Соответственно задавать шрифты и прочие установки. Но возможно есть ещё варианты.

[velaskes]

с помощью ARect - можно рисовать самому.

что-то не нашел ничего связанного со шрифтами (Font, Canvas, etc)

[vitaly_l]

ARect

ARect - указывает область на канвасе, в которой нужно рисовать ячейку ListView (ну или написать текст). Соответственно, отключаете стандартное рисование (DefaultDraw) и рисуете всё сами. Я так рисую в стринг-гриде, но я не уверен, что точно также получится рисовать и в ListView. Просто дал идею, как вариант.

Добавлено спустя 4 минуты 39 секунд:
Вот так жирный текст работает:

Код: Выделить всё

  DefaultDraw := false;// если оставить true, то будет рисовать жирным поверх при наведении мышкой
  Sender.Canvas.Font.Color:=clGreen;
  Sender.Canvas.Font.Style:=[fsBold];
  Sender.Canvas.TextOut(0,Item.Index*16,Item.Caption);