Difference between revisions of "Form.TypeNum"

From SunFlurry wiki
Jump to: navigation, search
(Created page with "{{infobox function |name=TypeNum |object=Форма |caption=Свойства элементов |type=0 |status=2 |db=0 |rw=1 |visual=1}} {{HeadLinks| * Main_Page|На...")
 
m (1 revision imported)
 
(No difference)

Latest revision as of 08:50, 7 February 2021

  TypeNum (Свойства элементов)
Объект:Форма
Статус разработки: Реализована
Тип:Атрибут
Обращение к БД:Нет
Доступность:Только чтение
Визуальность:Да

Атрибут получает тип текущего визуального элемента в виде числа. Ниже дается список заданных констант:

  • 0 -- Текстовое поле (label)
  • 1 -- Поле для редактирования (editbox)
  • 2 -- Кнопка (button)
  • 3 -- Флажок (checkbox)
  • 4 -- Переключатель (radio button)
  • 5 -- Поле со списком (combobox)
  • 6 -- Список значений (listbox)
  • 7 -- Группа элементов (groupbox)
  • 8 -- Картинка (image)
  • 9 -- Группа страниц с закладками (page control)
  • 10 -- Объемный регион оформления (bevel)
  • 11 -- OLE-объект (OLE)
  • 12 -- Пользовательский компонент интерфейса - макрос (macro)
  • 13 -- Таблица значений (table)
  • 14 -- Внедренная электронная таблица (SFT table)
  • 16 -- Дерево значений (treelist)
  • 100 -- Разделитель групп элементов (splitter)

Синтаксис

Form.TypeNum:<Цифровой тип визуального элемента (INT)>

Возвращаемое значение

Возвращает числовое значение.

Примеры

//Фрагмент ищет в визуальном элементе СтрИмя строки с пометкой "(польз)"
Тип:=Form.Control(СтрИмя).TypeNum;
Фл:=0;
If Тип=13 Then //Table
  aTab:=Form.Control(СтрИмя).Value;
  aTab.Select();
  While aTab.Next() Do
    If Pos("(польз)",aTab.Группировка)=0 Then
      Continue;
    EndIf;
    Фл:=1;
    Break;
  EndDo;
ElseIf Тип=6 Then //List
  aList:=Form.Control(СтрИмя).Value;
  For i:=1 To aList.Size() Do
    If Pos("(польз)",aList.GetName(i))=1 Then
      Фл:=1;
      Break;
    EndIf;
  EndDo;
EndIf;  
If Фл Then
  If AskQuestion("В таблицах группировок или показателей есть особые фильтры, которые будут удалены при изменении типа отчета, продолжить?",Q_QUESTION+Q_YESNO)<>R_YES Then
    Exit 0;
  EndIf;
EndIf;
Exit 1;