КомпонентTISPROGraph

Розташування: модуль Конструктор, вкладка Розширені.

1. Подвійний клік відкриває редактор графа.

У редакторі реалізовані можливості:

• завантаження з файлу
• об'єднання з файлу
• збереження у файл
• додавання вузла і зв'язку.

Додані константи атрибутів файлів. Реалізовані функції:

- FileSearch - Здійснює пошук файлу в одній або більше папках;

- FindInDir - Повертає список файлів в каталозі по шляху, включаючи маску файлів, із зазначенням атрибутів файлів.

- FileGetAttr - Повертає атрибути файлу;

- FileSetAttr - Встановлює атрибути файлу.

2. У редакторі подвійний клік на елементі відкриває вікно властивостей вузла або зв'язку.

Вікно властивостей вузла:

• Тема, його розташування і шрифт.
• Вид (Квадрат, коло, трикутник ...)
• Розміри.
• Кольори фону і кордонів
• Стилі заливки і рамки
• Розширені можливості пошуку (код та ідентифікатор документа)
• Вибирати зображення (іконку) з файлу
• Налаштовувати розташування іконки.
• Вибирати зображення з бібліотеки Комплексу.

Вікно властивостей зв'язку:

• Підпис і її розташування
• Види і розміри країв зв'язків.
• Стиль зв'язку
• Кольори ліній і заливки країв.

Функції для програмного доступу:

Завантажити з файлу: function LoadFromFile (F ileName: String): Integer

Об'єднати з файлом: : functionIntegerfunction MergeFromFile (FileName: String): Integer

Зберегти у файл: function SaveToFile (FileName: String): Integer

Отримати ID натиснутого об'єкта: function GetClickedObject: integer

Отримати ID натиснутого вузла: function GetClickedNode: integer

Отримати ID натиснутою зв'язку: function GetClickedLink: integer

Додати вузол: function AddNode (X, Y: Integer; Cap: String; ImageIndex: Integer): Integer

Присвоїти реквізити документа: procedure SetNodeDoc (NodeID, DocCd, DocRcd: Integer; Cap: String; ImageIndex: Integer): Integer

Отримати ID по реквізитами документа: function GetDocID (DocCd, DocRcd: Integer): Integer

Додати зв'язок: function AddLink (SourceID, TargetID: Integer): Integer

Отримати ID зв'язку з ID пов'язаних вузлів: function GetLinkID (SourceID, TargetID: Integer): Integer

Видалити елемент графа: procedure DeleteGraphObj (ID: Integer)

Отримати код документа по ID вузла: function GetDocCd (ID: Integer): Integer

Отримати ID документа по ID вузла: function GetDocRcd (ID: Integer): Integer

Встановити розмір шрифту вузла: procedure NodeFontSize (ID, Size: Integer)

Встановити колір шрифту вузла: procedure NodeFontColor (ID: Integer; color: TColor)

Встановити стиль вузла: procedureNodeBodyStyle (ID: Integer; style: TBrushStyle

Встановити колір вузла: procedure NodeBodyColor (ID: Integer; color: TColor);

Встановити стиль рамки вузла: procedure NodeBorderStyle (ID: Integer; style: TPenStyle)

Встановити колір рамки узла: procedure NodeBorderColor (ID: Integer; color: TColor)

Встановити товщину рамки вузла: procedure NodeBorderWidth (ID: I nteger; value: Integer)

Встановити ширину вузла: procedure NodeWidth (ID: Integer; value: Integer)

Встановити висоту вузла: procedure NodeHeight (ID: Integer; value: Integer)

Встановити форму вузла: procedure NodeShape (ID: Integ er; value: Integer)

Встановити розмір шрифту зв'язку: procedure LinkFontSize (ID, Size: Integer)

Встановити колір шрифту зв'язку: procedure LinkFontColor (ID: Integer; color: TColor)

Встановити стиль початку зв'язку: procedure LinkBeg inStyle (ID, style: Integer)

Встановити розмір початку зв'язку: procedure LinkBeginSize (ID, Size: Integer)

Встановити стиль закінчення зв'язку: procedure LinkEndStyle (ID, style: Integer)

Встановити розмір закінчення зв'язку: procedure L inkEndSize (ID, Size: Integer)

Встановити товщину зв'язку: procedure LinkWidth (ID, Size: Integer)

Встановити стиль зв'язку: procedure LinkStyle (ID: Integer; style: TPenStyle)

Встановити текст зв'язку: procedure LinkText (ID: Integer; Text: String)

Встановити колір зв'язку: procedure LinkLineColor (ID: Integer; color: TColor)

Встановити колір заливки зв'язку: procedure LinkFillColor (ID: Integer; color: TColor)

Встановити колір шрифту колонки по імені поля колонки: Se tFieldFontColor

Встановити колір фону колонки по імені поля колонки: SetFieldBgColor

Встановити шрифту і фону для рядка: SetRowBgFntColor

Події:

Подвійне натискання на вузлі: OnNodeDblClick

Подвійне натискання на зв'язку: OnLinkDblClick

Натискання на вузлі: OnNodeClick

Натискання на зв'язку: OnLinkClick