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

Сортировка в TDBGridEh   Найти похожие ветки 

← →
Sirruf   (2004-08-25 18:04) [0]

Пытаюсь отсортировать данные по нажатию на заголовок столбца.
ColumnDefValues.Title.TitleButton := True,
OptionsEh.AutoSortMaking := True.
Почему-то маркер сортировки принимает только значение smDownEh и сколько бы его не нажимать, не меняется уже никогда, даже при прямом присваивании в обработчике OnTitleBtnClick св-ву Column.Title.SortMarker := smUpEh. Это глюк компонента или мой?

---

← →
Flagman ©   (2004-08-25 18:26) [1]

procedure TMainForm.DBGridEh1TitleBtnClick(Sender: TObject; ACol: Integer;
 Column: TColumnEh);
var FLD  : array[0..0] of TVarRec ;
   sort : array[0..0] of boolean;
   Grid : TCustomDBGridEh;
begin
 if Sender is TCustomDBGridEh then begin
   Grid:=TCustomDBGridEh(Sender);
   fld[0].VType:=vtAnsiString;
   if Column.Title.SortMarker=smDownEh then
         Column.Title.SortMarker:=smUpEh
   else  Column.Title.SortMarker:=smDownEh;
   string(fld[0].VString):=Column.fieldname;
   sort[0]:=Column.Title.SortMarker=smDownEh;
   TpFIBDataSet(Grid.DataSource.DataSet).DoSort(fld,sort);
   TpFIBDataSet(Grid.DataSource.DataSet).First;
   end;
end;

---

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

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



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