MEDIA STUDIO DESIGN
MEDIA TOOL BOX ADD ON
------------
ALL RIGHTS RESERVED (R)
Copyright(c) 2000-2005 Иоанн.
------------
RELEASE NOTES
------------
1. Краткое описание возможностей и достоинств надстройки над библиотекой GRAPH TOOLBOX:

Надстройка ориентированна на динамическое создание граф-модели. Так как эта надстройка задействована в коммерческом проекте DrawGraph то исходные материалы по понятным причинам не приводятся. Бесплатно распространяются только откомпилированные в системе Delphi5 *.dcu файлы. Но это не мешает использовать надстройку в практических целях так как MEDIA STUDIO предоставила заголовки файлов:

Библиотека состоит из трех модулей:

-> Creatr

CREATE GRAPH DRIVER v55.56

Header of file is:

//-------------------------------------
procedure DrawVert(x,y:smallint;image:TImage);
procedure DrawEdgeAB(x,y,x1,y1:smallint;image:TImage);
procedure ADDitem(n,x,y:smallint;var listbox:TListbox);
procedure RefillEdge(var listbox:TListbox;var Graph:TGraph);
function IsVertHere(x,y:smallint;Graph:TGraph):smallint;
procedure RedrawWorkField(imagelist:TImageList;image:TImage;Graph:TGraph);
procedure RenumEdges(x:smallint;var Graph:TGraph);
procedure SetMarker(x,y:smallint;panel:TStatusPanel;var label1,label2:TLabel;graph:TGraph);
procedure SetVert(x,y:smallint;var Graph:TGraph;var listbox:TListbox;
image1:TImage;panel:TStatuspanel;label1,label2:TLabel);
procedure DelEdge(j:smallint;var graph:TGraph);
Procedure DelEges(x:smallint;var Graph:TGraph;listbox:TListbox);
Procedure DelV(x:smallint;var graph:TGraph;listbox:TListbox);
procedure DelVert(x,y:smallint;var Graph:TGraph;listbox:TListbox;
panel:TStatusPanel;label1,label2:TLabel;imagelist:TImageList;Image:TImage);
procedure SortIt(var Graph:TGraph);
procedure AddEdge(v1,v2:smallint;var graph:TGraph;image:TImage;listbox:TListbox);
function CheckforMs(v1,v2:smallint;graph:TGraph):boolean;
procedure MacroSetEdge(x,y:smallint;var graph:TGRAPH;var one,two:boolean;
var memory:TSV;panel:TStatusPanel;label1,label2:TLabel;image:TImage;listbox:TListbox);
procedure EraseEdge(v1,v2:smallint;var Graph:TGraph;listbox:TListbox);
procedure MacroDelEdge(x,y:smallint;var Graph:TGraph;var one,two:boolean;
var memory:TSV;panel:TStatusPanel;label1,label2:TLabel;listbox:TListbox);
procedure RedrawReport(var listbox:TListbox;graph:TGraph);
//-------------------------------------

-> MashTab

MASHTAB DRIVER v1.0
Simple Release

Header of file is:

//-------------------------------------
Procedure IncreaseX(var Graph:TGraph);
Procedure IncreaseY(var Graph:TGraph);
Procedure IncreaseXY(var Graph:TGraph);
Procedure DecreaseX(var Graph:TGraph);
Procedure DecreaseY(var Graph:TGraph);
Procedure DecreaseXY(var Graph:TGraph);
Procedure NormalizeXY(var Graph:TGraph);
//--------------------------------------

-> Sintax

SINTAXIS ANALIZATOR for GRAPH DRIVER v2.3

Header of file is:

//-------------------------------------
procedure LoadFromFO(name:string;var graph:TGraph;image:TImage;
listbox,listbox1:TListbox;imagelist:TImageList);
Procedure FillMemoFromGraph(memo:TMemo;graph:TGraph;var ADat:DF;var GRI:GraphInfo);
//-------------------------------------

----------------------------------------------------------------
------- M E D I A S T U D I O D E S I G N -------
----------------------------------------------------------------

ALL RIGHTS RESERVED (R)
COPYRIGHT (C) 2000-2004 Иоанн,

На правах рекламы: к концу 2001 года появится объектно ориентированная версия библиотеки!