TitleButtons в RxDBGrid

← →
Developerr © (2004-01-14 16:18) [0]

Ув. мастера, подскажите, пожалуйста, следующее:
При нажатии на Title Button одной из колонок RxDBGrid, я сортирую данные сразу по 2-м полям, причем эти поля не выводятся в Grid"е либо по одному полю, которое тоже не выводится в Grid"e, т.е. сортирую не по тому полю которое отображается в Grid"e, а то другому. А именно, например, кликаю по заголовку поля Должность, а сортирую не по названию должностей, а по коду должностей. В результате не появляется треугольник на Title Button. Можно ли сделать так чтобы этот треугольник все-таки появлялся?

Код у меня такой:

procedure TGridForm.RxDBGrid1TitleBtnClick(Sender: TObject; ACol: Integer; Field: TField); begin if (Field.FieldName<>"Dep")and(Field.FieldName<>"POST") then MainForm.Table1.IndexFieldNames := Field.FieldName else if (Field.FieldName="Dep")then MainForm.Table1.IndexFieldNames := "CodeDep;CodeP" else MainForm.Table1.IndexFieldNames := "CodeP"; end;

Спасибо.

← →
Wizard_Ex © (2004-01-14 17:57) [1]

Попробуй EhLib
Этот Grid позволяет тебе делать все самому в этом случае
как хочешь.

RxDBGrid позволяет рисовать треугольник, а не рисует. Для рисования надо написать обработчик
Написать обработчик
procedure TGridForm.RxDBGrid1 GetBtnParams(Sender: TObject; Field: TField; AFont: TFont; var Background: TColor; var SortMarker: TSortMarker; IsDown: Boolean); begin if (AnsiCompareText(MainForm.Table1.IndexFieldNames, Field.FieldName) = 0) or (AnsiCompareText(Field.FieldName , "Dep") = 0) and (AnsiCompareText(MainForm.Table1.IndexFieldNames, "CodeDep;CodeP") = 0) or (AnsiCompareText(Field.FieldName , "POST") = 0) and (AnsiCompareText(MainForm.Table1.IndexFieldNames, "CodeP") = 0) then SortMarker := smDown else SortMarker := smNone; end;

TitleButtons в RxDBGrid Найти похожие ветки