| Процедура
SetCurRow (LongInt, Integer) |
Top Previous Next |
| Назначение
|
| Устанавливает
текущую позицию в иерархическом списке на экране.
Текущая запись в таблице не изменяется. |
| Описание
|
| procedure
SetCurRow (aBrowse : LongInt; aRow : Integer);
|
| Параметры
|
| aBrowse
: LondInt - имя Browse в описании интерфейса.
|
| aRow
: Integer - номер текущей позиции на экране.
|
| Смотрите
также |
| GetCurRow
|
| Примечание
|
| Начиная
с версии 3.02. |
| Пример
|
| const
|
| cmSyncBrowse =
3130; |
| end;
|
| Interface
SyncroTest 'Synchro Test' EscClose; |
| Show at
(,,,34); |
| create view
SyncroTest |
| as select
X$Files.* from X$Files; |
| Var
|
| OldCurRow :
Integer; |
| Panel files;
|
| table x$files;
|
| Browse files;
|
| show at
(,,20,); |
| fields
|
| x$files.xf$name;
|
| end; // browse
files |
| end; // panel
files |
| TabbedSheet
tsFiles; |
| show at
(21,,,); |
| Browse br1
'First'; |
| fields
|
| x$files.xf$name;
|
| end; // browse
br1 |
| Browse br2
'Second'; |
| fields
|
| x$files.xf$name;
|
| end; // browse
br1 |
| end;
|
| HandleEvent
|
| cmInit :
|
| OldCurRow :=
-1; // Текущая позиция не известна |
| cmChangeTabbedSheetFormat
: |
| {
|
| // Запомнить
позицию |
| OldCurRow :=
GetCurRow (files); |
| PutCommand
(cmSyncBrowse); |
| }
|
| cmSyncBrowse :
|
| {
|
| if (OldCurRow
>= 0) { |
| // Если позиция
корректная, |
| // установить
позицию ... |
| SetCurRow (br1,
OldCurRow); |
| SetCurRow (br2,
OldCurRow); |
| // ... и
пересканировать. |
| RescanPanel
(#x$files); |
| }
|
| }
|
| end; //
HandleEvent |
| End. //
Interface SyncroTest |