Выполнив поиск по ключевому слову RescanPanel в файле asdk.chm нашел следующий пример, в котором, действительно в процедуру RescanPanel передается название табличного редактора:Назначение
Пересканирование содержимого панели iPanel.
Делает то же, что и процедура ReDrawPanel, плюс перечитывает содержимое строк browse, отличных от текущей. Эту процедуру можно вызвать, например, сразу после вызова updateCurrent <Table> или insertCurrent <Table>, если есть уверенность, что внесенные изменения попадут в текущие ограничения. Процедура до последнего держится за текущую запись и ее изменения, ни в коем случае не сбрасывает статуса модификации полей и записи.
Описание
procedure RescanPanel (iPanel : integer);
Параметры
iPanel : integer - номер панели.
Примечание
Для прорисовки записей служат три метода:
ReDrawPanel;
ReScanPanel.
ReReadRecord;
Каждый последующий метод вызывает предыдущий, поэтому не следует вызывать их два подряд.
Код: Выделить всё
#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.
Например:
RescanPanel(#KlVidOpl)
Так как же все таки правильно вызывать эту процедуру?
