VPF::ListView OnCustomDrawSubItem проблема - Форум программистов

Ne1tr1n0

Дата 22.8.2011, 16:30 (ссылка)

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

Загрузка ...

Шустрый

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

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

Добрый день!
В очередной раз туплю. У меня ListView в режиме vsReport, RowSelect:=true. Мне нужно в одной из колонок (в крайней справа) нарисовать картинку и написать текст. Юзаю событие OnCustomDrawSubItem. В нем всё рисую как надо, проверяю - в Windows 7 при выделении строки она нормально выделяется, а в XP почему-то и фокусная рамка и само выделение цветом заканчивается на предпоследнем столбце. То есть выглядит это как на картинках:
user posted image

Так в Windows 7
user posted image

А так в WinXP
Рисуется это всё вот так:

Код

var r, pr: TRect;
    ratio: cardinal;
    psz: Int64;
    txt: string;
begin    
if SubItem=3 then
  begin
    DefaultDraw:=false;
    SetBkMode(Sender.Canvas.Handle, TRANSPARENT);

    r:=Item.DisplayRect(drBounds);
    r.Left:=Sender.Column[0].Width + Sender.Column[1].Width + Sender.Column[2].Width;
    r.Right:=r.Left + Sender.Column[3].Width;
    Sender.Canvas.TextOut(r.Left + Sender.Canvas.TextWidth('1'), r.Top + 2, IntToStr(Percent) + '%');

    pr.Left:=r.Left + sender.Canvas.TextWidth('100% ');
    pr.Right:=r.Right - sender.Canvas.TextWidth(' 9999.99 MB');
    pr.Top:=r.Top + 5 ;
    pr.Bottom:=r.Bottom - 5;

    DrawProgress(Sender.Canvas, pr, Percent, clLime);
    Sender.Canvas.TextOut(pr.Right + Sender.Canvas.TextWidth('1'), r.Top + 2, SomeText);
    Exit;
  end;
//тут шрифт нормальный ставим
Sender.Canvas.Font.Size := 1;
Sender.Canvas.Font.Size := TListView(Sender).Font.Size;
SetBkMode(Sender.Canvas.Handle, TRANSPARENT);
DefaultDraw := true;
end;

Есть конечно вариант при запуске проверять версию винды и если XP то самому дорисовывать выделение и фокусную рамку, однако интересует, почему так происходит, и как от этого избавиться.

Спасибо.

Ne1tr1n0

Дата 22.8.2011, 19:40 (ссылка)

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

Загрузка ...

Шустрый

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

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

Тот же эффект наблюдается и в семерке, но с отключенными темами (классический стиль). Как же с этим бороться? Неужели никто не сталкивался с подобным поведением?

Ne1tr1n0

Дата 22.8.2011, 20:49 (ссылка)

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

Загрузка ...

Шустрый

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

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

Для наглядности можно взять пример Rouse_, но чтоб лучше было видно стоит сделать поменьше размеры прямоугольника прогрессбара:

Код

    R := Item.DisplayRect(drSelectBounds);
    R.Left := Sender.Column[0].Width + 5;
    R.Right := R.Left + Sender.Column[1].Width - 5;
    R.Top:=R.Top + 5;
    R.Bottom:=R.Bottom - 5;
    DrawProgressBar(Sender.Canvas, R, Random(100));

Ne1tr1n0

Дата 8.9.2011, 13:00 (ссылка)

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

Загрузка ...

Шустрый

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

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

Разобрался. Перенес процедуру отрисовки сабитема в OnAdvancedCustomDrawItem и в нем если Stage = cdPostPaint то рисую текст и прогрессбар. Только текст рисуется всегда одним цветом шрифта, независимо от того, выделен итем или нет. Появился другой вопрос: http://forum.vingrad.ru/forum/topic-337712.html

Добавлено через 1 минуту и 6 секунд
Текущий вопрос можно считать решенным.

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