readme.htm

一个不错的画图控件, 大家可以

                <A HREF="#TGraphScrollBar">TGraphScrollBar</A></B><BR>
                Represents the vertical scroll bar for the scrolling the graph. 
                </FONT></TD>
            </TR>
            <TR> 
              <TD><FONT FACE="Verdana, Arial, Helvetica, sans-serif" SIZE="2"><A NAME="VisibleBounds"></A><B>VisibleBounds:</B><B> 
                TRect </B><FONT SIZE="2" FACE="Verdana, Arial, Helvetica, sans-serif" COLOR="#990000"><SUP>(Read-Only)</SUP></FONT><BR>
                Specifies the bounding rectangle of the visible part of the graph 
                in graph's unit.</FONT></TD>
            </TR>
            <TR> 
              <TD><FONT FACE="Verdana, Arial, Helvetica, sans-serif" SIZE="2"><A NAME="Zoom"></A><B>Zoom: 
                TZoom</B><BR>
                <STRONG>TZoom = 5..36863</STRONG><BR>
                Specifies the control's zoom factor in percent.</FONT></TD>
            </TR>
          </TABLE>
          <BR>
          <TABLE WIDTH="94%" BORDER="1" CELLSPACING="0" CELLPADDING="5" BGCOLOR="#FFFFCC" ALIGN="CENTER">
            <TR> 
              <TD BGCOLOR="#660000"><B><FONT FACE="Verdana, Arial, Helvetica, sans-serif" SIZE="2" COLOR="#FFFFFF">Key 
                Events</FONT></B></TD>
            </TR>
            <TR>
              <TD><FONT FACE="Verdana, Arial, Helvetica, sans-serif" SIZE="2"><B><A NAME="OnAfterDraw"></A>OnAfterDraw: TGraphDrawEvent;</B><BR>
                  <STRONG>TGraphDrawEvent = procedure(Graph: <A HREF="#TSimpleGraph">TSimpleGraph</A>; Canvas: TCanvas) of object;</STRONG><BR>
Occurs after drawing the graph on the canvas.</FONT></TD>
            </TR>
            <TR>
              <TD><FONT FACE="Verdana, Arial, Helvetica, sans-serif" SIZE="2"><B><A NAME="OnBeforeDraw"></A>OnBeforeDraw: TGraphDrawEvent;</B></FONT><FONT FACE="Verdana, Arial, Helvetica, sans-serif" SIZE="2"><BR>
                  <STRONG>TGraphDrawEvent = procedure(Graph: <A HREF="#TSimpleGraph">TSimpleGraph</A>; Canvas: TCanvas) of object;</STRONG><BR>
