1.8.1. AdvDiagram

ExportShapeToVisioOrgChar(AVisioInterface: Variant; AText, StyleName_Rus, StyleName_Eng: String; ObjectID: Double; Width, Height, CenterX, CenterY: Integer; ImageFileName: String)

Метод добавления HR объекта в организационную диаграмму Visio.

Parameters:
  • AVisioInterface (Variant) -- Ссылка на интерфейс Visio. Сейчас параметр не используется.
  • AText (String) -- Текст отображаемый в элементе.
  • StyleName_Rus (String) -- Стиль элемента в русской редакции Visio (Директор, Руководитель, Должность, Консультант, Вакансия, Помощник).
  • StyleName_Eng (String) -- Стиль элемента в англоязычной редакции Visio (Executive, Manager, Position, Consultant, Vacancy, Dynamic Connector).
  • ObjectID (Double) -- Идентификатор объекта в системе.
  • Width (Integer) -- Ширина в мм элемента на диаграмме.
  • Height (Integer) -- Высота в мм элемента на диаграмме.
  • CenterX (Integer) -- Координата X центра элемента на диаграмме в мм.
  • CenterY (Integer) -- Координата X центра элемента на диаграмме в мм.
  • ImageFileName (String) -- Путь к изображнию которое надо связать с элементом.
Пример использования
<pascal>
  ExportShapeToVisioOrgChar(GetVar('VisioInterface'), '10424330001', -1, -1, -1, 400, '');
</pascal>
ExportConnectionToVisioOrgChar(VisioInterface: Variant; Id: Double; StyleName_Rus, StyleName_Eng: String; IDBeginShape, IDEndShape: Double)

Добавляет связь между двумя организационными диаграммами Visio.

Parameters:
  • VisioInterface (Variant) -- Ссылка на интерфейс Visio. Сейчас параметр не используется.
  • Id (Double) -- Уникальный идентификатор объекта. Уникальность должны сохраняться в рамках документа.
  • StyleName_Rus (String) -- Стиль элемента в русской редакции Visio (Динамическая соединительная линия).
  • StyleName_Eng (String) -- Стиль элемента в англоязычной редакции Visio (Dynamic Connector).
  • IDBeginShape (Double) -- Идентификатор первого HR объекта на диаграмме с которым необходимо организовать связь.
  • IDEndShape (Double) -- Идентификатор второго HR объекта на диаграмме с которым необходимо организовать связь.
Пример использования
<pascal>
  ExportConnectionToVisioOrgChar(GetVar('VisioInterface'), 4,
  'Динамическая соединительная линия', 'Dynamic Connector', '10424330001', 463310);
</pascal>

1.8.1.1. TbtkAdvDiagramItemCaption

class TbtkAdvDiagramItemCaption

TbtkAdvDiagramItemCaption

Font: TFont

Описание отсутствует

Return type:TFont
Пример использования
<pascal>
  S := FindSelection('SEL_DTB_DIAGRAM_MATERDET.Diagram');
  D := S.Diagram;

  if Assigned(D) then
  begin
    D.BeginUpdate;
    try
      D.HighLightedItemBorderThickness := 2;
      D.Items.HighLightItemsByObjectID(1181273001, True);
      D.HighLightedItemBorderColor := StrToInt('$00FF00');
      D.Items.Item[1].HighLightedBorderColor := StrToInt('$005555');
      D.Items.Item[2].HighLightedBorderColor := StrToInt('$005555');
      D.Items.Item[2].HighLightedBorderThickness := 3;

      for i := 0 to D.Items.Count - 1 do
        if D.Items.Item[i].HighLighted then
        begin
          D.Items.Item[i].Caption.Font.Style := [fsItalic, fsBold];
          D.Items.Item[i].Caption.Font.Size := 15;
          D.Items.Item[i].Caption.Font.Name := 'Times';
        end;
    finally
      D.EndUpdate;
    end;
  end
  else
    ShowMessage('Диаграмма не найдена');
</pascal>
Text: String

Отображаемый текст.

Return type:String

1.8.1.2. TbtkAdvDiagram

class TbtkAdvDiagram

Скриптовый класс управляющий доступом к свойствам фрейма TbtkAdvDiagramFrame.

Note

Все действия связанные с обновлением внешного вида элемента необходимо выполнять в блоке try ... finally ... end

TbtkAdvDiagram.BeginUpdate;
try
  //работы с методами и свойствами диаграммы
finally
  TbtkAdvDiagram.EndUpdate;
