Процедура SetEnumList Назад В начало Вперед

Назначение

Процедура устанавливает новый список строк для поля с выпадающим списком (поле с атрибутом list). Описание полей с выпадающим списком см. "Атрибуты поля. ".

Описание

procedure SetEnumList (format : longInt,
					 fild : longInt,
					 strArray : Array,
					 intArray : Array);

Параметры

format : longInt - формат области ввода, содержащей поле со списком.

fild : longInt - номер поля-списка в логической таблице.

strArray : Array - массив устанавливаемых строк.

intArray : Array - массив возвращаемых значений, не обязательный параметр.

Пример

interface ListBoxTest;
  show at (00,00,80,35);

create view

var
  i : longInt;

as select
  x$files.*

from
  x$files
;

screen scrListBox;

fields
  i : [list 10 'Item 1.1', 20 'Item 1.2'];

buttons
  cmSetList,,,'SetList';

<<
`i:`.@@@@@@@@@@@@@@@@@@@@@@@
  <.SetList.>
>>
end;

handleEvent

cmSetList:
{
  var lValues: array [1..5] of integer;
  lValues[1] := 10;
  lValues[2] := 20;
  lValues[3] := 30;
  lValues[4] := 40;
  lValues[5] := 50;

  var sValues: array [1..5] of string;
  sValues[1] := 'Пункт 10';
  sValues[2] := 'Пункт 20';
  sValues[3] := 'Пункт 30';
  sValues[4] := 'Пункт 40';
  sValues[5] := 'Пункт 50';

  SetEnumList (scrListBox, #i, sValues, lValues);
}
end;

end.

Версия

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