VPF::Подсветка шрифта в списке listbox

alekspv

Дата 2.4.2009, 17:59 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 22
Регистрация: 30.3.2009

Репутация: нет
Всего: нет

Добрый день. Помогите пожалуйста. Мне надо среди записей в списке listbox подсветить шрифт красным цветом только у тех записей дата в которых равна текущей. Строка включает в себя 10 символов даты, время и текст. Данные считываются из текстового файла.

Alix

Дата 2.4.2009, 18:14 (ссылка)

(нет голосов)

Загрузка ...

L45

Профиль
Группа: Участник
Сообщений: 581
Регистрация: 4.5.2005
Где: Pskov/Spb

Репутация: 7
Всего: 23

В каком месте проблема: получение даты из строки или расцветка? Если со вторым, то посмотрите в хелпе про св-во TListBox.Style. Вам нужно поставить там lbOwnerDrawFixed и затем использовать событие OnDrawItem.

--------------------

Знание только тогда знание, когда оно приобретено усилиями своей мысли, а не памятью (с) Л. Толстой
High tech. Low live. (с) Gardner Dozois

Crw

Дата 2.4.2009, 18:40 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 122
Регистрация: 25.2.2008

Репутация: 3
Всего: 4

Как и писал Alix в ListBox.Style выставляем lbOwnerDrawFixed и в обработчике OnDrawItem пишем что-то похожее

Код


procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
  with (Control as TListBox).Canvas do
  begin
    if not (odSelected in State) then
      if (Control as TListBox).Items[Index]='bbb' then // Здесь должна быть проверка даты
        Font.Color:=clBlue;

      FillRect(Rect);

      TextOut(Rect.Left + 2, Rect.Top, (Control as TListBox).Items[Index])
   end;
end;

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »