Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2008.11.16;
Скачать: CL | DM;

Вниз

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;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.012 c
2-1223533622
Anel
2008-10-09 10:27
2008.11.16
Перемещение папки


2-1223535504
TNT
2008-10-09 10:58
2008.11.16
Определение и отмена горячих клавиш


2-1223370793
Gurd
2008-10-07 13:13
2008.11.16
kaCtrls


15-1221719515
Azize
2008-09-18 10:31
2008.11.16
Китайцы создали компьютер мощностью 230 триллионов операций в сек


4-1200229460
Navi
2008-01-13 16:04
2008.11.16
Управление LPT - перевести код с VB на Delphi