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;

Благодарю

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