Occurs just before the graph being drawn on the canvas.</FONT></TD>
            </TR>
            <TR>
              <TD><FONT FACE="Verdana, Arial, Helvetica, sans-serif" SIZE="2"><B><A NAME="OnCanHookLink"></A>OnCanHookLink: TGraphCanHookEvent;</B><BR>
                    <B>TGraphCanHookEvent = procedure(Graph: </B><STRONG><A HREF="#TSimpleGraph">TSimpleGraph</A></STRONG><B>; Link: <A HREF="#TGraphLink">TGraphLink</A>; GraphObject: </B><STRONG><A HREF="#TGraphObject">TGraphObject</A></STRONG><B>; Index: Integer; var CanHook: Boolean) of object;</B><BR>
    Occurs when an attempt is made to hook a point of the link to an object. </FONT></TD>
            </TR>
            <TR> 
              <TD><FONT FACE="Verdana, Arial, Helvetica, sans-serif" SIZE="2"><B><A NAME="OnCanLinkObjects"></A>OnCanLinkObjects: 
                TGraphCanLinkEvent;</B><BR>
                <B>TGraphCanLinkEvent = procedure(Graph: </B><STRONG><A HREF="#TSimpleGraph">TSimpleGraph</A></STRONG><B>; Link: <A HREF="#TGraphLink">TGraphLink</A>; Source, 
                Target: </B><STRONG><A HREF="#TGraphObject">TGraphObject</A></STRONG><B>; var CanLink: Boolean) of object;</B><BR>
                Occurs when an attempt is made to connect two objects together. </FONT></TD>
            </TR>
            <TR> 
              <TD> <FONT SIZE="2" FACE="Verdana, Arial, Helvetica, sans-serif"><B><A NAME="OnCanMoveResizeNode"></A>OnCanMoveResizeNode: 
                TCanMoveResizeNodeEvent;<BR>
                TCanMoveResizeNodeEvent = procedure(Graph: </B><STRONG><A HREF="#TSimpleGraph">TSimpleGraph</A></STRONG><B>; Node: 
                <A HREF="#TGraphNode">TGraphNode</A>; var NewLeft, NewTop, NewWidth, NewHeight: Integer; 
                var CanMove, CanResize: Boolean) of object; <BR>
                </B>Occurs when an attempt is made to resize or move a node.</FONT></TD>
            </TR>
            <TR>
              <TD><P><FONT SIZE="2" FACE="Verdana, Arial, Helvetica, sans-serif"><STRONG><A NAME="OnCanRemoveObject"></A>OnCanRemoveObject: TGraphCanRemoveEvent; <BR>
              TGraphCanRemoveEvent: procedure(Graph: <A HREF="#TSimpleGraph">TSimpleGraph</A>; GraphObject: <A HREF="#TGraphObject">TGraphObject</A>; var CanRemove: Boolean);</STRONG><BR>
              Occurs just before object being removed. </FONT></P>              </TD>
            </TR>
            <TR> 
              <TD><FONT FACE="Verdana, Arial, Helvetica, sans-serif" SIZE="2"><B><A NAME="OnCommandModeChange"></A>OnCommandModeChange: 
                TNotifyEvent;</B><BR>
                Occurs when <A HREF="#CommandMode">CommandMode</A> is changed.</FONT></TD>
            </TR>
            <TR> 
              <TD><FONT FACE="Verdana, Arial, Helvetica, sans-serif" SIZE="2"><B><A NAME="OnGraphChange"></A>OnGraphChange: 
                TNotifyEvent;</B><BR>
                Occurs when the graph is changed.</FONT></TD>
            </TR>
            <TR>
              <TD><FONT SIZE="2" FACE="Verdana, Arial, Helvetica, sans-serif"><STRONG><A NAME="OnInfoTip"></A>OnInfoTip: TGraphInfoTipEvent;<BR>
                TGraphInfoTipEvent = procedure(Graph: <A HREF="#TSimpleGraph">TSimpleGraph</A>; GraphObject: <A HREF="#TGraphObject">TGraphObject</A>;
    var InfoTip: String) of object;<BR>
              </STRONG>Occurs when the user pauses the mouse over an object in the graph.</FONT></TD>
            </TR>
            <TR>
              <TD><FONT SIZE="2"><STRONG><A NAME="OnMoveResizeNode" ID="OnMoveResizeNode"></A><FONT FACE="Verdana, Arial, Helvetica, sans-serif">OnMoveResize<FONT SIZE="2"><STRONG>Node</STRONG></FONT> = TGraph<FONT SIZE="2"><STRONG>Node</STRONG></FONT>ResizeEvent;<BR>
  TGraph<FONT SIZE="2"><STRONG>Node</STRONG></FONT></FONT><FONT FACE="Verdana, Arial, Helvetica, sans-serif">ResizeEvent = procedure(Graph: <A HREF="#TSimpleGraph">TSimpleGraph</A>; Node: <A HREF="#TGraphNode">TGraphNode</A>) of object;<BR>
                </FONT></STRONG><FONT FACE="Verdana, Arial, Helvetica, sans-serif">Occurs when a node is moved or resized.</FONT></FONT><FONT SIZE="2">&nbsp; </FONT></TD>
            </TR>
            <TR>
              <TD><STRONG><FONT SIZE="2" FACE="Verdana, Arial, Helvetica, sans-serif"><A NAME="OnObjectAfterDraw"></A>OnObjectAfterDraw: TGraphObjectDrawEvent;<BR>
              TGraphObjectDrawEvent = procedure(Graph: <A HREF="#TSimpleGraph">TSimpleGraph</A>; GraphObject: <A HREF="#TGraphObject">TGraphObject</A>; Canvas: TCanvas) of object;<BR>
              </FONT></STRONG><FONT SIZE="2" FACE="Verdana, Arial, Helvetica, sans-serif">Occurs after drawing the graph object on the canvas.</FONT>              </TD>
            </TR>
            <TR>
              <TD><STRONG><FONT SIZE="2" FACE="Verdana, Arial, Helvetica, sans-serif"><A NAME="OnObjectBeforeDraw"></A>OnObjectBeforeDraw: TGraphObjectDrawEvent;<BR>
    TGraphObjectDrawEvent = procedure(Graph: <A HREF="#TSimpleGraph">TSimpleGraph</A>; GraphObject: <A HREF="#TGraphObject">TGraphObject</A>; Canvas: TCanvas) of object;<BR>
              </FONT></STRONG><FONT FACE="Verdana, Arial, Helvetica, sans-serif" SIZE="2">Occurs just before the graph object being drawn on the canvas.</FONT></TD>
            </TR>
            <TR>
              <TD><STRONG><FONT SIZE="2" FACE="Verdana, Arial, Helvetica, sans-serif"><A NAME="OnObjectBeginDrag" ID="OnObjectBeginDrag"></A>OnObjectBeginDrag: TGraphBeginDragEvent;<BR>
    </FONT></STRONG><FONT FACE="Verdana, Arial, Helvetica, sans-serif" SIZE="2"><B>TGraphBeginDragEvent = procedure(Graph: </B><STRONG><A HREF="#TSimpleGraph">TSimpleGraph</A></STRONG><B>; GraphObject: </B><STRONG><A HREF="#TGraphObject">TGraphObject</A></STRONG><B>; HT: DWORD) of object; </B><BR>
