Пытаюсь реализовать сабж
- Код: Выделить всё
procedure TForm1.RxDBGridTitleClick(Column: TColumn);
var
Col: TRxColumn;
i: Integer;
ColSortMarkState: TSortMarker;
begin
RxDBGrid.BeginUpdate;
Col:= (Column as TRxColumn);
if not (ssCtrl in GetKeyShiftState) then
begin
ColSortMarkState:= Col.SortOrder;
for i:= 0 to Pred(RxDBGrid.Columns.Count) do
(RxDBGrid.Columns[i] as TRxColumn).SortOrder:= smNone;
Col.SortOrder:= ColSortMarkState;
end;
case Col.SortOrder of
smNone: Col.SortOrder:= smUp;
smDown: Col.SortOrder:= smNone;
smUp: Col.SortOrder:= smDown;
end;
RxDBGrid.EndUpdate;
end;
Вот только SortPosition не удается отрисовать. Есть какой другой способ?
зы. Сортировка данных через грид не устраивает по некоторым причинам.
.
