Метод 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.