Occurs just after the graph object is initiated to drag. Consider that other selected object may follow the drag operation, however this event occurs only for the drag source. </FONT></TD>
            </TR>
            <TR>
              <TD><STRONG><FONT SIZE="2" FACE="Verdana, Arial, Helvetica, sans-serif"><A NAME="OnObjectEndDrag" ID="OnObjectEndDrag"></A>OnObjectEndDrag: TGraphEndDragEvent;<BR>
                </FONT></STRONG><FONT FACE="Verdana, Arial, Helvetica, sans-serif" SIZE="2"><B>TGraphEndDragEvent = procedure(Graph: </B><STRONG><A HREF="#TSimpleGraph">TSimpleGraph</A></STRONG><B>; GraphObject: </B><STRONG><A HREF="#TGraphObject">TGraphObject</A></STRONG><B>; HT: DWORD; Cancelled: Boolean) of object; </B><BR>
    Occurs just after the graph object finished to drag. Consider that other selected object may follow the drag operation, however this event occurs only for the drag source. </FONT></TD>
            </TR>
            <TR> 
              <TD><FONT FACE="Verdana, Arial, Helvetica, sans-serif" SIZE="2"><B><A NAME="OnObjectContextPopup"></A>OnObjectContextPopup: 
                TGraphContextPopupEvent;</B><BR>
                <B>TGraphContextPopupEvent = procedure(Graph: </B><STRONG><A HREF="#TSimpleGraph">TSimpleGraph</A></STRONG><B>; GraphObject: 
                </B><STRONG><A HREF="#TGraphObject">TGraphObject</A></STRONG><B>; const MousePos: TPoint; var Handled: Boolean) of 
                object;<BR>
                </B>Occurs when the user right-clicks on a graph object. </FONT></TD>
            </TR>
            <TR>
              <TD><FONT FACE="Verdana, Arial, Helvetica, sans-serif" SIZE="2"><B><A NAME="OnObjectClick" ID="OnObjectClick"></A>OnObjectClick: TGraphNotifyEvent;</B><BR>
                    <B>TGraphNotifyEvent = procedure(Graph: </B><STRONG><A HREF="#TSimpleGraph">TSimpleGraph</A></STRONG><B>; GraphObject: </B><STRONG><A HREF="#TGraphObject">TGraphObject</A></STRONG><B>) of object; </B><BR>
    Occurs when  user clicks on a graph object.</FONT></TD>
            </TR>
            <TR> 
              <TD><FONT FACE="Verdana, Arial, Helvetica, sans-serif" SIZE="2"><B><A NAME="OnObjectDblClick"></A>OnObjectDblClick: 
                TGraphNotifyEvent;</B><BR>
                <B>TGraphNotifyEvent = procedure(Graph: </B><STRONG><A HREF="#TSimpleGraph">TSimpleGraph</A></STRONG><B>; GraphObject: 
                </B><STRONG><A HREF="#TGraphObject">TGraphObject</A></STRONG><B>) of object; </B><BR>
                Occurs when user double clicks on a graph object.</FONT></TD>
            </TR>
            <TR>
              <TD><FONT FACE="Verdana, Arial, Helvetica, sans-serif" SIZE="2"><B><A NAME="OnObjectHook" ID="OnObjectHook"></A>OnObjectHook: TGraphHookEvent;</B><BR>
                <B>TGraphHookEvent = procedure(Graph: </B><STRONG><A HREF="#TSimpleGraph">TSimpleGraph</A></STRONG><B>; GraphObject: </B><STRONG><A HREF="#TGraphObject">TGraphObject</A></STRONG><B>; Link: <A HREF="#TGraphLink">TGraphLink</A>; Index: Integer) of object; <BR>
              </B>Occurs when a link is hooked to a graph object.</FONT></TD>
            </TR>
            <TR>
              <TD><FONT FACE="Verdana, Arial, Helvetica, sans-serif" SIZE="2"><B><A NAME="OnObjectUnhook" ID="OnObjectUnhook"></A>OnObjectUnhook: TGraphHookEvent;</B><BR>
                    <B>TGraphHookEvent = procedure(Graph: </B><STRONG><A HREF="#TSimpleGraph">TSimpleGraph</A></STRONG><B>; GraphObject: </B><STRONG><A HREF="#TGraphObject">TGraphObject</A></STRONG><B>; Link: <A HREF="#TGraphLink">TGraphLink</A>; Index: Integer) of object; <BR>
              </B>Occurs when  a link is unhooked from a graph object.</FONT></TD>
            </TR>
            <TR>
              <TD><FONT FACE="Verdana, Arial, Helvetica, sans-serif" SIZE="2"><B><A NAME="OnObjectInitInstance" ID="OnObjectInitInstance"></A>OnObjectInitInstance: TGraphNotifyEvent;</B><BR>
                    <B>TGraphNotifyEvent = procedure(Graph: </B><STRONG><A HREF="#TSimpleGraph">TSimpleGraph</A></STRONG><B>; GraphObject: </B><STRONG><A HREF="#TGraphObject">TGraphObject</A></STRONG><B>) of object; <BR>
                  </B>Occurs when a new graph object is being created. In this stage, the graph object is not inserted on the graph yet. </FONT></TD>
            </TR>
            <TR> 
              <TD><FONT FACE="Verdana, Arial, Helvetica, sans-serif" SIZE="2"><B><A NAME="OnObjectInsert"></A>OnObjectInsert: 
                TGraphNotifyEvent;</B><BR>
                <B>TGraphNotifyEvent = procedure(Graph: </B><STRONG><A HREF="#TSimpleGraph">TSimpleGraph</A></STRONG><B>; GraphObject: 
                </B><STRONG><A HREF="#TGraphObject">TGraphObject</A></STRONG><B>) of object; </B><B><BR>
                </B>Occurs when a new graph object is added to the graph.</FONT></TD>
            </TR>
            <TR> 
              <TD><FONT FACE="Verdana, Arial, Helvetica, sans-serif" SIZE="2"><B><A NAME="OnObjectRemove"></A>OnObjectRemove: 
                TGraphNotifyEvent;</B><BR>
                <B>TGraphNotifyEvent = procedure(Graph: </B><STRONG><A HREF="#TSimpleGraph">TSimpleGraph</A></STRONG><B>; GraphObject: 
                </B><STRONG><A HREF="#TGraphObject">TGraphObject</A></STRONG><B>) of object; </B><B><BR>
                </B>Occurs when a graph object is removed from the graph.</FONT></TD>
            </TR>
            <TR>
              <TD><FONT FACE="Verdana, Arial, Helvetica, sans-serif" SIZE="2"><B><A NAME="OnObjectChange" ID="OnObjectChange"></A>OnObjectChange: TGraphNotifyEvent;</B><BR>
                    <B>TGraphNotifyEvent = procedure(Graph: </B><STRONG><A HREF="#TSimpleGraph">TSimpleGraph</A></STRONG><B>; GraphObject: </B><STRONG><A HREF="#TGraphObject">TGraphObject</A></STRONG><B>) of object; <BR>
                  </B>Occurs when a graph object is changed.</FONT></TD>
            </TR>
            <TR> 
              <TD><FONT FACE="Verdana, Arial, Helvetica, sans-serif" SIZE="2"><B><A NAME="OnObjectSelect"></A>OnObjectSelect: 
                TGraphNotifyEvent;</B><BR>
                <B>TGraphNotifyEvent = procedure(Graph: </B><STRONG><A HREF="#TSimpleGraph">TSimpleGraph</A></STRONG><B>; GraphObject: 
                </B><STRONG><A HREF="#TGraphObject">TGraphObject</A></STRONG><B>) of object; <BR>
                </B>Occurs when a graph object is selected/deselected in the graph. Use <A HREF="#Selected">Selected</A> property of the object to determine whether it is selected or deselected. </FONT></TD>
            </TR>
            <TR>
              <TD><FONT SIZE="2" FACE="Verdana, Arial, Helvetica, sans-serif"><STRONG><A NAME="OnObjectRead"></A>OnObjectRead: TGraphStreamEvent;<BR>