Скачать: CL | DM;

ListView in Report   Найти похожие ветки 

← →
DDA ©   (2004-04-07 21:58) [0]

Как сделать так чтобы в ListView при Report-e
на столбце с надписью показать

как бы стрелку вниз или вверх

когда нажимаешь на этот например столбик и при сортировке
эта стрелка меняется ,то вверх, то вниз

---

← →
tyo   (2004-04-07 22:19) [1]

Я бы просто добавил соотв. значок в наименование столбца

---

← →
DDA ©   (2004-04-07 22:48) [2]

дак таково значка нет

я бы и сам так сделал ,если бы такой значок был

---

← →
Camypau   (2004-04-07 23:41) [3]

используй ImageIndex у колонок
обрабатываешь нажатие onColumnClick и меняешь индекс картинки
то кажется даже в хелпе пример есть.
для этого токо надо две иконки в имаджлист добавить с сортировкой вверх и вниз
надо поподрбней?

---

← →
DDA ©   (2004-04-08 00:23) [4]

давай поподробней

---

← →
Camypau   (2004-04-08 00:55) [5]

1. Нужно две иконки
либо сам их рисуешь, либо находишь их где нибудь
2. кидаешь их в smallimagelist  твоего ListView
3.заводишь переменную var ColumnToSort: Integer; и другую
SortUp : boolean;

4.вешаешь обработчик  на OnColumnClick
procedure TForm1.ListView1ColumnClick(Sender: TObject; Column: TListColumn);
begin
// для колонок сбросить иконку
for i := 0 to ListView1.Columns.Count - 1 do
  ListView.Columns[i].ImageIndex := -1;

//если была сортировка то  сортируем вниз
 if ColumnToSort = Column.Index then
   SortUp := not SortUp
 else
   SortUp := True;
// или вверх
 ColumnToSort := Column.Index; // столбец на который кликнули запомним
   if SortUp then
   ListView.Columns[Column.Index].ImageIndex := 4
 else
   ListView.Columns[Column.Index].ImageIndex := 5;//тут
Imageindex твоих
иконок
 
 (Sender as TCustomListView).AlphaSort;
// тут сортировка ListView
end;

---

← →
DDA ©   (2004-04-08 13:35) [6]

Благодарю

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.032 c