exirbox сделал все свои раздачи на upload платными ...
Пользуйтесь на здовровье EhLib_9.1.030_D7-XE10.2 -
нет там исходников, к сожалению
Такая-же фигня. Зачастую скачиваю тут, вставляю в коммерческий проект, если все устраивает, то покупаю потом компонент, уже со своих продаж. А если не пошло, то по цепочке тоже не пошло :-D
сорри. но это какая-то лажа. в имени файла - версия 9.1.030. но это не так. файлы старее чем в версии 9.0.045
Что значит "инвертацию сортировки"?? Отсортировать в другую сторону? Или поменять иконки местами?
procedure TKDBGridEx.SortColumn(aColumn: TColumnEh;
aSortMarker: TSortMarkerEh; MultiSort: boolean);
//var i : integer;
procedure ClearColSorting;
var
i : integer;
begin
if not (MultiSort) then begin
//если мультисортировка не разрешена - снимаем сортировку со всех колонок
for I := 0 to Columns.Count - 1 do
if (Columns[i].Title.SortMarker <> smNoneEh) then
Columns[i].Title.SortMarker := smNoneEh;
end;
end;
begin
if aColumn.Title.SortMarker <> smNoneEh then begin
//если колонка отсортирована
if ((aSortMarker = smUpEh) and ( aColumn.Title.SortMarker = smUpEh))
or((aSortMarker = smDownEh) and ( aColumn.Title.SortMarker = smDownEh))
then begin
//если направление сортировки и клавиша совпадают
ClearColSorting;
DoSortMarkingChanged;
exit;
end else begin
ClearColSorting;
aColumn.Title.SortMarker := aSortMarker;
DoSortMarkingChanged;
exit;
end;
end else begin
//если колонка еще не отсортирована
ClearColSorting;
aColumn.Title.SortMarker := aSortMarker;
DoSortMarkingChanged;
exit;
end;
end;
