ListView Report

← →
twinc © (2002-01-15 16:31) [0]

Привет Народ!
Как отдельный item в list view сделать жирным, изменить его цвет??? ..Стиль Табдица..

← →
Gennady © (2002-01-15 18:02) [1]

OnAdvancedCustomDrawSubItem
OnCustomDrawSubItem

в Д5 есть оное

← →
Gennady © (2002-01-15 18:05) [2]

поспешил на кнопку тискать. еще есть такое как:

OnCustomDrawItem
OnAdvancedCustomDrawItem

← →
twinc © (2002-01-15 18:59) [3]

А как этим пользоваться, как сделать текст
жирным. Что именно надо написать в проце дуре

font.style:=font.style+fsBold;

бросаете на форму ListView и на OnCustomDrawItem пишете следующее:

procedure TForm1.ListView1CustomDrawItem(Sender: TCustomListView; Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean); begin if Item.Caption="test" then Sender.Canvas.Font.style:=[fsBold]; end;

Итем, у которого заголовок равен "test" будет прорисовыватся жирным шрифтом. при этом точно таким же стилем будут прорисовыватся и все его сабитемы, если не написать для них свою обработку, например такую, которая ниже:

procedure TForm1.ListView1CustomDrawSubItem(Sender: TCustomListView; Item: TListItem; SubItem: Integer; State: TCustomDrawState; var DefaultDraw: Boolean); begin if item.SubItems[SubItem-1]="222" then begin Sender.Canvas.Font.Color:=clBlue; Sender.Canvas.Font.Style:=[fsBold, fsItalic]; end; end;
после этого все сабитемы всех итемов (пардон за каламбур), у которых текст равен "222" будут прорисовыватся красным цветом и иметь стиль жирный+наклонный.

ListView Report Найти похожие ветки