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

Вниз

TListView - и снова вопросы....   Найти похожие ветки 

← →
koha!   (2008-10-05 20:51) [0]

- как определить высоту column?
собственно, не умею вычислить высоту колумна, когда лист-виев имеет стиль как репорт.  

2. Как определить является ли ListView.items[n] в видемой области списка?
пробовал использовать такой метод.

LI := LV.GetItemAt(Items[i].GetPosition.X, Items[i].GetPosition.Y);
if LI <> NIL then // Принадлежит видимой области
else // Находится в невидимой области
но мешает cоlumns,
есть ли еще способы?

---

← →
koha!   (2008-10-05 20:54) [1]

забыл указать:
LI: TListItem;

---

← →
{RASkov} ©   (2008-10-05 22:09) [2]

1: Что значит "высоту column"?

---

← →
koha!   (2008-10-05 22:27) [3]

> {RASkov} ©   (05.10.08 22:09) [2]
>
> 1: Что значит "высоту column"?


Это значит найти сколько пикселов занимет  его вертикальная сторона у других
элементов это свойство Height

---

← →
DVM ©   (2008-10-05 22:31) [4]

высота колонки равна высоте клиентской части ListView

---

← →
{RASkov} ©   (2008-10-05 22:32) [5]

Может:
function GetListViewColumnHeight(ListView: TListView): Integer;
var H: THandle; R: TRect;
begin
 H:=ListView_GetHeader(ListView.Handle);
 GetWindowRect(H, R);
 Result:=R.Bottom-R.Top;
end;

function IsVisibleItemInListView(ListView: TListView; N: Integer): Boolean;
begin
 Result:=(ListView.TopItem.Index<=N) and (N < (ListView.TopItem.Index + ListView_GetCountPerPage(ListView.Handle)));
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 ShowMessage("Высота column: "+IntToStr(GetListViewColumnHeight(ListView1)));
 if IsVisibleItemInListView(ListView1, 2) then ShowMessage("Видно 2 Item")
  else ShowMessage("2 Item не видно");
end;
Оно? Хотя по 2 возможно ListView_HitTest поможет....

---

← →
{RASkov} ©   (2008-10-05 22:34) [6]

А может высота колонки равна: количество итемов умноженное на высоту одного итема?

---

← →
koha!   (2008-10-05 23:12) [7]

> {RASkov} ©   (05.10.08 22:32) [5]
помогло, нашел все ответы...

Всё далее мона не заморачиваться всем спасыбо и пока .....

---

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

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

Наверх

Память: 0.45 MB
Время: 0.008 c