| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
ListView Report
twinc © (2002-01-15 16:31:00)Привет Народ!
Как отдельный item в list view сделать жирным, изменить его цвет??? ..Стиль Табдица..
Gennady (2002-01-16 09:57:00) [1]бросаете на форму 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" будут прорисовыватся красным цветом и иметь стиль жирный+наклонный.
MBo (2002-01-16 08:05:00) [2]font.style:=font.style+fsBold;
twinc (2002-01-15 18:59:00) [3]А как этим пользоваться, как сделать текст
жирным. Что именно надо написать в проце дуре
Gennady (2002-01-15 18:05:00) [4]поспешил на кнопку тискать. еще есть такое как:
OnCustomDrawItem
OnAdvancedCustomDrawItem
Gennady (2002-01-15 18:02:00) [5]OnAdvancedCustomDrawSubItem
OnCustomDrawSubItem
в Д5 есть оное
| |
