| Метод
SetColumnSorting (Longint, Integer, Integer) |
Top Previous Next |
| Назначение
|
| Позволяет
установить состояние индикатора порядка сортировки в заголовке
колонки или браузера aBrowseId, при этом сама
сортировка не производится. |
| Описание
|
| Procedure
SetColumnSorting(aBrowseId : LongInt; aFieldNo : Integer; 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.
|