Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 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" будут прорисовыватся красным цветом и иметь стиль жирный+наклонный.



Страницы: 1 вся ветка

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

Наверх





Память: 0.45 MB
Время: 0.004 c
1-8869
Mr.Fox
2002-01-09 13:27
2002.02.04
Помогите плиз


1-8864
Ольга
2002-01-18 12:39
2002.02.04
ListBox-ы и Edit-ы


1-8944
Сержик
2002-01-18 09:48
2002.02.04
Как подменить exe-шник из него самого?


1-8916
Лана Розанова
2002-01-17 15:39
2002.02.04
Memo


1-8818
DJ X
2002-01-19 15:55
2002.02.04
HTM Inside





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский