Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.04;
Скачать: [xml.tar.bz2];




Вниз

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]

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



MBo   (2002-01-16 08:05) [4]

font.style:=font.style+fsBold;



Gennady   (2002-01-16 09:57) [5]

бросаете на форму 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" будут прорисовыватся красным цветом и иметь стиль жирный+наклонный.




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.04;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.023 c
1-8930            yaJohn                2002-01-17 11:50  2002.02.04  
Gde vziat self??? Vopros skoree po Object Pascal.


1-8806            f0rm                  2002-01-15 12:32  2002.02.04  
Перевод юниксовского времени в нормальное виндовое


1-8858            Chak                  2002-01-19 15:48  2002.02.04  
Как убить DLL-ку, находящуюся в памяти?


1-8811            Алиса                 2002-01-18 16:59  2002.02.04  
Excel+Delphi


1-8825            Yuraz                 2002-01-19 16:53  2002.02.04  
Вопрос не столько по графике, сколько об написании кода