Метод SetColumnSorting

Назначение

Позволяет установить состояние индикатора порядка сортировки в заголовке колонки или браузера aBrowseId, при этом сама сортировка не производится.

Описание

procedure SetColumnSorting(aBrowseId : longInt;
						 aFieldNo : longInt;
						 aSortMode : integer);

Параметры

aBrowseId - идентификатор колонки или браузера. Если значение aBrowseId равно -1 (минус 1), то установка индикатора порядка сортировки производится для всех браузеров.

aFieldNo - идентификатор поля.

aSortMode - порядок сортировки. Может быть трех видов: sortNone(0), sortUp(1) и sortDown(-1).

Пример

#commands start at 7700

const
  scSort = 7500;
end;

sortLine statusLine
{ (scSort..scSort)
		{ '~F2~ Sort', cmColumnClicked, kbF2; }
}

interface test9 (,,scSort) doAccept;
  create view as select * from X$Files
	order ByName by xf$Name
	order ByCode by xf$Code;

  browse depBrowse1;
	fields
	xf$name 'Имя файла ';
	xf$code 'Код файла';
  end;

  handleEvent
	cmInit : ClearColumnsSorting(depBrowse1);
	cmColumnClicked : {
	case GetColumnSorting(depBrowse1, Target) of
	0: {SetColumnSorting(depBrowse1, Target, -1);
		if Target=#xf$Name then
			SetOrder(tiByName)
		else
			SetOrder(tiByCode);
		RescanPanel(depBrowse1);
		 }
	-1: {SetColumnSorting(DepBrowse1,Target,0);
	}
	end;
}
  end;
end.

Версия

Формат поля aFieldNo изменился с integer на longInt начиная с Атлантис 5.1.