GRAPH.Copy2Clip

status = GRAPH.Copy2Clip( nControl AS INTEGER ) AS INTEGER

Copies the current graph to the clipboard as a bitmap that can be pasted into a document for presentation.

Example:

OPTION EXPLICIT ON

OPTION BASE 1

' Include libraries

$INCLUDE "MyBASIC2_Graph"

$INCLUDE "MyBASIC2_Win32"

$INCLUDE "MyBASIC2_Colors"

$LIBRARY "MyBASIC2_ExtLib"

$LIBRARY "MyBASIC2_GraphLib"

$LIBRARY "MyBASIC2_MaxMALLib"

DIM nGraph AS INTEGER

' Create the Graph Page

nGraph = GRAPH.Create( "MyGraph", WS_VISIBLE+WS_CAPTION, 0, 0, 1024, 768 )

GRAPH.Options( nGraph, "c:\ntgraph.xml", NG_Open )

GRAPH.New( nGraph, NG_XT, "My Stupid Array", 60 )

' Make sure it was created

IF NOT GRAPH.Exists( nGraph ) THEN

  PRINT "ERROR Creating GRAPH",

  STOP

ENDIF

' Add Elements

GRAPH.AddElement( nGraph, "My Array.X", my_array, VIX( 1 ) )

GRAPH.AddElement( nGraph, "My Array.Y", my_array, VIX( 2 ) )

GRAPH.AddElement( nGraph, "My Array.Z", my_array, VIX( 3 ) )

' Copy Graph to Clipboard

GRAPH.Copy2Clip( nGraph )

' Close Window with 5 seconds timeout

GRAPH.Close( nGraph, 5 )

END