Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2007.03.04;
Скачать: [xml.tar.bz2];

Вниз

TListView +font size   Найти похожие ветки 

 
кэй   (2007-02-14 15:45) [0]

У меня есть TListView, vsReport, Columns = 3.
Каким образом можно изменить размер шрифта только в третьей колонке?

Пытался в OnListViewCustomDrawItem/OnListViewCustomDrawSubItem, в canvas задать значение font size, но увы, не получилось.

Хтя изменение цвета - спокойно работает:
Sender.Canvas.Font.Color := clRed;

И ещё один вопрос, каким образом изменить у всей какой-то строки бэкграунд цвет?


 
Loginov Dmitry ©   (2007-02-14 16:16) [1]

>
> Пытался в OnListViewCustomDrawItem/OnListViewCustomDrawSubItem,
> в canvas задать значение font size, но увы, не получилось.


печально.


 procedure TForm1.ListView1CustomDrawSubItem(Sender: TCustomListView;
   Item: TListItem; SubItem: Integer; State: TCustomDrawState;
   var DefaultDraw: Boolean);
 begin
   if SubItem = 2 then
     with ListView1.Canvas do
     begin
       Font.Color := clRed;
       Font.Style := [fsBold];
       Font.Size := 16;
     end;
 end;


 
кэй   (2007-02-14 17:04) [2]

Не хочет ставить значение менее восьми. А я пытался поставить размер = 7. Почему так получается?


 
DVM ©   (2007-02-14 17:23) [3]


> Не хочет ставить значение менее восьми. А я пытался поставить
> размер = 7. Почему так получается?

шрифт поменяй


 
Loginov Dmitry ©   (2007-02-14 17:24) [4]

Шрифт другой поставь.


 
кэй   (2007-02-14 17:46) [5]

Да, сменил шрифт на другой - стал нормально отображаться 7 размер, спасибо. Но ещё одна проблема получиласть: теперь при седьмом размере, текст прижат к верхней границе, а не ровно, как текст (8 размера) в остальных "клетках". Что можно сделать в таком случае?



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

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

Наверх





Память: 0.45 MB
Время: 0.04 c
15-1170917756
fisherman
2007-02-08 09:55
2007.03.04
Завод купил напольные весы...


15-1170946604
Rouse_
2007-02-08 17:56
2007.03.04
Хто тут работу искал?


2-1170691512
The X
2007-02-05 19:05
2007.03.04
Каракули вместо кириллицы на MessageDlg в XP SP1


2-1171519985
Xuch
2007-02-15 09:13
2007.03.04
Написание процедуры на кнопку


2-1171576922
rts111
2007-02-16 01:02
2007.03.04
Как при добавление новых строк в мемо, сделать авто-прокрутку?





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский