Компонент TISPROGraph

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

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

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

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

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

  • FileSearch - Здійснює пошук файлу в одній або більше папках;
  • FindInDir - Повертає список файлів в каталозі по шляху, включаючи маску файлів, із зазначенням атрибутів файлів.
  • FileGetAttr - Повертає атрибути файлу;
  • FileSetAttr - Встановлює атрибути файлу.

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

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

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

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

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

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

  • Завантажити з файлу: function LoadFromFile (FileName: 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 LinkEndSize (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);
  • Встановити колір шрифту колонки по імені поля колонки: SetFieldFontColor;
  • Встановити колір фону колонки по імені поля колонки: SetFieldBgColor;
  • Встановити шрифту і фону для рядка: SetRowBgFntColor.

Події:

  • Подвійне натискання на вузлі: OnNodeDblClick;
  • Подвійне натискання на зв'язку: OnLinkDblClick;
  • Натискання на вузлі: OnNodeClick;
  • Натискання на зв'язку: OnLinkClick.