end;
Пример работы. Задание произвольного стиля элемента
<PASCAL>
  f := Findselection('sel_btd_diagram.diagram');

  If not Assigned(f) then
    Raise('Диаграмма не найдена');

  f.Diagram.BeginUpdate;
  try
    f.Diagram.FocusedItem.BorderColor := Trunc(Random * 64000);
    f.Diagram.FocusedItem.BorderStyle := Trunc(Random * 5);
    f.Diagram.FocusedItem.BackColor := Trunc(Random * 64000);
    f.Diagram.FocusedItem.BackStyle := Trunc(Random * 6);
    f.Diagram.FocusedItem.BorderThickness := Trunc(Random * 10);
  finally
    f.Diagram.EndUpdate;
  end;
</PASCAL>
FocusedItemBorderColor: TRGBColor

Описание отсутствует

Return type:TRGBColor
HighLightedItemBorderColor: TRGBColor

Описание отсутствует

Return type:TRGBColor
Пример использования
<pascal>
  S := FindSelection('SEL_DTB_DIAGRAM.Diagram');
  D := S.Diagram;

  if Assigned(D) then
  begin
    D.Items.HighLightItemsByObjectID(1181273001, True);
    D.HighLightedItemBorderColor := StrToInt('$00FF00');
  End;
</pascal>
ItemCount: Integer

Описание отсутствует

Return type:Integer
Items: TbtkAdvDiagramItems

Описание отсутствует

Return type:TbtkAdvDiagramItems
FocusedItem: TbtkAdvDiagramItem

Возвращает сфокусированный элемент.

Return type:TbtkAdvDiagramItem
SelectedItemBorderColor: TRGBColor

Описание отсутствует

Return type:TRGBColor
HighLightedItemBorderThickness: Integer

Описание отсутствует

Return type:Integer
ExportToVisio()

Открывает VISIO и экспортирует документ. Экспортирует только блоки относящиеся к Организационной диаграмме.

Пример использования
<PASCAL>
  f := Findselection('sel_btd_diagram.diagram');
  f.Diagram.ExportToVisio;
</PASCAL>
EndUpdate()

Метод разрешает перерисовку схемы.

CreateReport(AReportName: String; AReportVersionDate: TDateTime; AAction: TReportViewMode; AShowWizard: Boolean; AOpSelectionName: String; AStyleFlag: TFormCreationFlags)

Метод позволяет создать FastReport4 отчет, на основе шаблона "Diagram Report(*.dgr)". Описание совпадает с TbtkScriptSelectionObject.CreateReport

Parameters:
  • AReportName (String) -- Cистемное имя отчёта.
  • AReportVersionDate (TDateTime) -- Дата, по которой будет найдена актуальная версия отчёта (если не задана, берётся SysDate).
  • AAction (TReportViewMode) -- Действие, которое небходимо произвести над отчётом после его создания. Возможные значения: {rvmPrint, rvmShow, rvmSave, rvmDesign}
  • AShowWizard (Boolean) -- Флаг отображения мастера настройки отчётов (если указана главная выборка мастера)
  • AOpSelectionName (String) -- Системное имя выборки, операции которой будут отображаться в главном меню окна при модальном просмотре построенного отчёта. Если не указана, подставляются выборки со стандартным набором команд ("Save as" и "Print")
  • AStyleFlag (TFormCreationFlags) -- Флаг модального или немодального открытия окна просмотра отчёта {fcfModal, fcfMDI}. fcfMDI - работает только для отчетов на основе FastReport 4й версии.
CreateReportEx(AReportName: String; AReportVersionDate: TDateTime; AAction: TReportViewMode; AShowWizard: Boolean; AOpSelectionName: String; AStyleFlag: TFormCreationFlags; ANames: Array; AValues: Array)

Метод позволяет создать FastReport4 отчет, на основе шаблона "Diagram Report(*.dgr)". Описание совпадает с TbtkScriptSelectionObject.CreateReportEx

Parameters:
  • AReportName (String) -- Cистемное имя отчёта.
  • AReportVersionDate (TDateTime) -- Дата, по которой будет найдена актуальная версия отчёта (если не задана, берётся SysDate)
  • AAction (TReportViewMode) -- Действие, которое небходимо произвести над отчётом после его создания. Возможные значения: {rvmPrint, rvmShow, rvmSave, rvmDesign}
  • AShowWizard (Boolean) -- Флаг отображения мастера настройки отчётов (если указана главная выборка мастера)
  • AOpSelectionName (String) -- Системное имя выборки, операции которой будут отображаться в главном меню окна при модальном просмотре построенного отчёта. Если не указана, подставляются выборки со стандартным набором команд ("Save as" и "Print")
  • AStyleFlag (TFormCreationFlags) -- Флаг модального или немодального открытия окна просмотра отчёта {fcfModal, fcfMDI}. fcfMDI - работает только для отчетов на основе FastReport 4й версии.
  • AParamNames (Array) -- Массив имен параметров отчета
  • AParamValues (Array) -- Массив значений параметров AParamNames отчета.
