VPF::TListView и отображаемые item'сы - Форум программистов

Illusion Dolphin

Дата 13.8.2004, 21:20 (ссылка)

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

Загрузка ...

Эксперт

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

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

Как узнать, виден ли хоть кусочек item'а в клиентской области TListView? Проблема в БЫСТРОМ и ПРАВИЛЬНОМ определении. Пока одно исключает другое

.

Делал где-то так

Код


Function RectInRect(R1, R2 : TRect) : Boolean;
begin
 Result:=PtInRect(R2,R1.TopLeft) or PtInRect(R2,R1.BottomRight) or PtInRect(R1,R2.TopLeft) or PtInRect(R1,R2.BottomRight);
end;

....

var
  r,: TRect;
...

 r := Item.DisplayRect(drBounds);
 if RectInRect(MyListView.ClientRect,r) then Action;

правильно работает если проверять ещё и drIcon и drLabel, но ЭТО ДОЛГО!

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

В мире всего две бесконечности: вселенная и человеческая глупость... На счёт вселенной я не уверен.
Шифрование и организация фотографий - Photo Database 4.5

p0s0l

Дата 13.8.2004, 23:32 (ссылка)

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

Загрузка ...

Г-н Посол

Профиль
Группа: Экс. модератор
Сообщений: 3668
Регистрация: 13.7.2003
Где: 58°38' с.ш. 4 9°41' в.д.

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

Быстрее будет примерно так:

Код

function RectInRect (const R1, R2 : TRect) : boolean;
begin
  Result := (R2.Left >= R1.Left) and (R2.Left <= R1.Right) and (R2.Top >= R1.Top) and (R2.Top <= R1.Bottom);
end;

r := Item.DisplayRect(drBounds);
if RectInRect(MyListView.ClientRect,r) then Action;

Это сообщение отредактировал(а) p0s0l - 13.8.2004, 23:35

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

С уважением, г-н Посол.

Illusion Dolphin

Дата 13.8.2004, 23:48 (ссылка)

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

Загрузка ...

Эксперт

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

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

p0s0l:

Цитата

Как узнать, виден ли хоть кусочек item'а в клиентской области TListView?

В твоей функции тру выдаётся, когда весь итемс там...
Может быть, есть какое-нибудь свойство где-нибудь? 8) Я просто выводу под несколько тысяч изображений (пока всего 4000 размерами 100х100

) и не пойму., как оптимизировать тот факт, что если проскроллить всё в самый конец списка, то при перерисовке одного итемса (который виден) ListView автоматически вызывает прорисовку всем оставшимся 3999 итемсам :/...

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

p0s0l

Дата 14.8.2004, 01:16 (ссылка)

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

Загрузка ...

Г-н Посол

Профиль
Группа: Экс. модератор
Сообщений: 3668
Регистрация: 13.7.2003
Где: 58°38' с.ш. 4 9°41' в.д.

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

Цитата

В твоей функции тру выдаётся, когда весь итемс там...

Я вообще чо-то не то написал

Но смысл был таков, лучше сам проверяй, чем вызывай PtInRect...
Или как вариант: сделай IntersectRect(R, R1, R2) - и если R получается ненулевой, то значит виден какой-то кусок...

Добавлено @ 01:17
А R1 и R2 передавай через const или var, чтобы не создавались их временные копии...

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

С уважением, г-н Посол.

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