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

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 позволяет тебе делать все самому в этом случае
как хочешь.

---

← →
ЮЮ ©   (2004-01-15 06:45) [2]

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;


---

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

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



Память: 0.45 MB
Время: 0.007 c