BeginUpdate()

Метод запрещает схеме перерисовываться при изменении свойств схемы или её элементов. Его необходимо вызывать перед началом изменений.

Attention

После выполнения изменений схемы обязательно вызывайте метод EndUpdate;

Locate(AItem: TbtkAdvDiagramItem)

Описание отсутствует

Parameters:AItem (TbtkAdvDiagramItem) -- Описание отсутствует

1.8.1.3. TbtkAdvDiagramItem

class TbtkAdvDiagramItem

TbtkAdvDiagramItem

Свойства BackColor, BackStyle, BorderColor, BorderStyle, BorderThickness, Caption не влияют на значения в базе. Изменить значения сохраняемые в базе можно только через пользовательских графический интерфейс фрейма диаграммы.

BorderThickness: Integer

Толщина границ элемента.

Return type:Integer
BorderColor: TRGBColor

Цвет границ элемента.

Return type:TRGBColor
BorderStyle: TPenStyle

Шаблон границ элемента.

Return type:TPenStyle
BackStyle: TBrushStyle

Шаблон заливки элемента.

Return type:TBrushStyle
BackColor: TRGBColor

Цвет заливки элемента.

Return type:TRGBColor
HighLightedBorderColor: TRGBColor

Цвет границы подсвеченного элемента. Значение свойства перекрывает значение свойства схемы HighLightedItemBorderColor.

Return type:TRGBColor
HighLightedBorderThickness: Integer

Толщина границы подсвеченного элемента. Значение свойства перекрывает значение свойства схемы HighLightedItemBorderColor.

Return type:Integer
ID: Variant

Идентификатор элемента схемы. (Только для чтения).

Элементы диаграммы расположены в таблице BTD_OBJECT.

Return type:Variant
Selected: Boolean

Флаг указывает, является ли элемент выделенным. (Выделенными могут быть несколько объектов).

Return type:Boolean
Focused: Boolean

Флаг указывает, является ли сфокусированным. (Сфокусированным может быть только один элемент. Сфокусированный элемент также является выделенным).

Return type:Boolean
Caption: TbtkAdvDiagramItemCaption

Текст, который отображается поверх элемента. Его проставление доступно только из скрипта. В базу данных это значение не сохраняется.

Return type:TbtkAdvDiagramItemCaption
HighLighted: Boolean

Свойство указывает, что данный элемент является подсвеченным (его граница выделена цветом, заданным в свойстве схемы HighLightedItemBorderColor. Цвет границы подсвеченного элемента может быть изменено заданием свойства HighLightedBorderColor элемента).

Return type:Boolean

1.8.1.4. TbtkAdvDiagramItems

class TbtkAdvDiagramItems

Коллекция графических элементов располоежнных на Advanced диаграмме.

Count: Integer

Количество элементов в коллекции.

Return type:Integer
Item: TbtkAdvDiagramItem

Описание отсутствует

Return type:TbtkAdvDiagramItem
SetItemsCaptionByObjectID(ObjectID: Double; Caption: String)

Задание текста элемента по идентификатору связанного объекта БД.

Parameters:
  • ObjectID (Double) -- Идентификатор связанного с элементом диагрыммы объекта БД.
  • Caption (String) -- Текст графического элемента.
HighLightItemByID(ID: Double; HighLighted: Boolean)

Задание свойства HighLighted графического элемента по идентификатору элемента.

Parameters:
  • ID (Double) -- Идентификатор графического элемента в базе (Объекты диаграммы расположены в таблице BTD_OBJECT).
  • HighLighted (Boolean) -- Значение свойства TbtkAdvDiagramItem.HighLighted у графического элемента.
HighLightItemsByObjectID(ObjectID: Double; HighLighted: Boolean)

Задание свойства HighLighted графического элемента по идентификатору связанного объекта.

Parameters:
  • ObjectID (Double) -- Идентификатор связанного с элементом диагрыммы объекта БД.
  • HighLighted (Boolean) -- Значение свойства TbtkAdvDiagramItem.HighLighted у графического элемента.