• Access. In design mode, select the component, open the properties and changes the name from ActiveXCtl1 to G2antt1. Select again the component, right click, and select the "Build Events".  Select the Form in the left drop down, so the Form_Load event is added. Copy and paste the following code:

Private Sub Form_Load()
    Dim g As EXG2ANTTLib.G2antt
    Set g = G2antt1.Object
    With g
        .Columns.Add ("Tasks")
        With .Items
            .AddItem "Task 1"
            .AddItem "Task 2"
        End With
    End With
End Sub

• Excel. In design mode, select the form and double-click it to add the UserForm_Initialize event (By default, it adds UserForm_Click. Instead, select UserForm from the left dropdown menu and Initialize from the right dropdown menu). Then, copy and paste the following code:

Private Sub UserForm_Initialize()
    With G2antt1
        .Columns.Add ("Tasks")
        With .Items
            .AddItem "Task 1"
            .AddItem "Task 2"
        End With
    End With
End Sub

• VB6. In design mode, double click the form, so the Form_Load event is added and add the following code:

Private Sub Form_Load()
    With G2antt1
        .Columns.Add ("Tasks")
        With .Items
            .AddItem "Task 1"
            .AddItem "Task 2"
        End With
    End With
End Sub

• VFP. In design mode, double click the form, and select the Init in the Procedure drop down, so the Form1_Init is added as follow:

with thisform.G2antt1
	.Columns.Add("Tasks")
	with .Items
		.AddItem("Task 1")
		.AddItem("Task 2")
	endwith
endwith

• VB.NET ( /COM ). In design mode, double click the form so the Form1_Load event is added, and copy the following code:

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    With AxG2antt1
        .Columns.Add("Tasks")
        With .Items
            .AddItem("Task 1")
            .AddItem("Task 2")
        End With
    End With
End Sub

• VB.NET ( /NET ). In design mode, double click the form so the Form1_Load event is added, and copy the following code:

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    With Exg2antt1
        .Columns.Add("Tasks")
        With .Items
            .AddItem("Task 1")
            .AddItem("Task 2")
        End With
    End With
End Sub

• VB.NET ( /WPF ). In design mode, select the window and double click it so the Window1_Loaded event is added, and copy the following code:

Private Sub Window1_Loaded(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Handles MyBase.Loaded
    With Exg2antt1
        .Columns.Add("Tasks")
        With .Items
            .AddItem("Task 1")
            .AddItem("Task 2")
        End With
    End With
End Sub

• C# ( /COM ). In design mode, double click the form so the Form1_Load event is added, and copy the following code:

private void Form1_Load(object sender, EventArgs e)
{
    axG2antt1.Columns.Add("Tasks");
    axG2antt1.Items.AddItem("Task 1");
    axG2antt1.Items.AddItem("Task 2");
}

• C# ( /NET ). In design mode, double click the form so the Form1_Load event is added, and copy the following code:

private void Form1_Load(object sender, EventArgs e)
{
    exg2antt1.Columns.Add("Tasks");
    exg2antt1.Items.AddItem("Task 1");
    exg2antt1.Items.AddItem("Task 2");
}

• C# ( /WPF ). In design mode, select the main window, double click it, so the Window1_Loaded event is added, and copy the following code:

private void Window_Loaded(object sender, RoutedEventArgs e)
{
    exg2antt1.Columns.Add("Tasks");
    exg2antt1.Items.AddItem("Task 1");
    exg2antt1.Items.AddItem("Task 2");
}

• C++ (6.0).  Search for the OnInitDialog function and add the code:

m_g2antt.GetColumns().Add("Tasks");
m_g2antt.GetItems().AddItem( COleVariant( "Task 1" ) );
m_g2antt.GetItems().AddItem( COleVariant( "Task 2" ) );

• C++ (2005,2008). The #import <exg2antt.dll> must be called somewhere in your code, so the EXG2ANTTLib namespace is defined. By default, the class wizard add a class definition for the main object only, not for all objects that the component may expose. Using the #import you can import the entire type library. Now, search for the OnInitDialog method and add the following code:

EXG2ANTTLib::IColumnsPtr spColumns = m_g2antt.get_Columns();
spColumns->Add(_T("Tasks"));
EXG2ANTTLib::IItemsPtr spItems = m_g2antt.get_Items();
spItems->AddItem( _T("Task 1") );
spItems->AddItem( _T("Task 2") );

• C++ Builder (2009). Once you imported the component, the IDE automatically added wrapper classes for all objects of the component. Handle the FormCreate event and add the code:

  IColumnsPtr spColumns = G2antt1->Columns;
  spColumns->Add( L"Tasks", TNoParam() );
  IItemsPtr spItems = G2antt1->Items;
  spItems->AddItem( TVariant("Task 1") );
  spItems->AddItem( TVariant("Task 2") );

• X++ (Dynamics Ax 2009). In the AOT window, select the Form that hosts the control, expand the node, so you can see the Methods node. Right Click the Methods node, and select the Override Method from submenu, and init from the next submenu. Now, add the code:

  public void init()
  {
  	COM com_Items;
  	anytype var_Items;
  	;
  
  	super();
  
  	exg2antt1.Columns().Add("Tasks");
  	var_Items = exg2antt1.Items(); com_Items = var_Items;
  		com_Items.AddItem("Task 1");
  		com_Items.AddItem("Task 2");
  } 

• Delphi (2009). Handle the FormCreate event and add the code:

with G2antt1 do
begin
  Columns.Add('Tasks');
  with Items do
  begin
    AddItem('Task 1');
    AddItem('Task 2');
  end;
end;

• Clarion. Handle the embed code on Window init (after open window) or under Button embed:

  ! Data
  lc:Columns    ANY
  lc:Items      ANY
  mc:Chart      ANY
  h1            ANY
  h2            ANY
  
  ! Code
  lc:Columns = ?Gantt{'Colums'}
  lc:Items   = ?Gantt{'Items'}
  ?Gantt{lc:Columns&'.Add("Task")'}
  ?Gantt{lc:Items&'.AddItem("Task 1")'}
  ?Gantt{lc:Items&'.AddItem("Task 2")'}

• PowerBuilder (Classic). Select the open event of the Window that hosts the control and add the code:

  OleObject oG2antt,var_Items
  
  oG2antt = ole_1.Object
  oG2antt.Columns.Add("Tasks")
  var_Items = oG2antt.Items
  	var_Items.AddItem("Task 1")
  	var_Items.AddItem("Task 2")
  

• dBASE Plus. Select the form in design mode. Open the form's Inspector and go to Events page, where you should locate and add the onOpen event, so you can insert the following code :

  function form_onOpen
  
     local oG2antt,var_Items
  
     oG2antt = form.Activex1.nativeObject
     oG2antt.Columns.Add("Tasks")
     var_Items = oG2antt.Items
        var_Items.AddItem("Task 1")
        var_Items.AddItem("Task 2")
  
  return
  

• Visual DataFlex. Switch to editor and locate the Procedure OnCreate in Object oComG2antt1 is a cComG2antt. Insert the following code:

  Procedure OnCreate
      Forward Send OnCreate
      
      Variant vColumns
      Get ComColumns to vColumns
      Handle hoColumns
      Get Create (RefClass(cComColumns)) to hoColumns
      Set pvComObject of hoColumns to vColumns
      Get ComAdd of hoColumns "Tasks" to Nothing
  	Send Destroy to hoColumns
  
      Variant vItems
      Get ComItems to vItems
      Handle hoItems
      Get Create (RefClass(cComItems)) to hoItems
      Set pvComObject of hoItems to vItems
      Get ComAddItem of hoItems "Task 1" to Nothing
      Get ComAddItem of hoItems "Task 2" to Nothing
      Send Destroy to hoItems
      
  End_Procedure
  

• Xbase++. Open the Visual Xbase++ IDE, create a Win32 application and replace the Main procedure with the following code:

  #include "AppEvent.CH"
  #PRAGMA LIBRARY( "ASCOM10.LIB" ) // Include the Automation Support Library
  
  PROCEDURE Main
  
    LOCAL oForm, oControl
    LOCAL nEvent
    LOCAL mp1 := NIL, mp2 := NIL, oXbp := NIL
  
    oForm := XbpDialog():new( AppDesktop() )
    oForm:drawingArea:clipChildren := .T.
    oForm:create( ,,{100,100}, {640,480},, .F. )
    oForm:close  := {|| PostAppEvent( xbeP_Quit )}
  
      oControl := XbpActiveXControl():new( oForm:drawingArea )
      oControl:CLSID  := "Exontrol.G2antt"
      oControl:create(,, {10,60},{610,370} )
  
      oControl:Columns:Add("Tasks")
      oControl:Items:AddItem("Task 1")
      oControl:Items:AddItem("Task 2")
  
    oForm:Show()
  
    nEvent := 0
    DO WHILE nEvent != xbeP_Quit
      nEvent := AppEvent( @mp1, @mp2, @oXbp )
      oXbp:handleEvent( nEvent, mp1, mp2 )
    ENDDO
  
  RETURN
  

• Access. Open the form in design mode, go to "Build Event" and add the red section to the Form_Load event:

Private Sub Form_Load()
    Dim g As EXG2ANTTLib.G2antt
    Set g = G2antt1.Object
    With g
        With .Chart
            .FirstVisibleDate = #1/1/2008#
            .LevelCount = 2
            With .Level(0)
                .Label = "<b><%mmmm%></b> <%yyyy%>"
                .Unit = exMonth
            End With
            .Level(1).Label = "<%d%>"
        End With
        .Columns.Add ("Tasks")
        With .Items
            .AddItem "Task 1"
            .AddItem "Task 2"
        End With
    End With
End Sub

• Excel. Go to code and add the red section to the UserForm_Initialize event:

Private Sub UserForm_Initialize()
    With G2antt1
		With .Chart
			.FirstVisibleDate = #1/1/2008#
			.LevelCount = 2
			With .Level(0)
				.Label = "<b><%mmmm%></b> <%yyyy%>"
				.Unit = exMonth
			End With
			.Level(1).Label = "<%d%>"
		End With
		.Columns.Add ("Tasks")
		With .Items
			.AddItem "Task 1"
			.AddItem "Task 2"
		End With
    End With
End Sub

• VB6. Go to the Form_Load event and adds the red section

Private Sub Form_Load()
    With G2antt1
		With .Chart
			.FirstVisibleDate = #1/1/2008#
			.LevelCount = 2
			With .Level(0)
				.Label = "<b><%mmmm%></b> <%yyyy%>"
				.Unit = exMonth
			End With
			.Level(1).Label = "<%d%>"
		End With
		.Columns.Add ("Tasks")
		With .Items
			.AddItem "Task 1"
			.AddItem "Task 2"
		End With
    End With
End Sub

• VFP. Go to the the Form1_Init method and adds the red code as follow:

with thisform.G2antt1
	With .Chart
		.FirstVisibleDate = {^2008-1-1}
		.LevelCount = 2
		With .Level(0)
			.Label = "<b><%mmmm%></b> <%yyyy%>"
			.Unit = 16
		EndWith
		.Level(1).Label = "<%d%>"
	EndWith
	.Columns.Add("Default")
	with .Items
		.AddItem("Task 1")
		.AddItem("Task 2")
	endwith
endwith

• VB.NET ( /COM ). Go back to the Form1_Load event and add the red code as shown bellow:

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    With AxG2antt1
        With .Chart
            .FirstVisibleDate = #1/1/2008#
            .LevelCount = 2
            With .Level(0)
                .Label = "<b><%mmmm%></b> <%yyyy%>"
                .Unit = EXG2ANTTLib.UnitEnum.exMonth
            End With
            .Level(1).Label = "<%d%>"
        End With
        .Columns.Add("Tasks")
        With .Items
            .AddItem("Task 1")
            .AddItem("Task 2")
        End With
    End With
End Sub

• VB.NET ( /NET ). Go back to the Form1_Load event and add the red code as shown here:

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    With Exg2antt1
        With .Chart
            .FirstVisibleDate = #1/1/2008#
            .LevelCount = 2
            With .get_Level(0)
                .Label = "<b><%mmmm%></b> <%yyyy%>"
                .Unit = exontrol.EXG2ANTTLib.UnitEnum.exMonth
            End With
            .get_Level(1).Label = "<%d%>"
        End With
        .Columns.Add("Tasks")
        With .Items
            .AddItem("Task 1")
            .AddItem("Task 2")
        End With
    End With
End Sub

• VB.NET ( /WPF ). Go back to the Window1_Loaded event and add the red code as shown here:

Private Sub Window1_Loaded(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Handles MyBase.Loaded
    With Exg2antt1
        With .Chart
            .FirstVisibleDate = #1/1/2008#
            .LevelCount = 2
            With .get_Level(0)
                .Label = "<b><%mmmm%></b> <%yyyy%>"
                .Unit = wpf.exontrol.EXG2ANTTLib.UnitEnum.exMonth
            End With
            .get_Level(1).Label = "<%d%>"
        End With
        .Columns.Add("Tasks")
        With .Items
            .AddItem("Task 1")
            .AddItem("Task 2")
        End With
    End With
End Sub

• C# ( /COM ). Go back to the Form1_Load event and add the red code as follows:

private void Form1_Load(object sender, EventArgs e)
{
    axG2antt1.Chart.FirstVisibleDate = new DateTime(2008,1,1);
    axG2antt1.Chart.LevelCount = 2;
    EXG2ANTTLib.Level l = axG2antt1.Chart.get_Level(0);
        l.Label = "<b><%mmmm%></b> <%yyyy%>";
        l.Unit = EXG2ANTTLib.UnitEnum.exMonth;
    axG2antt1.Chart.get_Level(1).Label = "<%d%>";
    axG2antt1.Columns.Add("Tasks");
    axG2antt1.Items.AddItem("Task 1");
    axG2antt1.Items.AddItem("Task 2");
}

• C# ( /NET ). Go back to the Form1_Load event and add the red code as shown bellow:

private void Form1_Load(object sender, EventArgs e)
{
    exg2antt1.Chart.FirstVisibleDate = new DateTime(2008, 1, 1);
    exg2antt1.Chart.LevelCount = 2;
    exontrol.EXG2ANTTLib.Level l = exg2antt1.Chart.get_Level(0);
    l.Label = "<b><%mmmm%></b> <%yyyy%>";
    l.Unit = exontrol.EXG2ANTTLib.UnitEnum.exMonth;
    exg2antt1.Chart.get_Level(1).Label = "<%d%>";
    exg2antt1.Columns.Add("Tasks");
    exg2antt1.Items.AddItem("Task 1");
    exg2antt1.Items.AddItem("Task 2");
}

• C# ( /WPF ). Go back to the Window1_Loaded event and add the red code as shown bellow:

private void Window_Loaded(object sender, RoutedEventArgs e)
{
    exg2antt1.Chart.FirstVisibleDate = new DateTime(2008, 1, 1);
    exg2antt1.Chart.LevelCount = 2;
    wpf.exontrol.EXG2ANTTLib.Level l = exg2antt1.Chart.get_Level(0);
    l.Label = "<b><%mmmm%></b> <%yyyy%>";
    l.Unit = wpf.exontrol.EXG2ANTTLib.UnitEnum.exMonth;
    exg2antt1.Chart.get_Level(1).Label = "<%d%>";
    exg2antt1.Columns.Add("Tasks");
    exg2antt1.Items.AddItem("Task 1");
    exg2antt1.Items.AddItem("Task 2");
}

• C++ (6.0). Go back to the OnInitDialog method and appends the red code as shown bellow:

CChart chart = m_g2antt.GetChart();
	chart.SetFirstVisibleDate( COleVariant( COleDateTime(2008,1,1,0,0,0 ).operator DATE()));
	chart.SetLevelCount( 2 );
	CLevel level0 = chart.GetLevel(0);
	level0.SetLabel( COleVariant( "<b><%mmmm%></b> <%yyyy%>" ) );
	level0.SetUnit( 16 /*exMonth*/ );
	chart.GetLevel(1).SetLabel( COleVariant( "<%d%>" ) );
m_g2antt.GetColumns().Add("Tasks");
m_g2antt.GetItems().AddItem( COleVariant( "Task 1" ) );
m_g2antt.GetItems().AddItem( COleVariant( "Task 2" ) );

• C++ (2005,2008). Go back to the OnInitDialog method and appends the red code as shown bellow:

EXG2ANTTLib::IChartPtr spChart = m_g2antt.get_Chart();
spChart->FirstVisibleDate = COleDateTime( 2008, 1, 1, 0, 0, 0 ).operator DATE();
spChart->LevelCount = 2;
EXG2ANTTLib::ILevelPtr spLevel0 = spChart->Level[0];
	spLevel0->Label = _T("<b><%mmmm%></b> <%yyyy%>");
	spLevel0->Unit = EXG2ANTTLib::exMonth;
spChart->Level[1]->Label = _T("<%d%>");
EXG2ANTTLib::IColumnsPtr spColumns = m_g2antt.get_Columns();
spColumns->Add(_T("Tasks"));
EXG2ANTTLib::IItemsPtr spItems = m_g2antt.get_Items();
spItems->AddItem( _T("Task 1") );
spItems->AddItem( _T("Task 2") );

• C++ Builder (2009). Go back to the FormCreate method and appends the red code as shown bellow:

  IChartPtr spChart = G2antt1->Chart;
  spChart->set_FirstVisibleDate( TVariant(TDateTime(2008,1,1).operator double()) );
  spChart->LevelCount = 2;
  ILevelPtr spLevel0 = spChart->get_Level(0);
  	spLevel0->set_Label( TVariant(_T("<b><%mmmm%></b> <%yyyy%>")) );
  	spLevel0->set_Unit( UnitEnum::exMonth );
  spChart->get_Level(1)->set_Label( TVariant(_T("<%d%>") ) );
  IColumnsPtr spColumns = G2antt1->Columns;
  spColumns->Add( L"Tasks", TNoParam() );
  IItemsPtr spItems = G2antt1->Items;
  spItems->AddItem( TVariant("Task 1") );
  spItems->AddItem( TVariant("Task 2") );

• X++ (Dynamics Ax 2009). Go to form's init function and add the red code as shown bellow:

  public void init()
  {
      COM com_Chart,com_Items,com_Level,com_Level1;
      anytype var_Chart,var_Items,var_Level,var_Level1;
      ;
  
      super();
  
      var_Chart = exg2antt1.Chart(); com_Chart = var_Chart;
          com_Chart.FirstVisibleDate(COMVariant::createFromDate(str2Date("1/1/2008",213)));
          com_Chart.LevelCount(2);
          var_Level = com_Chart.Level(0); com_Level = var_Level;
              com_Level.Label("<b><%mmmm%></b> <%yyyy%>");
              com_Level.Unit(16/*exMonth*/);
          var_Level1 = COM::createFromObject(com_Chart.Level(1)); com_Level1 = var_Level1;
          com_Level1.Label("<%d%>");
      exg2antt1.Columns().Add("Tasks");
      var_Items = exg2antt1.Items(); com_Items = var_Items;
          com_Items.AddItem("Task 1");
          com_Items.AddItem("Task 2");
  }

• Delphi (2009). Go back to the FormCreate event and add the red section:

with G2antt1 do
begin
 with Chart do
 begin
  FirstVisibleDate := '1/1/2008';
  LevelCount := 2;
  with Level[0] do
  begin
    Label_ := '<b><%mmmm%></b> <%yyyy%>';
    Unit_ := exMonth;
  end;
  Level[1].Label_ := '<%d%>';
 end;
 Columns.Add('Tasks');
 with Items do
 begin
   AddItem('Task 1');
   AddItem('Task 2');
 end;
end;

• Clarion. Go back to your embed and add the red section:

  ?Gantt{mc:Chart&'.FirstVisibleDate'} = FORMAT(TODAY()-3, @D17)
  ?Gantt{mc:Chart&'.LevelCount'} = 2
  ?Gantt{mc:Chart&'.Level(0).Label'} = '<b><%mmmm%></b> <%yyyy%>'
  ?Gantt{mc:Chart&'.Level(0).Unit'} = 64
  ?Gantt{mc:Chart&'.Level(1).Label'} = '<%d%>'
  lc:Columns = ?Gantt{'Colums'}
  lc:Items   = ?Gantt{'Items'}
  ?Gantt{lc:Columns&'.Add("Task")'}
  ?Gantt{lc:Items&'.AddItem("Task 1")'}
  ?Gantt{lc:Items&'.AddItem("Task 2")'}

• PowerBuilder (Classic). Go back to open event of the DataWindow that hosts the control and add the red section:

  OleObject oG2antt,var_Chart,var_Items,var_Level
  
  oG2antt = ole_1.Object
  var_Chart = oG2antt.Chart
  	var_Chart.FirstVisibleDate = 2008-01-01
  	var_Chart.LevelCount = 2
  	var_Level = var_Chart.Level(0)
  		var_Level.Label = "<b><%mmmm%></b> <%yyyy%>"
  		var_Level.Unit = 16
  	var_Chart.Level(1).Label = "<%d%>"
  oG2antt.Columns.Add("Tasks")
  var_Items = oG2antt.Items
  	var_Items.AddItem("Task 1")
  	var_Items.AddItem("Task 2")
  

• dBASE Plus. Go back to open event of the form that hosts the control and add the red section:

  function form_onOpen
  
     local oG2antt,var_Chart,var_Items,var_Level,var_Level1
  
     oG2antt = form.Activex1.nativeObject
     var_Chart = oG2antt.Chart
        var_Chart.FirstVisibleDate = "01/01/2008"
        var_Chart.LevelCount = 2
        var_Level = var_Chart.Level(0)
           var_Level.Label = "<b><%mmmm%></b> <%yyyy%>"
           var_Level.Unit = 16
        // var_Chart.Level(1).Label = "<%d%>"
        var_Level1 = var_Chart.Level(1)
        with (oG2antt)
           TemplateDef = [Dim var_Level1]
           TemplateDef = var_Level1
           Template = [var_Level1.Label = "<%d%>"]
        endwith
     oG2antt.Columns.Add("Tasks")
     var_Items = oG2antt.Items
        var_Items.AddItem("Task 1")
        var_Items.AddItem("Task 2")
  
  return

  Because dBASE does not support setting or assigning a value to properties with multiple parameters, our controls provide the TemplateDef and Template methods, which can be used to compile and run the x-script code.

• Visual DataFlex. Go back to OnCreate procedure of Object oComG2antt and add the red section::

  Procedure OnCreate
      Forward Send OnCreate
      
      Variant vChart
      Get ComChart to vChart
      Handle hoChart
      Get Create (RefClass(cComChart)) to hoChart
      Set pvComObject of hoChart to vChart
      Set ComFirstVisibleDate of hoChart to "1/1/2008"
      Set ComLevelCount of hoChart to 2
  
          Variant vLevel0
          Get ComLevel of hoChart 0 to vLevel0
          Handle hoLevel0
          Get Create (RefClass(cComLevel)) to hoLevel0
          Set pvComObject of hoLevel0 to vLevel0
          Set ComLabel of hoLevel0 to "<b><%mmmm%></b> <%yyyy%>"
          Set ComUnit of hoLevel0 to OLEexMonth
          Send Destroy to hoLevel0
      
          Variant vLevel1
          Get ComLevel of hoChart 1 to vLevel1
          Handle hoLevel1
          Get Create (RefClass(cComLevel)) to hoLevel1
          Set pvComObject of hoLevel1 to vLevel1
          Set ComLabel of hoLevel1 to "<%d%>"
          Send Destroy to hoLevel1
      
      Send Destroy to hoChart
      
      Variant vColumns
      Get ComColumns to vColumns
      Handle hoColumns
      Get Create (RefClass(cComColumns)) to hoColumns
      Set pvComObject of hoColumns to vColumns
      Get ComAdd of hoColumns "Tasks" to Nothing
      Send Destroy to hoColumns
  
      Variant vItems
      Get ComItems to vItems
      Handle hoItems
      Get Create (RefClass(cComItems)) to hoItems
      Set pvComObject of hoItems to vItems
      Get ComAddItem of hoItems "Task 1" to Nothing
      Get ComAddItem of hoItems "Task 2" to Nothing
      Send Destroy to hoItems
      
  End_Procedure
  
  End_Object

• Xbase++. Go back to Main procedure and add the red section::

  #include "AppEvent.CH"
  #PRAGMA LIBRARY( "ASCOM10.LIB" ) // Include the Automation Support Library
  
  PROCEDURE Main
  
    LOCAL oForm, oControl
    LOCAL nEvent
    LOCAL mp1 := NIL, mp2 := NIL, oXbp := NIL
    LOCAL oLevel
  
    oForm := XbpDialog():new( AppDesktop() )
    oForm:drawingArea:clipChildren := .T.
    oForm:create( ,,{100,100}, {640,480},, .F. )
    oForm:close  := {|| PostAppEvent( xbeP_Quit )}
  
      oControl := XbpActiveXControl():new( oForm:drawingArea )
      oControl:CLSID  := "Exontrol.G2antt"
      oControl:create(,, {10,60},{610,370} )
  
      oControl:Chart:FirstVisibleDate = "1/1/2008"
      oControl:Chart:LevelCount := 2
      oLevel = oControl:Chart:Level(0)
      oLevel:Label := "<b><%mmmm%></b> <%yyyy%>"
      oLevel:Unit := 16 /*exMonth*/
      oControl:Chart:Level(1):Label = "<%d%>"
  
      oControl:Columns:Add("Tasks")
      oControl:Items:AddItem("Task 1")
      oControl:Items:AddItem("Task 2")
  
    oForm:Show()
  
    nEvent := 0
    DO WHILE nEvent != xbeP_Quit
      nEvent := AppEvent( @mp1, @mp2, @oXbp )
      oXbp:handleEvent( nEvent, mp1, mp2 )
    ENDDO
  
  RETURN

• Access. Go to the Form_Load event and replace the green section

Private Sub Form_Load()
    Dim g As EXG2ANTTLib.G2antt
    Set g = G2antt1.Object
    With g
        With .Chart
            .FirstVisibleDate = #1/1/2008#
            .LevelCount = 2
            With .Level(0)
                .Label = "<b><%mmmm%></b> <%yyyy%>"
                .Unit = exMonth
            End With
            .Level(1).Label = "<%d%>"
        End With
        .Columns.Add ("Tasks")
        Dim h1, h2 As Long
        With .Items
            h1 = .AddItem("Task 1")
            .AddBar h1, "Task", #1/2/2008#, #1/5/2008#
            h2 = .AddItem("Task 2")
            .AddBar h2, "Task", #1/4/2008#, #1/8/2008#
            .AddLink "LKey", h1, "", h2, ""
        End With
    End With
End Sub

• Excel. Go to the UserForm_Initialize event and replace the green section

Private Sub Form_Load()
  With G2antt1
      With .Chart
          .FirstVisibleDate = #1/1/2008#
          .LevelCount = 2
          With .Level(0)
              .Label = "<b><%mmmm%></b> <%yyyy%>"
              .Unit = exMonth
          End With
          .Level(1).Label = "<%d%>"
      End With
      .Columns.Add ("Tasks")
        Dim h1, h2 As Long
      With .Items
          h1 = .AddItem("Task 1")
          .AddBar h1, "Task", #1/2/2008#, #1/5/2008#
          h2 = .AddItem("Task 2")
          .AddBar h2, "Task", #1/4/2008#, #1/8/2008#
          .AddLink "LKey", h1, "", h2, ""
      End With
    End With
End Sub

• VB6. Go to the Form_Load event and replace the green section

Private Sub Form_Load()
    With G2antt1
        With .Chart
            .FirstVisibleDate = #1/1/2008#
            .LevelCount = 2
            With .Level(0)
                .Label = "<b><%mmmm%></b> <%yyyy%>"
                .Unit = exMonth
            End With
            .Level(1).Label = "<%d%>"
        End With
        .Columns.Add ("Tasks")
        Dim h1, h2 As Long
        With .Items
            h1 = .AddItem("Task 1")
            .AddBar h1, "Task", #1/2/2008#, #1/5/2008#
            h2 = .AddItem("Task 2")
            .AddBar h2, "Task", #1/4/2008#, #1/8/2008#
            .AddLink "LKey", h1, "", h2, ""
        End With
    End With
End Sub

• VFP. Go to the the Form1_Init method and replace the green code as follow:

with thisform.G2antt1
	With .Chart
		.FirstVisibleDate = {^2008-1-1}
		.LevelCount = 2
		With .Level(0)
			.Label = "<b><%mmmm%></b> <%yyyy%>"
			.Unit = 16
		EndWith
		.Level(1).Label = "<%d%>"
	EndWith
	.Columns.Add("Default")
	local h1,h2
	with .Items
		h1 = .AddItem("Task 1")
		.AddBar(h1,"Task",{^2008-1-2},{^2008-1-5})
		h2 = .AddItem("Task 2")
		.AddBar(h2,"Task",{^2008-1-4},{^2008-1-8})
		.AddLink("LKey",h1,"",h2,"")
	endwith
endwith

• VB.NET ( /COM ). Go back to the Form1_Load event and replace the green code as shown bellow:

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    With AxG2antt1
        With .Chart
            .FirstVisibleDate = #1/1/2008#
            .LevelCount = 2
            With .Level(0)
                .Label = "<b><%mmmm%></b> <%yyyy%>"
                .Unit = EXG2ANTTLib.UnitEnum.exMonth
            End With
            .Level(1).Label = "<%d%>"
        End With
        .Columns.Add("Tasks")
        With .Items
            Dim h1 As Integer = .AddItem("Task 1")
            .AddBar(h1, "Task", #1/2/2008#, #1/5/2008#)
            Dim h2 As Integer = .AddItem("Task 2")
            .AddBar(h2, "Task", #1/4/2008#, #1/8/2008#)
            .AddLink("LKey", h1, "", h2, "")
        End With
    End With
End Sub

• VB.NET ( /NET ). Go back to the Form1_Load event and add the green code as shown here:

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    With Exg2antt1
        With .Chart
            .FirstVisibleDate = #1/1/2008#
            .LevelCount = 2
            With .get_Level(0)
                .Label = "<b><%mmmm%></b> <%yyyy%>"
                .Unit = exontrol.EXG2ANTTLib.UnitEnum.exMonth
            End With
            .get_Level(1).Label = "<%d%>"
        End With
        .Columns.Add("Tasks")
        With .Items
            Dim h1 As Integer = .AddItem("Task 1")
            .AddBar(h1, "Task", #1/2/2008#, #1/5/2008#)
            Dim h2 As Integer = .AddItem("Task 2")
            .AddBar(h2, "Task", #1/4/2008#, #1/8/2008#)
            .AddLink("LKey", h1, "", h2, "")
        End With
    End With
End Sub

• VB.NET ( /WPF ). Go back to the Window1_Loaded event and add the green code as shown here:

Private Sub Window1_Loaded(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Handles MyBase.Loaded
    With Exg2antt1
        With .Chart
            .FirstVisibleDate = #1/1/2008#
            .LevelCount = 2
            With .get_Level(0)
                .Label = "<b><%mmmm%></b> <%yyyy%>"
                .Unit = wpf.exontrol.EXG2ANTTLib.UnitEnum.exMonth
            End With
            .get_Level(1).Label = "<%d%>"
        End With
        .Columns.Add("Tasks")
        With .Items
            Dim h1 As Integer = .AddItem("Task 1")
            .AddBar(h1, "Task", #1/2/2008#, #1/5/2008#)
            Dim h2 As Integer = .AddItem("Task 2")
            .AddBar(h2, "Task", #1/4/2008#, #1/8/2008#)
            .AddLink("LKey", h1, "", h2, "")
        End With
    End With
End Sub

• C# ( /COM ). Go back to the Form1_Load event and replace the green code as follows:

private void Form1_Load(object sender, EventArgs e)
{
    axG2antt1.Chart.FirstVisibleDate = new DateTime(2008,1,1);
    axG2antt1.Chart.LevelCount = 2;
    EXG2ANTTLib.Level l = axG2antt1.Chart.get_Level(0);
        l.Label = "<b><%mmmm%></b> <%yyyy%>";
        l.Unit = EXG2ANTTLib.UnitEnum.exMonth;
    axG2antt1.Chart.get_Level(1).Label = "<%d%>";
    axG2antt1.Columns.Add("Tasks");
    int h1 = axG2antt1.Items.AddItem("Task 1");
    axG2antt1.Items.AddBar(h1, "Task", new DateTime(2008,1,2), new DateTime(2008,1,5),null,null);
    int h2 = axG2antt1.Items.AddItem("Task 2");
    axG2antt1.Items.AddBar(h2, "Task", new DateTime(2008,1,4), new DateTime(2008,1,8),null,null);
    axG2antt1.Items.AddLink("LKey", h1, null, h2, null);
}

• C# ( /NET ). Go back to the Form1_Load event and replace the green code as shown bellow:

private void Form1_Load(object sender, EventArgs e)
{
    exg2antt1.Chart.FirstVisibleDate = new DateTime(2008, 1, 1);
    exg2antt1.Chart.LevelCount = 2;
    exontrol.EXG2ANTTLib.Level l = exg2antt1.Chart.get_Level(0);
    l.Label = "<b><%mmmm%></b> <%yyyy%>";
    l.Unit = exontrol.EXG2ANTTLib.UnitEnum.exMonth;
    exg2antt1.Chart.get_Level(1).Label = "<%d%>";
    exg2antt1.Columns.Add("Tasks");
    int h1 = exg2antt1.Items.AddItem("Task 1");
    exg2antt1.Items.AddBar(h1, "Task", new DateTime(2008, 1, 2), new DateTime(2008,1,5));
    int h2 = exg2antt1.Items.AddItem("Task 2");
    exg2antt1.Items.AddBar(h2, "Task", new DateTime(2008, 1, 4), new DateTime(2008,1,8));
    exg2antt1.Items.AddLink("LKey", h1, null, h2, null);
}

• C# ( /WPF ). Go back to the Window1_Loaded event and replace the green code as shown bellow:

private void Window_Loaded(object sender, RoutedEventArgs e)
{
    exg2antt1.Chart.FirstVisibleDate = new DateTime(2008, 1, 1);
    exg2antt1.Chart.LevelCount = 2;
    wpf.exontrol.EXG2ANTTLib.Level l = exg2antt1.Chart.get_Level(0);
    l.Label = "<b><%mmmm%></b> <%yyyy%>";
    l.Unit = wpf.exontrol.EXG2ANTTLib.UnitEnum.exMonth;
    exg2antt1.Chart.get_Level(1).Label = "<%d%>";
    exg2antt1.Columns.Add("Tasks");
    int h1 = exg2antt1.Items.AddItem("Task 1");
    exg2antt1.Items.AddBar(h1, "Task", new DateTime(2008, 1, 2), new DateTime(2008, 1, 5));
    int h2 = exg2antt1.Items.AddItem("Task 2");
    exg2antt1.Items.AddBar(h2, "Task", new DateTime(2008, 1, 4), new DateTime(2008, 1, 8));
    exg2antt1.Items.AddLink("LKey", h1, null, h2, null);
}

• C++ (6.0). Go back to the OnInitDialog method and replace the green code as follows:

CChart chart = m_g2antt.GetChart();
	chart.SetFirstVisibleDate( COleVariant( COleDateTime( 2008,1,1,0,0,0 ).operator DATE()));
	chart.SetLevelCount( 2 );
	CLevel level0 = chart.GetLevel(0);
	level0.SetLabel( COleVariant( "<b><%mmmm%></b> <%yyyy%>" ) );
	level0.SetUnit( 16 /*exMonth*/ );
	chart.GetLevel(1).SetLabel( COleVariant( "<%d%>" ) );
m_g2antt.GetColumns().Add("Tasks");
CItems items = m_g2antt.GetItems();
int h1 = items.AddItem( COleVariant( "Task 1" ) );
items.AddBar( h1, COleVariant( "Task" ), 
		COleVariant( COleDateTime( 2008,1,2,0,0,0).operator DATE()), 
		COleVariant( COleDateTime( 2008,1,5,0,0,0).operator DATE()), 
		COleVariant(""), COleVariant() );
int h2 = items.AddItem( COleVariant( "Task 2" ) );
items.AddBar( h2, COleVariant( "Task" ), 
		COleVariant( COleDateTime( 2008,1,4,0,0,0).operator DATE()), 
		COleVariant( COleDateTime( 2008,1,8,0,0,0).operator DATE()), 
		COleVariant(""), COleVariant() );
items.AddLink( COleVariant( "LKey" ), h1, COleVariant(""), h2, COleVariant("") );

• C++ (2005,2008). Go back to the OnInitDialog method and replace the green code as follows:

EXG2ANTTLib::IChartPtr spChart = m_g2antt.get_Chart();
spChart->FirstVisibleDate = COleDateTime( 2008, 1, 1, 0, 0, 0 ).operator DATE();
spChart->LevelCount = 2;
EXG2ANTTLib::ILevelPtr spLevel0 = spChart->Level[0];
	spLevel0->Label = _T("<b><%mmmm%></b> <%yyyy%>");
	spLevel0->Unit = EXG2ANTTLib::exMonth;
spChart->Level[1]->Label = _T("<%d%>");
EXG2ANTTLib::IColumnsPtr spColumns = m_g2antt.get_Columns();
spColumns->Add(_T("Tasks"));
EXG2ANTTLib::IItemsPtr spItems = m_g2antt.get_Items();
int h1 = spItems->AddItem( _T("Task 1") );
spItems->AddBar( h1, _T("Task"), 
		COleVariant( COleDateTime( 2008, 1, 2, 0, 0, 0 ).operator DATE() ), 
		COleVariant( COleDateTime( 2008, 1, 5, 0, 0, 0 ).operator DATE() ),
		"" );
int h2 = spItems->AddItem( _T("Task 2") );
spItems->AddBar( h2, _T("Task"), 
		COleVariant( COleDateTime( 2008, 1, 4, 0, 0, 0 ).operator DATE() ), 
		COleVariant( COleDateTime( 2008, 1, 8, 0, 0, 0 ).operator DATE() ),
		"" );
spItems->AddLink( "LKey", h1, "", h2, "" );

• C++ Builder (2009). Go back to the FormCreate method and replace the green section as follow:

void __fastcall TForm1::FormCreate(TObject *Sender)
{
IChartPtr spChart = G2antt1->Chart;
spChart->set_FirstVisibleDate( TVariant(TDateTime(2008,1,1).operator double()) );
spChart->LevelCount = 2;
ILevelPtr spLevel0 = spChart->get_Level(0);
	spLevel0->set_Label( TVariant("<b><%mmmm%></b> <%yyyy%>") );
	spLevel0->set_Unit( UnitEnum::exMonth );
spChart->get_Level(1)->set_Label( TVariant("<%d%>") );
IColumnsPtr spColumns = G2antt1->Columns;
spColumns->Add( L"Tasks", TNoParam() );
IItemsPtr spItems = G2antt1->Items;
long h1 = spItems->AddItem( TVariant("Task 1") );
spItems->AddBar( h1, TVariant("Task"),
		TVariant(TDateTime(2008,1,2).operator double() ),
		TVariant(TDateTime(2008,1,5).operator double() ),
		TVariant("") );
long h2 = spItems->AddItem( TVariant("Task 2") );
spItems->AddBar( h2, TVariant("Task"),
		TVariant(TDateTime(2008,1,4).operator double() ),
		TVariant(TDateTime(2008,1,8).operator double() ),
		TVariant("") );
spItems->AddLink( TVariant("LKey"), h1, TVariant(""), h2, TVariant("") );
}

• X++ (Dynamics Ax 2009). Go to form's init function and replace the green section as follows:

public void init()
{
	COM com_Chart,com_Items,com_Level,com_Level1;
	anytype var_Chart,var_Items,var_Level,var_Level1;
	int h1,h2;
	;

	super();

	var_Chart = exg2antt1.Chart(); com_Chart = var_Chart;
		com_Chart.FirstVisibleDate(COMVariant::createFromDate(str2Date("1/1/2008",213)));
		com_Chart.LevelCount(2);
		var_Level = com_Chart.Level(0); com_Level = var_Level;
			com_Level.Label("<b><%mmmm%></b> <%yyyy%>");
			com_Level.Unit(16/*exMonth*/);
		var_Level1 = COM::createFromObject(com_Chart.Level(1)); com_Level1 = var_Level1;
		com_Level1.Label("<%d%>");
	exg2antt1.Columns().Add("Tasks");
	var_Items = exg2antt1.Items(); com_Items = var_Items;
		h1 = com_Items.AddItem("Task 1");
		com_Items.AddBar(h1,"Task",COMVariant::createFromDate(str2Date("1/2/2008",213)),COMVariant::createFromDate(str2Date("1/5/2008",213)));
		h2 = com_Items.AddItem("Task 2");
		com_Items.AddBar(h2,"Task",COMVariant::createFromDate(str2Date("1/4/2008",213)),COMVariant::createFromDate(str2Date("1/8/2008",213)));
		com_Items.AddLink("LKey",h1,"",h2,"");
}

• Delphi (2009). Go back to the FormCreate event and replace the green code as follows:

procedure TForm1.FormCreate(Sender: TObject);
var h1: Integer;
var h2: Integer;
begin
with G2antt1 do
begin
 with Chart do
 begin
  FirstVisibleDate := '1/1/2008';
  LevelCount := 2;
  with Level[0] do
  begin
    Label_ := '<b><%mmmm%></b> <%yyyy%>';
    Unit_ := exMonth;
  end;
  Level[1].Label_ := '<%d%>';
 end;
 Columns.Add('Tasks');
 with Items do
 begin
  h1 := AddItem('Task 1');
  .AddBar( h1, 'Task', '1/2/2008', '1/5/2008', '', '');
  h2 := AddItem('Task 2');
   AddBar( h2, 'Task', '1/4/2008', '1/8/2008', '', '');
   AddLink('LKey', h1, '', h2, '' );
 end;
end;
end;

• Clarion. Go back to your embed and replace the green section:

?Gantt{mc:Chart&'.FirstVisibleDate'} = FORMAT(TODAY()-3, @D17)
?Gantt{mc:Chart&'.LevelCount'} = 2
?Gantt{mc:Chart&'.Level(0).Label'} = '<b><%mmmm%></b> <%yyyy%>'
?Gantt{mc:Chart&'.Level(0).Unit'} = 64
?Gantt{mc:Chart&'.Level(1).Label'} = '<%d%>'
lc:Columns = ?Gantt{'Colums'}
lc:Items   = ?Gantt{'Items'}
?Gantt{lc:Columns&'.Add("Task")'}
h1 = ?Gantt{lc:Items&'.AddItem("Task 1")'}
?Gantt{mc:Items&'.AddBar('&h1&', "Task", '1/2/2008, '1/5/2008,"","")'}
h2 = ?Gantt{lc:Items&'.AddItem("Task 2")'}
?Gantt{mc:Items&'.AddBar('&h2&', "Task", '1/4/2008, '1/8/2008,"","")'} 
?Gantt{mc:Items&'.AddLink(LKey, '&h1&', '&h2&',"")'}  

• PowerBuilder (Classic). Go back to your open event and replace the green section:

OleObject oG2antt,var_Chart,var_Items,var_Level
any h1,h2

oG2antt = ole_1.Object
var_Chart = oG2antt.Chart
	var_Chart.FirstVisibleDate = 2008-01-01
	var_Chart.LevelCount = 2
	var_Level = var_Chart.Level(0)
		var_Level.Label = "<b><%mmmm%></b> <%yyyy%>"
		var_Level.Unit = 16
	var_Chart.Level(1).Label = "<%d%>"
oG2antt.Columns.Add("Tasks")
var_Items = oG2antt.Items
	h1 = var_Items.AddItem("Task 1")
	var_Items.AddBar(h1,"Task",2008-01-02,2008-01-05)
	h2 = var_Items.AddItem("Task 2")
	var_Items.AddBar(h2,"Task",2008-01-04,2008-01-08)
	var_Items.AddLink("LKey",h1,"",h2,"")
  

• dBASE Plus. Go back to your open event and replace the green section:

function form_onOpen

   local h1,h2,oG2antt,var_Chart,var_Items,var_Level,var_Level1

   oG2antt = form.Activex1.nativeObject
   var_Chart = oG2antt.Chart
      var_Chart.FirstVisibleDate = "01/01/2008"
      var_Chart.LevelCount = 2
      var_Level = var_Chart.Level(0)
         var_Level.Label = "<b><%mmmm%></b> <%yyyy%>"
         var_Level.Unit = 16
      // var_Chart.Level(1).Label = "<%d%>"
      var_Level1 = var_Chart.Level(1)
      with (oG2antt)
         TemplateDef = [Dim var_Level1]
         TemplateDef = var_Level1
         Template = [var_Level1.Label = "<%d%>"]
      endwith
   oG2antt.Columns.Add("Tasks")
   var_Items = oG2antt.Items
      h1 = var_Items.AddItem("Task 1")
      var_Items.AddBar(h1,"Task","01/02/2008","01/05/2008")
      h2 = var_Items.AddItem("Task 2")
      var_Items.AddBar(h2,"Task","01/04/2008","01/08/2008")
      var_Items.AddLink("LKey",h1,"",h2,"")

return
  

• Visual DataFlex. Go back to OnCreate procedure of Object oComG2antt and replace the green section:

Procedure OnCreate
    Forward Send OnCreate
    
    Variant vChart
    Get ComChart to vChart
    Handle hoChart
    Get Create (RefClass(cComChart)) to hoChart
    Set pvComObject of hoChart to vChart
    Set ComFirstVisibleDate of hoChart to "1/1/2008"
    Set ComLevelCount of hoChart to 2

        Variant vLevel0
        Get ComLevel of hoChart 0 to vLevel0
        Handle hoLevel0
        Get Create (RefClass(cComLevel)) to hoLevel0
        Set pvComObject of hoLevel0 to vLevel0
        Set ComLabel of hoLevel0 to "<b><%mmmm%></b> <%yyyy%>"
        Set ComUnit of hoLevel0 to OLEexMonth
        Send Destroy to hoLevel0
    
        Variant vLevel1
        Get ComLevel of hoChart 1 to vLevel1
        Handle hoLevel1
        Get Create (RefClass(cComLevel)) to hoLevel1
        Set pvComObject of hoLevel1 to vLevel1
        Set ComLabel of hoLevel1 to "<%d%>"
        Send Destroy to hoLevel1
    
    Send Destroy to hoChart
    
    Variant vColumns
    Get ComColumns to vColumns
    Handle hoColumns
    Get Create (RefClass(cComColumns)) to hoColumns
    Set pvComObject of hoColumns to vColumns
    Get ComAdd of hoColumns "Tasks" to Nothing
    Send Destroy to hoColumns

    Variant vItems
    Get ComItems to vItems
    Handle hoItems
    Get Create (RefClass(cComItems)) to hoItems
    Set pvComObject of hoItems to vItems
    HITEM h1
    Get ComAddItem of hoItems "Task 1" to h1
    Send ComAddBar of hoItems h1 "Task" "1/2/2008" "1/5/2008" Nothing Nothing
    HITEM h2
    Get ComAddItem of hoItems "Task 2" to h2
    Send ComAddBar of hoItems h2 "Task" "1/4/2008" "1/8/2008" Nothing Nothing
    Send ComAddLink of hoItems "LKey" h1 "" h2 ""
    Send Destroy to hoItems
    
End_Procedure
  

• Xbase++. Go back to Main procedure replace the green section:

#include "AppEvent.CH"
#PRAGMA LIBRARY( "ASCOM10.LIB" ) // Include the Automation Support Library

PROCEDURE Main

  LOCAL oForm, oControl
  LOCAL nEvent
  LOCAL mp1 := NIL, mp2 := NIL, oXbp := NIL
  LOCAL oLevel
  LOCAL oItems
  LOCAL h1, h2

  oForm := XbpDialog():new( AppDesktop() )
  oForm:drawingArea:clipChildren := .T.
  oForm:create( ,,{100,100}, {640,480},, .F. )
  oForm:close  := {|| PostAppEvent( xbeP_Quit )}

    oControl := XbpActiveXControl():new( oForm:drawingArea )
    oControl:CLSID  := "Exontrol.G2antt"
    oControl:create(,, {10,60},{610,370} )

    oControl:Chart:FirstVisibleDate = "1/1/2008"
    oControl:Chart:LevelCount := 2
    oLevel = oControl:Chart:Level(0)
    oLevel:Label := "<b><%mmmm%></b> <%yyyy%>"
    oLevel:Unit := 16 /*exMonth*/
    oControl:Chart:Level(1):Label = "<%d%>"

    oControl:Columns:Add("Tasks")
    oItems := oControl:Items
    h1 := oItems:AddItem("Task 1")
    oItems:AddBar(h1, "Task", "1/2/2008", "1/5/2008")
    h2 := oItems:AddItem("Task 1")
    oItems:AddBar(h2, "Task", "1/4/2008", "1/8/2008")
    oItems:AddLink("LKey", h1, "", h2, "")

  oForm:Show()

  nEvent := 0
  DO WHILE nEvent != xbeP_Quit
    nEvent := AppEvent( @mp1, @mp2, @oXbp )
    oXbp:handleEvent( nEvent, mp1, mp2 )
  ENDDO

RETURN
  

• Access. Go to the Form_Load event and replace the maroon section

Private Sub Form_Load()
    Dim g As EXG2ANTTLib.G2antt
    Set g = G2antt1.Object
    With g
        With .Chart
            .FirstVisibleDate = #1/1/2008#
            .LevelCount = 2
            With .Level(0)
                .Label = "<b><%mmmm%></b> <%yyyy%>"
                .Unit = exMonth
            End With
            .Level(1).Label = "<%d%>"
            .OverviewVisible = True
            .HistogramVisible = True
            .HistogramView = exHistogramCheckedItems
            .HistogramHeight = 32
            .Bars("Task").HistogramPattern = exPatternDot
        End With
        .Columns.Add("Tasks").Def(exCellHasCheckBox) = True
        Dim h1, h2 As Long
        With .Items
            h1 = .AddItem("Task 1")
            .AddBar h1, "Task", #1/2/2008#, #1/5/2008#
            h2 = .AddItem("Task 2")
            .AddBar h2, "Task", #1/4/2008#, #1/8/2008#
            .AddLink "LKey", h1, "", h2, ""
        End With
    End With
End Sub

• Excel. Go to the UserForm_Initialize event and replace the maroon section

Private Sub UserForm_Initialize()
    With G2antt1
        With .Chart
            .FirstVisibleDate = #1/1/2008#
            .LevelCount = 2
            With .Level(0)
                .Label = "<b><%mmmm%></b> <%yyyy%>"
                .Unit = exMonth
            End With
            .Level(1).Label = "<%d%>"
.OverviewVisible = True
            .HistogramVisible = True
            .HistogramView = exHistogramCheckedItems
            .HistogramHeight = 32
            .Bars("Task").HistogramPattern = exPatternDot
        End With
        .Columns.Add("Tasks").Def(exCellHasCheckBox) = True
        Dim h1, h2 As Long
        With .Items
            h1 = .AddItem("Task 1")
            .AddBar h1, "Task", #1/2/2008#, #1/5/2008#
            h2 = .AddItem("Task 2")
            .AddBar h2, "Task", #1/4/2008#, #1/8/2008#
            .AddLink "LKey", h1, "", h2, ""
        End With
    End With
End Sub

• VB6. Go to the Form_Load event and replace the maroon section

Private Sub Form_Load()
    With G2antt1
        With .Chart
            .FirstVisibleDate = #1/1/2008#
            .LevelCount = 2
            With .Level(0)
                .Label = "<b><%mmmm%></b> <%yyyy%>"
                .Unit = exMonth
            End With
            .Level(1).Label = "<%d%>"
            .OverviewVisible = True
            .HistogramVisible = True
            .HistogramView = exHistogramCheckedItems
            .HistogramHeight = 32
            .Bars("Task").HistogramPattern = exPatternDot
        End With
        .Columns.Add("Tasks").Def(exCellHasCheckBox) = True
        Dim h1, h2 As Long
        With .Items
            h1 = .AddItem("Task 1")
            .AddBar h1, "Task", #1/2/2008#, #1/5/2008#
            h2 = .AddItem("Task 2")
            .AddBar h2, "Task", #1/4/2008#, #1/8/2008#
            .AddLink "LKey", h1, "", h2, ""
        End With
    End With
End Sub

• VFP. Go to the the Form1_Init method and replace the maroon code as follow:

with thisform.G2antt1
	With .Chart
		.FirstVisibleDate = {^2008-1-1}
		.LevelCount = 2
		With .Level(0)
			.Label = "<b><%mmmm%></b> <%yyyy%>"
			.Unit = 16
		EndWith
		.Level(1).Label = "<%d%>"
		.OverviewVisible = .T.
		.HistogramVisible = .T.
		.HistogramView = 4
		.HistogramHeight = 32
		.Bars("Task").HistogramPattern = 2
	EndWith
	.Columns.Add("Default").Def(0) = .T.
	local h1,h2
	with .Items
		h1 = .AddItem("Task 1")
		.AddBar(h1,"Task",{^2008-1-2},{^2008-1-5})
		h2 = .AddItem("Task 2")
		.AddBar(h2,"Task",{^2008-1-4},{^2008-1-8})
		.AddLink("LKey",h1,"",h2,"")
	endwith
endwith

• VB.NET ( /COM ). Go back to the Form1_Load event and replace the maroon code as shown bellow:

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    With AxG2antt1
        With .Chart
            .FirstVisibleDate = #1/1/2008#
            .LevelCount = 2
            With .Level(0)
                .Label = "<b><%mmmm%></b> <%yyyy%>"
                .Unit = EXG2ANTTLib.UnitEnum.exMonth
            End With
            .Level(1).Label = "<%d%>"
            .OverviewVisible = True
            .HistogramVisible = True
            .HistogramView = EXG2ANTTLib.HistogramViewEnum.exHistogramCheckedItems
            .HistogramHeight = 32
            .Bars("Task").HistogramPattern = EXG2ANTTLib.PatternEnum.exPatternDot
        End With
        .Columns.Add("Tasks").Def(EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox) = True
        With .Items
            Dim h1 As Integer = .AddItem("Task 1")
            .AddBar(h1, "Task", #1/2/2008#, #1/5/2008#)
            Dim h2 As Integer = .AddItem("Task 2")
            .AddBar(h2, "Task", #1/4/2008#, #1/8/2008#)
            .AddLink("LKey", h1, "", h2, "")
        End With
    End With
End Sub

• VB.NET ( /NET ). Go back to the Form1_Load event and add the maroon code as shown here:

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    With Exg2antt1
        With .Chart
            .FirstVisibleDate = #1/1/2008#
            .LevelCount = 2
            With .get_Level(0)
                .Label = "<b><%mmmm%></b> <%yyyy%>"
                .Unit = exontrol.EXG2ANTTLib.UnitEnum.exMonth
            End With
            .get_Level(1).Label = "<%d%>"
            .OverviewVisible = True
            .HistogramVisible = True
            .HistogramView = exontrol.EXG2ANTTLib.HistogramViewEnum.exHistogramCheckedItems
            .HistogramHeight = 32
            .Bars("Task").HistogramPattern = exontrol.EXG2ANTTLib.PatternEnum.exPatternDot
        End With
        .Columns.Add("Tasks").set_Def(exontrol.EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox, True)
        With .Items
            Dim h1 As Integer = .AddItem("Task 1")
            .AddBar(h1, "Task", #1/2/2008#, #1/5/2008#)
            Dim h2 As Integer = .AddItem("Task 2")
            .AddBar(h2, "Task", #1/4/2008#, #1/8/2008#)
            .AddLink("LKey", h1, "", h2, "")
        End With
    End With
End Sub

• VB.NET ( /WPF ). Go back to the Window1_Loaded event and add the maroon code as shown here:

Private Sub Window1_Loaded(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Handles MyBase.Loaded
    With Exg2antt1
        With .Chart
            .FirstVisibleDate = #1/1/2008#
            .LevelCount = 2
            With .get_Level(0)
                .Label = "<b><%mmmm%></b> <%yyyy%>"
                .Unit = wpf.exontrol.EXG2ANTTLib.UnitEnum.exMonth
            End With
            .get_Level(1).Label = "<%d%>"
            .OverviewVisible = True
            .HistogramVisible = True
            .HistogramView = wpf.exontrol.EXG2ANTTLib.HistogramViewEnum.exHistogramCheckedItems
            .HistogramHeight = 32
            .Bars("Task").HistogramPattern = wpf.exontrol.EXG2ANTTLib.PatternEnum.exPatternDot
        End With
        .Columns.Add("Tasks").set_Def(wpf.exontrol.EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox, True)
        With .Items
            Dim h1 As Integer = .AddItem("Task 1")
            .AddBar(h1, "Task", #1/2/2008#, #1/5/2008#)
            Dim h2 As Integer = .AddItem("Task 2")
            .AddBar(h2, "Task", #1/4/2008#, #1/8/2008#)
            .AddLink("LKey", h1, "", h2, "")
        End With
    End With
End Sub

• C# ( /COM ). Go back to the Form1_Load event and replace the maroon code as follows:

private void Form1_Load(object sender, EventArgs e)
{
    axG2antt1.Chart.FirstVisibleDate = new DateTime(2008, 1, 1);
    axG2antt1.Chart.LevelCount = 2;
    EXG2ANTTLib.Level l = axG2antt1.Chart.get_Level(0);
    l.Label = "<b><%mmmm%></b> <%yyyy%>";
    l.Unit = EXG2ANTTLib.UnitEnum.exMonth;
    axG2antt1.Chart.get_Level(1).Label = "<%d%>";
    axG2antt1.Chart.OverviewVisible = true;
    axG2antt1.Chart.HistogramVisible = true;
    axG2antt1.Chart.HistogramView = EXG2ANTTLib.HistogramViewEnum.exHistogramCheckedItems;
    axG2antt1.Chart.HistogramHeight = 32;
    axG2antt1.Chart.Bars["Task"].HistogramPattern = EXG2ANTTLib.PatternEnum.exPatternDot;
    (axG2antt1.Columns.Add("Tasks") as EXG2ANTTLib.Column)
        .set_Def(EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox, true);
    int h1 = axG2antt1.Items.AddItem("Task 1");
    axG2antt1.Items.AddBar(h1, "Task", new DateTime(2008, 1, 2), new DateTime(2008, 1, 5), null, null);
    int h2 = axG2antt1.Items.AddItem("Task 2");
    axG2antt1.Items.AddBar(h2, "Task", new DateTime(2008, 1, 4), new DateTime(2008, 1, 8), null, null);
    axG2antt1.Items.AddLink("LKey", h1, null, h2, null);
}

• C# ( /NET ). Go back to the Form1_Load event and replace the maroon code as shown bellow:

private void Form1_Load(object sender, EventArgs e)
{
    exg2antt1.Chart.FirstVisibleDate = new DateTime(2008, 1, 1);
    exg2antt1.Chart.LevelCount = 2;
    exontrol.EXG2ANTTLib.Level l = exg2antt1.Chart.get_Level(0);
    l.Label = "<b><%mmmm%></b> <%yyyy%>";
    l.Unit = exontrol.EXG2ANTTLib.UnitEnum.exMonth;
    exg2antt1.Chart.get_Level(1).Label = "<%d%>";
    exg2antt1.Chart.OverviewVisible = true;
    exg2antt1.Chart.HistogramVisible = true;
    exg2antt1.Chart.HistogramView = exontrol.EXG2ANTTLib.HistogramViewEnum.exHistogramCheckedItems;
    exg2antt1.Chart.HistogramHeight = 32;
    exg2antt1.Chart.Bars["Task"].HistogramPattern = exontrol.EXG2ANTTLib.PatternEnum.exPatternDot;
    exg2antt1.Columns.Add("Tasks").set_Def(exontrol.EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox, true );
    int h1 = exg2antt1.Items.AddItem("Task 1");
    exg2antt1.Items.AddBar(h1, "Task", new DateTime(2008, 1, 2), new DateTime(2008, 1, 5));
    int h2 = exg2antt1.Items.AddItem("Task 2");
    exg2antt1.Items.AddBar(h2, "Task", new DateTime(2008, 1, 4), new DateTime(2008, 1, 8));
    exg2antt1.Items.AddLink("LKey", h1, null, h2, null);
}

• C# ( /WPF ). Go back to the Window1_Loaded event and replace the maroon code as shown bellow:

private void Window_Loaded(object sender, RoutedEventArgs e)
{
    exg2antt1.Chart.FirstVisibleDate = new DateTime(2008, 1, 1);
    exg2antt1.Chart.LevelCount = 2;
    wpf.exontrol.EXG2ANTTLib.Level l = exg2antt1.Chart.get_Level(0);
    l.Label = "<b><%mmmm%></b> <%yyyy%>";
    l.Unit = wpf.exontrol.EXG2ANTTLib.UnitEnum.exMonth;
    exg2antt1.Chart.get_Level(1).Label = "<%d%>";
    exg2antt1.Chart.OverviewVisible = true;
    exg2antt1.Chart.HistogramVisible = true;
    exg2antt1.Chart.HistogramView = wpf.exontrol.EXG2ANTTLib.HistogramViewEnum.exHistogramCheckedItems;
    exg2antt1.Chart.HistogramHeight = 32;
    exg2antt1.Chart.Bars["Task"].HistogramPattern = wpf.exontrol.EXG2ANTTLib.PatternEnum.exPatternDot;
    exg2antt1.Columns.Add("Tasks").set_Def(wpf.exontrol.EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox, true);
    int h1 = exg2antt1.Items.AddItem("Task 1");
    exg2antt1.Items.AddBar(h1, "Task", new DateTime(2008, 1, 2), new DateTime(2008, 1, 5));
    int h2 = exg2antt1.Items.AddItem("Task 2");
    exg2antt1.Items.AddBar(h2, "Task", new DateTime(2008, 1, 4), new DateTime(2008, 1, 8));
    exg2antt1.Items.AddLink("LKey", h1, null, h2, null);
}

• C++ (6.0). Go Back to the OnInitDialog function, and replace the maroon code as follows:

CChart chart = m_g2antt.GetChart();
	chart.SetFirstVisibleDate( COleVariant( COleDateTime(2008,1,1,0,0,0).operator DATE() ) );
	chart.SetLevelCount( 2 );
	CLevel level0 = chart.GetLevel(0);
	level0.SetLabel( COleVariant( "<b><%mmmm%></b> <%yyyy%>" ) );
	level0.SetUnit( 16 /*exMonth*/ );
	chart.GetLevel(1).SetLabel( COleVariant( "<%d%>" ) );
	chart.SetOverviewVisible( TRUE );
	chart.SetHistogramVisible( TRUE );
	chart.SetHistogramView( 4 /*exHistogramCheckedItems*/ );
	chart.SetHistogramHeight( 32 );
	chart.GetBars().GetItem(COleVariant(_T("Task"))).SetHistogramPattern(2/*exPatternDot*/);
CColumn column = V_DISPATCH( &m_g2antt.GetColumns().Add("Tasks") );
column.SetDef( 0, COleVariant( VARIANT_TRUE ) );
CItems items = m_g2antt.GetItems();
int h1 = items.AddItem( COleVariant( "Task 1" ) );
items.AddBar( h1, COleVariant( "Task" ), 
		COleVariant( COleDateTime( 2008, 1, 2, 0, 0, 0 ).operator DATE() ), 
		COleVariant( COleDateTime( 2008, 1, 5, 0, 0, 0 ).operator DATE() ), 
		COleVariant(""), COleVariant() );
int h2 = items.AddItem( COleVariant( "Task 2" ) );
items.AddBar( h2, COleVariant( "Task" ), 
		COleVariant( COleDateTime( 2008, 1, 4, 0, 0, 0 ).operator DATE() ), 
		COleVariant( COleDateTime( 2008, 1, 8, 0, 0, 0 ).operator DATE() ), 
		COleVariant(""), COleVariant() );
items.AddLink( COleVariant( "LKey" ), h1, COleVariant(""), h2, COleVariant("") );

• C++ (2005,2008). Go Back to the OnInitDialog function, and replace the maroon code as follows:

EXG2ANTTLib::IChartPtr spChart = m_g2antt.get_Chart();
spChart->FirstVisibleDate = COleDateTime( 2008, 1, 1, 0, 0, 0 ).operator DATE();
spChart->LevelCount = 2;
EXG2ANTTLib::ILevelPtr spLevel0 = spChart->Level[0];
	spLevel0->Label = _T("<b><%mmmm%></b> <%yyyy%>");
	spLevel0->Unit = EXG2ANTTLib::exMonth;
spChart->Level[1]->Label = _T("<%d%>");
spChart->OverviewVisible = VARIANT_TRUE;
spChart->HistogramVisible = VARIANT_TRUE;
spChart->HistogramView = EXG2ANTTLib::exHistogramCheckedItems;
spChart->HistogramHeight = 32;
spChart->Bars->GetItem("Task")->HistogramPattern = EXG2ANTTLib::exPatternDot;
EXG2ANTTLib::IColumnsPtr spColumns = m_g2antt.get_Columns();
EXG2ANTTLib::IColumnPtr spColumn = V_DISPATCH( &spColumns->Add(_T("Tasks")) );
spColumn->put_Def( EXG2ANTTLib::exCellHasCheckBox, CComVariant( VARIANT_TRUE ) );
EXG2ANTTLib::IItemsPtr spItems = m_g2antt.get_Items();
int h1 = spItems->AddItem( _T("Task 1") );
spItems->AddBar( h1, _T("Task"), 
		COleVariant( COleDateTime( 2008, 1, 2, 0, 0, 0 ).operator DATE() ), 
		COleVariant( COleDateTime( 2008, 1, 5, 0, 0, 0 ).operator DATE() ),
		"" );
int h2 = spItems->AddItem( _T("Task 2") );
spItems->AddBar( h2, _T("Task"), 
		COleVariant( COleDateTime( 2008, 1, 4, 0, 0, 0 ).operator DATE() ), 
		COleVariant( COleDateTime( 2008, 1, 8, 0, 0, 0 ).operator DATE() ),
		"" );
spItems->AddLink( "LKey", h1, "", h2, "" );

• C++ Builder (2009). Go Back to the FormCreate function, and replace the maroon code as follows:

void __fastcall TForm1::FormCreate(TObject *Sender)
{
	IChartPtr spChart = G2antt1->Chart;
	spChart->set_FirstVisibleDate( TVariant(TDateTime(2008,1,1).operator double()) );
	spChart->LevelCount = 2;
	ILevelPtr spLevel0 = spChart->get_Level(0);
		spLevel0->set_Label( TVariant("<b><%mmmm%></b> <%yyyy%>") );
		spLevel0->set_Unit( UnitEnum::exMonth );
	spChart->get_Level(1)->set_Label( TVariant("<%d%>") );
	spChart->set_OverviewVisible( true );
	spChart->set_HistogramVisible( true );
	spChart->set_HistogramView( HistogramViewEnum::exHistogramCheckedItems );
	spChart->set_HistogramHeight(32);
	spChart->Bars->get_Item(TVariant("Task"))->set_HistogramPattern(PatternEnum::exPatternDot);
	IColumnsPtr spColumns = G2antt1->Columns;
	TVariant vtCol;
	spColumns->Add( L"Tasks", &vtCol );
	IColumnPtr spCol = vtCol;
	spCol->set_Def( DefColumnEnum::exCellHasCheckBox, TVariant(true) );
	IItemsPtr spItems = G2antt1->Items;
	long h1 = spItems->AddItem( TVariant("Task 1") );
	spItems->AddBar( h1, TVariant("Task"),
			TVariant(TDateTime(2008,1,2).operator double() ),
			TVariant(TDateTime(2008,1,5).operator double() ),
			TVariant("") );
	long h2 = spItems->AddItem( TVariant("Task 2") );
	spItems->AddBar( h2, TVariant("Task"),
			TVariant(TDateTime(2008,1,4).operator double() ),
			TVariant(TDateTime(2008,1,8).operator double() ),
			TVariant("") );
	spItems->AddLink( TVariant("LKey"), h1, TVariant(""), h2, TVariant("") );
}

• X++ (Dynamics Ax 2009). Go to form's init function and replace the maroon snippet as follows:

public void init()
{
	COM com_Bar,com_Chart,com_Items,com_Level,com_Level1;
	anytype var_Bar,var_Chart,var_Items,var_Level,var_Level1;
	int h1,h2;
	;

	super();

	var_Chart = exg2antt1.Chart(); com_Chart = var_Chart;
		com_Chart.FirstVisibleDate(COMVariant::createFromDate(str2Date("1/1/2008",213)));
		com_Chart.LevelCount(2);
		var_Level = com_Chart.Level(0); com_Level = var_Level;
			com_Level.Label("<b><%mmmm%></b> <%yyyy%>");
			com_Level.Unit(16/*exMonth*/);
		var_Level1 = COM::createFromObject(com_Chart.Level(1)); com_Level1 = var_Level1;
		com_Level1.Label("<%d%>");
		com_Chart.OverviewVisible(true);
		com_Chart.HistogramVisible(true);
		com_Chart.HistogramView(4/*exHistogramCheckedItems*/);
		com_Chart.HistogramHeight(32);
		var_Bar = COM::createFromObject(com_Chart.Bars()).Item("Task"); com_Bar = var_Bar;
		com_Bar.HistogramPattern(2/*exPatternDot*/);
	COM::createFromVariant(exg2antt1.Columns().Add("Tasks")).Def(0/*exCellHasCheckBox*/,COMVariant::createFromBoolean(true));
	var_Items = exg2antt1.Items(); com_Items = var_Items;
		h1 = com_Items.AddItem("Task 1");
		com_Items.AddBar(h1,"Task",COMVariant::createFromDate(str2Date("1/2/2008",213)),COMVariant::createFromDate(str2Date("1/5/2008",213)));
		h2 = com_Items.AddItem("Task 2");
		com_Items.AddBar(h2,"Task",COMVariant::createFromDate(str2Date("1/4/2008",213)),COMVariant::createFromDate(str2Date("1/8/2008",213)));
		com_Items.AddLink("LKey",h1,"",h2,"");
}

• Delphi (2009). Go Back to the FormCreate function, and replace the maroon code as follows:

procedure TForm1.FormCreate(Sender: TObject);
var h1: Integer;
var h2: Integer;
begin
with G2antt1 do
begin
 with Chart do
 begin
  FirstVisibleDate := '1/1/2008';
  LevelCount := 2;
  with Level[0] do
  begin
    Label_ := '<b><%mmmm%></b> <%yyyy%>';
    Unit_ := exMonth;
  end;
  Level[1].Label_ := '<%d%>';
  OverviewVisible := True;
  HistogramVisible := True;
  HistogramHeight := 32;
  HistogramView := exHistogramCheckedItems;
  Bars.Item['Task'].HistogramPattern := exPatternDot;
 end;
 Columns.Add('Tasks').Def[exCellHasCheckBox] := True;
 with Items do
 begin
  h1 := AddItem('Task 1');
  .AddBar( h1, 'Task', '1/2/2008', '1/5/2008', '', '');
  h2 := AddItem('Task 2');
   AddBar( h2, 'Task', '1/4/2008', '1/8/2008', '', '');
   AddLink('LKey', h1, '', h2, '' );
 end;
end;
end;

• Clarion. Go back to your embed and add this code:

?Gantt{mc:Chart&'.FirstVisibleDate'} = FORMAT(TODAY()-3, @D17)
?Gantt{mc:Chart&'.LevelCount'} = 2
?Gantt{mc:Chart&'.Level(0).Label'} = '<b><%mmmm%></b> <%yyyy%>'
?Gantt{mc:Chart&'.Level(0).Unit'} = 64
?Gantt{mc:Chart&'.Level(1).Label'} = '<%d%>'
?Gantt{mc.Chart&'.OverviewVisible'} = True
?Gantt{mc.Chart&'.HistogramVisible'} = True
?Gantt{mc.Chart&'.HistogramView'} = EXG2ANTTLib.HistogramViewEnum.exHistogramCheckedItems
?Gantt{mc.Chart&'.HistogramHeight'} = 32
?Gantt{mc.Chart&'.Bars("Task").HistogramPattern'} = EXG2ANTTLib.PatternEnum.exPatternDot
lc:Columns = ?Gantt{'Colums'}
lc:Items   = ?Gantt{'Items'}
?Gantt{lc:Columns&'.Add("Task").Def(exCellHasCheckBox)'} = True
h1 = ?Gantt{lc:Items&'.AddItem("Task 1")'}
?Gantt{mc:Items&'.AddBar('&h1&', "Task", '1/2/2008, '1/5/2008,"","")'}
h2 = ?Gantt{lc:Items&'.AddItem("Task 2")'}
?Gantt{mc:Items&'.AddBar('&h2&', "Task", '1/4/2008, '1/8/2008,"","")'} 
?Gantt{mc:Items&'.AddLink(LKey, '&h1&', '&h2&',"")'}  

• PowerBuilder (Classic). : Go to the Open event of the DataWindow and replace the maroon section

OleObject oG2antt,var_Chart,var_Items,var_Level
any h1,h2

oG2antt = ole_1.Object
var_Chart = oG2antt.Chart
	var_Chart.FirstVisibleDate = 2008-01-01
	var_Chart.LevelCount = 2
	var_Level = var_Chart.Level(0)
		var_Level.Label = "<b><%mmmm%></b> <%yyyy%>"
		var_Level.Unit = 16
	var_Chart.Level(1).Label = "<%d%>"
	var_Chart.OverviewVisible = true
	var_Chart.HistogramVisible = true
	var_Chart.HistogramView = 4
	var_Chart.HistogramHeight = 32
	var_Chart.Bars.Item("Task").HistogramPattern = 2
oG2antt.Columns.Add("Tasks").Def(0,true)
var_Items = oG2antt.Items
	h1 = var_Items.AddItem("Task 1")
	var_Items.AddBar(h1,"Task",2008-01-02,2008-01-05)
	h2 = var_Items.AddItem("Task 2")
	var_Items.AddBar(h2,"Task",2008-01-04,2008-01-08)
	var_Items.AddLink("LKey",h1,"",h2,"")  

• dBASE Plus. : Go to the Open event of the your form and replace the maroon section

function form_onOpen

   local h1,h2,oG2antt,var_Chart,var_Column,var_Items,var_Level,var_Level1

   oG2antt = form.Activex1.nativeObject
   var_Chart = oG2antt.Chart
      var_Chart.FirstVisibleDate = "01/01/2008"
      var_Chart.LevelCount = 2
      var_Level = var_Chart.Level(0)
         var_Level.Label = "<b><%mmmm%></b> <%yyyy%>"
         var_Level.Unit = 16
      // var_Chart.Level(1).Label = "<%d%>"
      var_Level1 = var_Chart.Level(1)
      with (oG2antt)
         TemplateDef = [Dim var_Level1]
         TemplateDef = var_Level1
         Template = [var_Level1.Label = "<%d%>"]
      endwith
      var_Chart.OverviewVisible = true
      var_Chart.HistogramVisible = true
      var_Chart.HistogramView = 4
      var_Chart.HistogramHeight = 32
      var_Chart.Bars.Item("Task").HistogramPattern = 2
   // oG2antt.Columns.Add("Tasks").Def(0) = true
   var_Column = oG2antt.Columns.Add("Tasks")
   with (oG2antt)
      TemplateDef = [Dim var_Column]
      TemplateDef = var_Column
      Template = [var_Column.Def(0) = true]
   endwith
   var_Items = oG2antt.Items
      h1 = var_Items.AddItem("Task 1")
      var_Items.AddBar(h1,"Task","01/02/2008","01/05/2008")
      h2 = var_Items.AddItem("Task 2")
      var_Items.AddBar(h2,"Task","01/04/2008","01/08/2008")
      var_Items.AddLink("LKey",h1,"",h2,"")

return  

• Visual DataFlex. : Go back to OnCreate procedure of Object oComG2antt and replace the maroon section:

Procedure OnCreate
    Forward Send OnCreate
    
    Variant vChart
    Get ComChart to vChart
    Handle hoChart
    Get Create (RefClass(cComChart)) to hoChart
    Set pvComObject of hoChart to vChart
    Set ComFirstVisibleDate of hoChart to "1/1/2008"
    Set ComLevelCount of hoChart to 2

        Variant vLevel0
        Get ComLevel of hoChart 0 to vLevel0
        Handle hoLevel0
        Get Create (RefClass(cComLevel)) to hoLevel0
        Set pvComObject of hoLevel0 to vLevel0
        Set ComLabel of hoLevel0 to "<b><%mmmm%></b> <%yyyy%>"
        Set ComUnit of hoLevel0 to OLEexMonth
        Send Destroy to hoLevel0
    
        Variant vLevel1
        Get ComLevel of hoChart 1 to vLevel1
        Handle hoLevel1
        Get Create (RefClass(cComLevel)) to hoLevel1
        Set pvComObject of hoLevel1 to vLevel1
        Set ComLabel of hoLevel1 to "<%d%>"
        Send Destroy to hoLevel1

    Set ComOverviewVisible of hoChart to True
    Set ComHistogramVisible of hoChart to True
    Set ComHistogramView of hoChart to OLEexHistogramCheckedItems
    Set ComHistogramHeight of hoChart to 32
    
    Variant vBars
    Get ComBars of hoChart to vBars
    Handle hoBars
    Get Create (RefClass(cComBars)) to hoBars
    Set pvComObject of hoBars to vBars
    Variant vBar
    Get ComItem of hoBars "Task" to vBar
    Handle hoBar
    Get Create (RefClass(cComBar)) to hoBar
    Set pvComObject of hoBar to vBar
    Set ComHistogramPattern of hoBar to OLEexPatternDot
    Send Destroy to hoBar
    Send Destroy to hoBars
    
    Send Destroy to hoChart
    
    Variant vColumns
    Get ComColumns to vColumns
    Handle hoColumns
    Get Create (RefClass(cComColumns)) to hoColumns
    Set pvComObject of hoColumns to vColumns
    Variant vColumn
    Get ComAdd of hoColumns "Tasks" to vColumn
    Handle hoColumn
    Get Create (RefClass(cComColumn)) to hoColumn
    Set pvComObject of hoColumn to vColumn
    Set ComDef of hoColumn OLEexCellHasCheckBox to True
    Send Destroy to hoColumn
    Send Destroy to hoColumns

    Variant vItems
    Get ComItems to vItems
    Handle hoItems
    Get Create (RefClass(cComItems)) to hoItems
    Set pvComObject of hoItems to vItems
    HITEM h1
    Get ComAddItem of hoItems "Task 1" to h1
    Send ComAddBar of hoItems h1 "Task" "1/2/2008" "1/5/2008" Nothing Nothing
    HITEM h2
    Get ComAddItem of hoItems "Task 2" to h2
    Send ComAddBar of hoItems h2 "Task" "1/4/2008" "1/8/2008" Nothing Nothing
    Send ComAddLink of hoItems "LKey" h1 "" h2 ""
    Send Destroy to hoItems
    
End_Procedure  

• Xbase++. : Go back to Main procedure and replace the maroon section:

#include "AppEvent.CH"
#PRAGMA LIBRARY( "ASCOM10.LIB" ) // Include the Automation Support Library

PROCEDURE Main

  LOCAL oForm, oControl
  LOCAL nEvent
  LOCAL mp1 := NIL, mp2 := NIL, oXbp := NIL
  LOCAL oLevel
  LOCAL oItems
  LOCAL h1, h2

  oForm := XbpDialog():new( AppDesktop() )
  oForm:drawingArea:clipChildren := .T.
  oForm:create( ,,{100,100}, {640,480},, .F. )
  oForm:close  := {|| PostAppEvent( xbeP_Quit )}

    oControl := XbpActiveXControl():new( oForm:drawingArea )
    oControl:CLSID  := "Exontrol.G2antt"
    oControl:create(,, {10,60},{610,370} )

    oControl:Chart:FirstVisibleDate = "1/1/2008"
    oControl:Chart:LevelCount := 2
    oLevel = oControl:Chart:Level(0)
    oLevel:Label := "<b><%mmmm%></b> <%yyyy%>"
    oLevel:Unit := 16 /*exMonth*/
    oControl:Chart:Level(1):Label = "<%d%>"
    oControl:Chart:OverviewVisible = -1 /*exOverviewShowAll*/
    oControl:Chart:HistogramVisible = .T.
    oControl:Chart:HistogramView = 4 /*exHistogramCheckedItems*/
    oControl:Chart:HistogramHeight = 32
    oControl:Chart:Bars("Task"):HistogramPattern = 2 /*exPatternDot*/

    oControl:Columns:Add("Tasks"):SetProperty("Def", 0 /*exCellHasCheckBox*/, .T.)
    oItems := oControl:Items
    h1 := oItems:AddItem("Task 1")
    oItems:AddBar(h1, "Task", "1/2/2008", "1/5/2008")
    h2 := oItems:AddItem("Task 1")
    oItems:AddBar(h2, "Task", "1/4/2008", "1/8/2008")
    oItems:AddLink("LKey", h1, "", h2, "")

  oForm:Show()

  nEvent := 0
  DO WHILE nEvent != xbeP_Quit
    nEvent := AppEvent( @mp1, @mp2, @oXbp )
    oXbp:handleEvent( nEvent, mp1, mp2 )
  ENDDO

RETURN  

• Access. Go back to the Form's Load event add the maroon code as shown bellow:

Private Sub Form_Load()
    Dim g As EXG2ANTTLib.G2antt
    Set g = G2antt1.Object
    With g
        .BeginUpdate
        With .Chart
            .FirstVisibleDate = #1/1/2008#
            .LevelCount = 2
            With .Level(0)
                .Label = "<b><%mmmm%></b> <%yyyy%>"
                .Unit = exMonth
            End With
            .Level(1).Label = "<%d%>"
            .OverviewVisible = True
            .HistogramVisible = True
            .HistogramView = exHistogramCheckedItems
            .HistogramHeight = 32
            .Bars("Task").HistogramPattern = exPatternDot
        End With
        .Columns.Add("Tasks").Def(exCellHasCheckBox) = True
        Dim h1, h2 As Long
        With .Items
            h1 = .AddItem("Task 1")
            .AddBar h1, "Task", #1/2/2008#, #1/5/2008#
            h2 = .AddItem("Task 2")
            .AddBar h2, "Task", #1/4/2008#, #1/8/2008#
            .AddLink "LKey", h1, "", h2, ""
        End With
        .EndUpdate
    End With
End Sub

• Excel. Go back to the UserForm_Initialize event add the maroon code as shown bellow:

Private Sub UserForm_Initialize()
    With G2antt1
        .BeginUpdate
        With .Chart
            .FirstVisibleDate = #1/1/2008#
            .LevelCount = 2
            With .Level(0)
                .Label = "<b><%mmmm%></b> <%yyyy%>"
                .Unit = exMonth
            End With
            .Level(1).Label = "<%d%>"
            .OverviewVisible = True
            .HistogramVisible = True
            .HistogramView = exHistogramCheckedItems
            .HistogramHeight = 32
            .Bars("Task").HistogramPattern = exPatternDot
        End With
        .Columns.Add("Tasks").Def(exCellHasCheckBox) = True
        Dim h1, h2 As Long
        With .Items
            h1 = .AddItem("Task 1")
            .AddBar h1, "Task", #1/2/2008#, #1/5/2008#
            h2 = .AddItem("Task 2")
            .AddBar h2, "Task", #1/4/2008#, #1/8/2008#
            .AddLink "LKey", h1, "", h2, ""
        End With
        .EndUpdate
    End With
End Sub

• VB6. Go back to the Form's Load event add the maroon code as shown bellow:

Private Sub Form_Load()
    With G2antt1
        .BeginUpdate
        With .Chart
            .FirstVisibleDate = #1/1/2008#
            .LevelCount = 2
            With .Level(0)
                .Label = "<b><%mmmm%></b> <%yyyy%>"
                .Unit = exMonth
            End With
            .Level(1).Label = "<%d%>"
            .OverviewVisible = True
            .HistogramVisible = True
            .HistogramView = exHistogramCheckedItems
            .HistogramHeight = 32
            .Bars("Task").HistogramPattern = exPatternDot
        End With
        .Columns.Add("Tasks").Def(exCellHasCheckBox) = True
        Dim h1, h2 As Long
        With .Items
            h1 = .AddItem("Task 1")
            .AddBar h1, "Task", #1/2/2008#, #1/5/2008#
            h2 = .AddItem("Task 2")
            .AddBar h2, "Task", #1/4/2008#, #1/8/2008#
            .AddLink "LKey", h1, "", h2, ""
        End With
        .EndUpdate
    End With
End Sub

• VFP. Go back to the Form's Load event add the maroon code as shown bellow:

with thisform.G2antt1
	.BeginUpdate
	With .Chart
		.FirstVisibleDate = {^2008-1-1}
		.LevelCount = 2
		With .Level(0)
			.Label = "<b><%mmmm%></b> <%yyyy%>"
			.Unit = 16
		EndWith
		.Level(1).Label = "<%d%>"
        .OverviewVisible = .T.
        .HistogramVisible = .T.
        .HistogramView = 4
        .HistogramHeight = 32
        .Bars("Task").HistogramPattern = 2
    EndWith
	.Columns.Add("Default").Def(0) = .T.
	local h1,h2
	with .Items
		h1 = .AddItem("Task 1")
		.AddBar(h1,"Task",{^2008-1-2},{^2008-1-5})
		h2 = .AddItem("Task 2")
		.AddBar(h2,"Task",{^2008-1-4},{^2008-1-8})
		.AddLink("LKey",h1,"",h2,"")
	endwith
	.EndUpdate
endwith

• VB.NET ( /COM ).  Go back to the Form's Load event add the maroon code as shown bellow:

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    With AxG2antt1
        .BeginUpdate()
        With .Chart
            .FirstVisibleDate = #1/1/2008#
            .LevelCount = 2
            With .Level(0)
                .Label = "<b><%mmmm%></b> <%yyyy%>"
                .Unit = EXG2ANTTLib.UnitEnum.exMonth
            End With
            .Level(1).Label = "<%d%>"
            .OverviewVisible = True
            .HistogramVisible = True
            .HistogramView = EXG2ANTTLib.HistogramViewEnum.exHistogramCheckedItems
            .HistogramHeight = 32
            .Bars("Task").HistogramPattern = EXG2ANTTLib.PatternEnum.exPatternDot
        End With
        .Columns.Add("Tasks").Def(EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox) = True
        With .Items
            Dim h1 As Integer = .AddItem("Task 1")
            .AddBar(h1, "Task", #1/2/2008#, #1/5/2008#)
            Dim h2 As Integer = .AddItem("Task 2")
            .AddBar(h2, "Task", #1/4/2008#, #1/8/2008#)
            .AddLink("LKey", h1, "", h2, "")
        End With
        .EndUpdate()
    End With
End Sub

• VB.NET ( /NET ). Go back to the Form's Load event add the maroon code as shown bellow:

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    With Exg2antt1
        .BeginUpdate()
        With .Chart
            .FirstVisibleDate = #1/1/2008#
            .LevelCount = 2
            With .get_Level(0)
                .Label = "<b><%mmmm%></b> <%yyyy%>"
                .Unit = exontrol.EXG2ANTTLib.UnitEnum.exMonth
            End With
            .get_Level(1).Label = "<%d%>"
            .OverviewVisible = True
            .HistogramVisible = True
            .HistogramView = exontrol.EXG2ANTTLib.HistogramViewEnum.exHistogramCheckedItems
            .HistogramHeight = 32
            .Bars("Task").HistogramPattern = exontrol.EXG2ANTTLib.PatternEnum.exPatternDot
        End With
        .Columns.Add("Tasks").set_Def(exontrol.EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox, True)
        With .Items
            Dim h1 As Integer = .AddItem("Task 1")
            .AddBar(h1, "Task", #1/2/2008#, #1/5/2008#)
            Dim h2 As Integer = .AddItem("Task 2")
            .AddBar(h2, "Task", #1/4/2008#, #1/8/2008#)
            .AddLink("LKey", h1, "", h2, "")
        End With
        .EndUpdate()
    End With
End Sub

• VB.NET ( /WPF ). Go back to the Window1_Loaded event add the maroon code as shown bellow:

Private Sub Window1_Loaded(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Handles MyBase.Loaded
    With Exg2antt1
        .BeginUpdate()
        With .Chart
            .FirstVisibleDate = #1/1/2008#
            .LevelCount = 2
            With .get_Level(0)
                .Label = "<b><%mmmm%></b> <%yyyy%>"
                .Unit = wpf.exontrol.EXG2ANTTLib.UnitEnum.exMonth
            End With
            .get_Level(1).Label = "<%d%>"
            .OverviewVisible = True
            .HistogramVisible = True
            .HistogramView = wpf.exontrol.EXG2ANTTLib.HistogramViewEnum.exHistogramCheckedItems
            .HistogramHeight = 32
            .Bars("Task").HistogramPattern = wpf.exontrol.EXG2ANTTLib.PatternEnum.exPatternDot
        End With
        .Columns.Add("Tasks").set_Def(wpf.exontrol.EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox, True)
        With .Items
            Dim h1 As Integer = .AddItem("Task 1")
            .AddBar(h1, "Task", #1/2/2008#, #1/5/2008#)
            Dim h2 As Integer = .AddItem("Task 2")
            .AddBar(h2, "Task", #1/4/2008#, #1/8/2008#)
            .AddLink("LKey", h1, "", h2, "")
        End With
        .EndUpdate()
    End With
End Sub

• C# ( /COM ). Go back to the Form's Load event add the maroon code as shown bellow:

private void Form1_Load(object sender, EventArgs e)
{
    axG2antt1.BeginUpdate();
    EXG2ANTTLib.Chart chart = axG2antt1.Chart;
    chart.FirstVisibleDate = new DateTime(2008, 1, 1);
    chart.LevelCount = 2;
    EXG2ANTTLib.Level l = chart.get_Level(0);
    l.Label = "<b><%mmmm%></b> <%yyyy%>";
    l.Unit = EXG2ANTTLib.UnitEnum.exMonth;
    chart.get_Level(1).Label = "<%d%>";
    chart.OverviewVisible = true;
    chart.HistogramVisible = true;
    chart.HistogramView = EXG2ANTTLib.HistogramViewEnum.exHistogramCheckedItems;
    chart.HistogramHeight = 32;
    chart.Bars["Task"].HistogramPattern = EXG2ANTTLib.PatternEnum.exPatternDot;
    (axG2antt1.Columns.Add("Tasks") as EXG2ANTTLib.Column)
        .set_Def(EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox, true);
    EXG2ANTTLib.Items items = axG2antt1.Items;
    int h1 = items.AddItem("Task 1");
    items.AddBar(h1, "Task", new DateTime(2008, 1, 2), new DateTime(2008, 1, 5), null, null);
    int h2 = items.AddItem("Task 2");
    items.AddBar(h2, "Task", new DateTime(2008, 1, 4), new DateTime(2008, 1, 8), null, null);
    items.AddLink("LKey", h1, null, h2, null);
    axG2antt1.EndUpdate();
}

• C# ( /NET ). Go back to the Form1_Load event and replace the maroon code as shown bellow:

private void Form1_Load(object sender, EventArgs e)
{
    exg2antt1.BeginUpdate();
    exontrol.EXG2ANTTLib.Chart chart = exg2antt1.Chart;
        chart.FirstVisibleDate = new DateTime(2008, 1, 1);
        chart.LevelCount = 2;
        exontrol.EXG2ANTTLib.Level l = chart.get_Level(0);
        l.Label = "<b><%mmmm%></b> <%yyyy%>";
        l.Unit = exontrol.EXG2ANTTLib.UnitEnum.exMonth;
        chart.get_Level(1).Label = "<%d%>";
        chart.OverviewVisible = true;
        chart.HistogramVisible = true;
        chart.HistogramView = exontrol.EXG2ANTTLib.HistogramViewEnum.exHistogramCheckedItems;
        chart.HistogramHeight = 32;
        chart.Bars["Task"].HistogramPattern = exontrol.EXG2ANTTLib.PatternEnum.exPatternDot;
    exg2antt1.Columns.Add("Tasks").set_Def(exontrol.EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox, true );
    exontrol.EXG2ANTTLib.Items items = exg2antt1.Items;
    int h1 = items.AddItem("Task 1");
    items.AddBar(h1, "Task", new DateTime(2008, 1, 2), new DateTime(2008, 1, 5));
    int h2 = exg2antt1.Items.AddItem("Task 2");
    items.AddBar(h2, "Task", new DateTime(2008, 1, 4), new DateTime(2008, 1, 8));
    items.AddLink("LKey", h1, null, h2, null);
    exg2antt1.EndUpdate();
}

• C# ( /WPF ). Go back to the Window1_Loaded event and replace the maroon code as shown bellow:

private void Window_Loaded(object sender, RoutedEventArgs e)
{
    exg2antt1.BeginUpdate();
    wpf.exontrol.EXG2ANTTLib.Chart chart = exg2antt1.Chart;
    chart.FirstVisibleDate = new DateTime(2008, 1, 1);
    chart.LevelCount = 2;
    wpf.exontrol.EXG2ANTTLib.Level l = chart.get_Level(0);
    l.Label = "<b><%mmmm%></b> <%yyyy%>";
    l.Unit = wpf.exontrol.EXG2ANTTLib.UnitEnum.exMonth;
    chart.get_Level(1).Label = "<%d%>";
    chart.OverviewVisible = true;
    chart.HistogramVisible = true;
    chart.HistogramView = wpf.exontrol.EXG2ANTTLib.HistogramViewEnum.exHistogramCheckedItems;
    chart.HistogramHeight = 32;
    chart.Bars["Task"].HistogramPattern = wpf.exontrol.EXG2ANTTLib.PatternEnum.exPatternDot;
    exg2antt1.Columns.Add("Tasks").set_Def(wpf.exontrol.EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox, true);
    wpf.exontrol.EXG2ANTTLib.Items items = exg2antt1.Items;
    int h1 = items.AddItem("Task 1");
    items.AddBar(h1, "Task", new DateTime(2008, 1, 2), new DateTime(2008, 1, 5));
    int h2 = exg2antt1.Items.AddItem("Task 2");
    items.AddBar(h2, "Task", new DateTime(2008, 1, 4), new DateTime(2008, 1, 8));
    items.AddLink("LKey", h1, null, h2, null);
    exg2antt1.EndUpdate();
}

• C++ (6.0). Go back to the OnInitDialog and add the maroon code as shown bellow:

m_g2antt.BeginUpdate();
CChart chart = m_g2antt.GetChart();
	chart.SetFirstVisibleDate( COleVariant( COleDateTime( 2008, 1, 1, 0, 0, 0 ).operator DATE() ) );
	chart.SetLevelCount( 2 );
	CLevel level0 = chart.GetLevel(0);
	level0.SetLabel( COleVariant( "<b><%mmmm%></b> <%yyyy%>" ) );
	level0.SetUnit( 16 /*exMonth*/ );
	chart.GetLevel(1).SetLabel( COleVariant( "<%d%>" ) );
	chart.SetOverviewVisible( TRUE );
	chart.SetHistogramVisible( TRUE );
	chart.SetHistogramView( 4 /*exHistogramCheckedItems*/ );
	chart.SetHistogramHeight( 32 );
	chart.GetBars().GetItem( COleVariant( _T("Task") ) ).SetHistogramPattern( 2/*exPatternDot*/ );
CColumn column = V_DISPATCH( &m_g2antt.GetColumns().Add("Tasks") );
column.SetDef( 0, COleVariant( VARIANT_TRUE ) );
CItems items = m_g2antt.GetItems();
int h1 = items.AddItem( COleVariant( "Task 1" ) );
items.AddBar( h1, COleVariant( "Task" ), 
		COleVariant( COleDateTime( 2008, 1, 2, 0, 0, 0 ).operator DATE() ), 
		COleVariant( COleDateTime( 2008, 1, 5, 0, 0, 0 ).operator DATE() ), 
		COleVariant(""), COleVariant() );
int h2 = items.AddItem( COleVariant( "Task 2" ) );
items.AddBar( h2, COleVariant( "Task" ), 
		COleVariant( COleDateTime( 2008, 1, 4, 0, 0, 0 ).operator DATE() ), 
		COleVariant( COleDateTime( 2008, 1, 8, 0, 0, 0 ).operator DATE() ), 
		COleVariant(""), COleVariant() );
items.AddLink( COleVariant( "LKey" ), h1, COleVariant(""), h2, COleVariant("") );
m_g2antt.EndUpdate();

• C++ (2005,2008). Go back to the OnInitDialog and add the maroon code as shown bellow:

m_g2antt.BeginUpdate();
EXG2ANTTLib::IChartPtr spChart = m_g2antt.get_Chart();
spChart->FirstVisibleDate = COleDateTime( 2008, 1, 1, 0, 0, 0 ).operator DATE();
spChart->LevelCount = 2;
EXG2ANTTLib::ILevelPtr spLevel0 = spChart->Level[0];
	spLevel0->Label = _T("<b><%mmmm%></b> <%yyyy%>");
	spLevel0->Unit = EXG2ANTTLib::exMonth;
spChart->Level[1]->Label = _T("<%d%>");
spChart->OverviewVisible = VARIANT_TRUE;
spChart->HistogramVisible = VARIANT_TRUE;
spChart->HistogramView = EXG2ANTTLib::exHistogramCheckedItems;
spChart->HistogramHeight = 32;
spChart->Bars->GetItem("Task")->HistogramPattern = EXG2ANTTLib::exPatternDot;
EXG2ANTTLib::IColumnsPtr spColumns = m_g2antt.get_Columns();
EXG2ANTTLib::IColumnPtr spColumn = V_DISPATCH( &spColumns->Add(_T("Tasks")) );
spColumn->put_Def( EXG2ANTTLib::exCellHasCheckBox, CComVariant( VARIANT_TRUE ) );
EXG2ANTTLib::IItemsPtr spItems = m_g2antt.get_Items();
int h1 = spItems->AddItem( _T("Task 1") );
spItems->AddBar( h1, _T("Task"), 
		COleVariant( COleDateTime( 2008, 1, 2, 0, 0, 0 ).operator DATE() ), 
		COleVariant( COleDateTime( 2008, 1, 5, 0, 0, 0 ).operator DATE() ),
		"" );
int h2 = spItems->AddItem( _T("Task 2") );
spItems->AddBar( h2, _T("Task"), 
		COleVariant( COleDateTime( 2008, 1, 4, 0, 0, 0 ).operator DATE() ), 
		COleVariant( COleDateTime( 2008, 1, 8, 0, 0, 0 ).operator DATE() ),
		"" );
spItems->AddLink( "LKey", h1, "", h2, "" );
m_g2antt.EndUpdate();

• X++ (Dynamics Ax 2009). Go to form's init function and add the maroon snippet as follows:

public void init()
{
	COM com_Bar,com_Chart,com_Items,com_Level,com_Level1;
	anytype var_Bar,var_Chart,var_Items,var_Level,var_Level1;
	int h1,h2;
	;

	super();

	exg2antt1.BeginUpdate();
	var_Chart = exg2antt1.Chart(); com_Chart = var_Chart;
		com_Chart.FirstVisibleDate(COMVariant::createFromDate(str2Date("1/1/2008",213)));
		com_Chart.LevelCount(2);
		var_Level = com_Chart.Level(0); com_Level = var_Level;
			com_Level.Label("<b><%mmmm%></b> <%yyyy%>");
			com_Level.Unit(16/*exMonth*/);
		var_Level1 = COM::createFromObject(com_Chart.Level(1)); com_Level1 = var_Level1;
		com_Level1.Label("<%d%>");
		com_Chart.OverviewVisible(true);
		com_Chart.HistogramVisible(true);
		com_Chart.HistogramView(4/*exHistogramCheckedItems*/);
		com_Chart.HistogramHeight(32);
		var_Bar = COM::createFromObject(com_Chart.Bars()).Item("Task"); com_Bar = var_Bar;
		com_Bar.HistogramPattern(2/*exPatternDot*/);
	COM::createFromVariant(exg2antt1.Columns().Add("Tasks")).Def(0/*exCellHasCheckBox*/,COMVariant::createFromBoolean(true));
	var_Items = exg2antt1.Items(); com_Items = var_Items;
		h1 = com_Items.AddItem("Task 1");
		com_Items.AddBar(h1,"Task",COMVariant::createFromDate(str2Date("1/2/2008",213)),COMVariant::createFromDate(str2Date("1/5/2008",213)));
		h2 = com_Items.AddItem("Task 2");
		com_Items.AddBar(h2,"Task",COMVariant::createFromDate(str2Date("1/4/2008",213)),COMVariant::createFromDate(str2Date("1/8/2008",213)));
		com_Items.AddLink("LKey",h1,"",h2,"");
	exg2antt1.EndUpdate();
}

void __fastcall TForm1::FormCreate(TObject *Sender)
{
	G2antt1->BeginUpdate();
	IChartPtr spChart = G2antt1->Chart;
	spChart->set_FirstVisibleDate( TVariant(TDateTime(2008,1,1).operator double()) );
	spChart->LevelCount = 2;
	ILevelPtr spLevel0 = spChart->get_Level(0);
		spLevel0->set_Label( TVariant("<b><%mmmm%></b> <%yyyy%>") );
		spLevel0->set_Unit( UnitEnum::exMonth );
	spChart->get_Level(1)->set_Label( TVariant("<%d%>") );
	spChart->set_OverviewVisible( true );
	spChart->set_HistogramVisible( true );
	spChart->set_HistogramView( HistogramViewEnum::exHistogramCheckedItems );
	spChart->set_HistogramHeight(32);
	spChart->Bars->get_Item(TVariant("Task"))->set_HistogramPattern(PatternEnum::exPatternDot);
	IColumnsPtr spColumns = G2antt1->Columns;
	TVariant vtCol;
	spColumns->Add( L"Tasks", &vtCol );
	IColumnPtr spCol = vtCol;
	spCol->set_Def( DefColumnEnum::exCellHasCheckBox, TVariant(true) );
	IItemsPtr spItems = G2antt1->Items;
	long h1 = spItems->AddItem( TVariant("Task 1") );
	spItems->AddBar( h1, TVariant("Task"),
			TVariant(TDateTime(2008,1,2).operator double() ),
			TVariant(TDateTime(2008,1,5).operator double() ),
			TVariant("") );
	long h2 = spItems->AddItem( TVariant("Task 2") );
	spItems->AddBar( h2, TVariant("Task"),
			TVariant(TDateTime(2008,1,4).operator double() ),
			TVariant(TDateTime(2008,1,8).operator double() ),
			TVariant("") );
	spItems->AddLink( TVariant("LKey"), h1, TVariant(""), h2, TVariant("") );
	G2antt1->EndUpdate();
}

• Delphi (2009). Go back to the FormCreate and add maroon section as follow

procedure TForm1.FormCreate(Sender: TObject);
var h1: Integer;
var h2: Integer;
begin
with G2antt1 do
begin
 BeginUpdate;
 with Chart do
 begin
  FirstVisibleDate := '1/1/2008';
  LevelCount := 2;
  with Level[0] do
  begin
    Label_ := '<b><%mmmm%></b> <%yyyy%>';
    Unit_ := exMonth;
  end;
  Level[1].Label_ := '<%d%>';
  OverviewVisible := True;
  HistogramVisible := True;
  HistogramHeight := 32;
  HistogramView := exHistogramCheckedItems;
  Bars.Item['Task'].HistogramPattern := exPatternDot;
 end;
 Columns.Add('Tasks').Def[exCellHasCheckBox] := True;
 with Items do
 begin
  h1 := AddItem('Task 1');
  .AddBar( h1, 'Task', '1/2/2008', '1/5/2008', '', '');
  h2 := AddItem('Task 2');
   AddBar( h2, 'Task', '1/4/2008', '1/8/2008', '', '');
   AddLink('LKey', h1, '', h2, '' );
 end;
 EndUpdate;
end;
end;

• Clarion. Go back to your embed and add the maroon code:

?Gantt{'BeginUpdate'}
?Gantt{mc:Chart&'.FirstVisibleDate'} = FORMAT(TODAY()-3, @D17)
?Gantt{mc:Chart&'.LevelCount'} = 2
?Gantt{mc:Chart&'.Level(0).Label'} = '<b><%mmmm%></b> <%yyyy%>'
?Gantt{mc:Chart&'.Level(0).Unit'} = 64
?Gantt{mc:Chart&'.Level(1).Label'} = '<%d%>'
?Gantt{mc.Chart&'.OverviewVisible'} = True
?Gantt{mc.Chart&'.HistogramVisible'} = True
?Gantt{mc.Chart&'.HistogramView'} = EXG2ANTTLib.HistogramViewEnum.exHistogramCheckedItems
?Gantt{mc.Chart&'.HistogramHeight'} = 32
?Gantt{mc.Chart&'.Bars("Task").HistogramPattern'} = EXG2ANTTLib.PatternEnum.exPatternDot
lc:Columns = ?Gantt{'Colums'}
lc:Items   = ?Gantt{'Items'}
?Gantt{lc:Columns&'.Add("Task").Def(exCellHasCheckBox)'} = True
h1 = ?Gantt{lc:Items&'.AddItem("Task 1")'}
?Gantt{mc:Items&'.AddBar('&h1&', "Task", '1/2/2008, '1/5/2008,"","")'}
h2 = ?Gantt{lc:Items&'.AddItem("Task 2")'}
?Gantt{mc:Items&'.AddBar('&h2&', "Task", '1/4/2008, '1/8/2008,"","")'} 
?Gantt{mc:Items&'.AddLink(LKey, '&h1&', '&h2&',"")'}
?Gantt{'EndUpdate'} 

• PowerBuilder (Classic). Go back to your Open event and add the maroon code:

OleObject oG2antt,var_Chart,var_Items,var_Level
any h1,h2

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
var_Chart = oG2antt.Chart
	var_Chart.FirstVisibleDate = 2008-01-01
	var_Chart.LevelCount = 2
	var_Level = var_Chart.Level(0)
		var_Level.Label = "<b><%mmmm%></b> <%yyyy%>"
		var_Level.Unit = 16
	var_Chart.Level(1).Label = "<%d%>"
	var_Chart.OverviewVisible = true
	var_Chart.HistogramVisible = true
	var_Chart.HistogramView = 4
	var_Chart.HistogramHeight = 32
	var_Chart.Bars.Item("Task").HistogramPattern = 2
oG2antt.Columns.Add("Tasks").Def(0,true)
var_Items = oG2antt.Items
	h1 = var_Items.AddItem("Task 1")
	var_Items.AddBar(h1,"Task",2008-01-02,2008-01-05)
	h2 = var_Items.AddItem("Task 2")
	var_Items.AddBar(h2,"Task",2008-01-04,2008-01-08)
	var_Items.AddLink("LKey",h1,"",h2,"")
oG2antt.EndUpdate() 

• dBASE Plus. Go back to your Open event and add the maroon code:

function form_onOpen

   local h1,h2,oG2antt,var_Chart,var_Column,var_Items,var_Level,var_Level1

   oG2antt = form.Activex1.nativeObject
   oG2antt.BeginUpdate()
   var_Chart = oG2antt.Chart
      var_Chart.FirstVisibleDate = "01/01/2008"
      var_Chart.LevelCount = 2
      var_Level = var_Chart.Level(0)
         var_Level.Label = "<b><%mmmm%></b> <%yyyy%>"
         var_Level.Unit = 16
      // var_Chart.Level(1).Label = "<%d%>"
      var_Level1 = var_Chart.Level(1)
      with (oG2antt)
         TemplateDef = [Dim var_Level1]
         TemplateDef = var_Level1
         Template = [var_Level1.Label = "<%d%>"]
      endwith
      var_Chart.OverviewVisible = true
      var_Chart.HistogramVisible = true
      var_Chart.HistogramView = 4
      var_Chart.HistogramHeight = 32
      var_Chart.Bars.Item("Task").HistogramPattern = 2
   // oG2antt.Columns.Add("Tasks").Def(0) = true
   var_Column = oG2antt.Columns.Add("Tasks")
   with (oG2antt)
      TemplateDef = [Dim var_Column]
      TemplateDef = var_Column
      Template = [var_Column.Def(0) = true]
   endwith
   var_Items = oG2antt.Items
      h1 = var_Items.AddItem("Task 1")
      var_Items.AddBar(h1,"Task","01/02/2008","01/05/2008")
      h2 = var_Items.AddItem("Task 2")
      var_Items.AddBar(h2,"Task","01/04/2008","01/08/2008")
      var_Items.AddLink("LKey",h1,"",h2,"")
   oG2antt.EndUpdate()

return 

• Visual DataFlex. Go back to OnCreate procedure of Object oComG2antt and add the maroon section:

Procedure OnCreate
    Forward Send OnCreate
    
    Send ComBeginUpdate 
    
    Variant vChart
    Get ComChart to vChart
    Handle hoChart
    Get Create (RefClass(cComChart)) to hoChart
    Set pvComObject of hoChart to vChart
    Set ComFirstVisibleDate of hoChart to "1/1/2008"
    Set ComLevelCount of hoChart to 2

        Variant vLevel0
        Get ComLevel of hoChart 0 to vLevel0
        Handle hoLevel0
        Get Create (RefClass(cComLevel)) to hoLevel0
        Set pvComObject of hoLevel0 to vLevel0
        Set ComLabel of hoLevel0 to "<b><%mmmm%></b> <%yyyy%>"
        Set ComUnit of hoLevel0 to OLEexMonth
        Send Destroy to hoLevel0
    
        Variant vLevel1
        Get ComLevel of hoChart 1 to vLevel1
        Handle hoLevel1
        Get Create (RefClass(cComLevel)) to hoLevel1
        Set pvComObject of hoLevel1 to vLevel1
        Set ComLabel of hoLevel1 to "<%d%>"
        Send Destroy to hoLevel1

    Set ComOverviewVisible of hoChart to True
    Set ComHistogramVisible of hoChart to True
    Set ComHistogramView of hoChart to OLEexHistogramCheckedItems
    Set ComHistogramHeight of hoChart to 32
    
    Variant vBars
    Get ComBars of hoChart to vBars
    Handle hoBars
    Get Create (RefClass(cComBars)) to hoBars
    Set pvComObject of hoBars to vBars
    Variant vBar
    Get ComItem of hoBars "Task" to vBar
    Handle hoBar
    Get Create (RefClass(cComBar)) to hoBar
    Set pvComObject of hoBar to vBar
    Set ComHistogramPattern of hoBar to OLEexPatternDot
    Send Destroy to hoBar
    Send Destroy to hoBars
    
    Send Destroy to hoChart
    
    Variant vColumns
    Get ComColumns to vColumns
    Handle hoColumns
    Get Create (RefClass(cComColumns)) to hoColumns
    Set pvComObject of hoColumns to vColumns
    Variant vColumn
    Get ComAdd of hoColumns "Tasks" to vColumn
    Handle hoColumn
    Get Create (RefClass(cComColumn)) to hoColumn
    Set pvComObject of hoColumn to vColumn
    Set ComDef of hoColumn OLEexCellHasCheckBox to True
    Send Destroy to hoColumn
    Send Destroy to hoColumns

    Variant vItems
    Get ComItems to vItems
    Handle hoItems
    Get Create (RefClass(cComItems)) to hoItems
    Set pvComObject of hoItems to vItems
    HITEM h1
    Get ComAddItem of hoItems "Task 1" to h1
    Send ComAddBar of hoItems h1 "Task" "1/2/2008" "1/5/2008" Nothing Nothing
    HITEM h2
    Get ComAddItem of hoItems "Task 2" to h2
    Send ComAddBar of hoItems h2 "Task" "1/4/2008" "1/8/2008" Nothing Nothing
    Send ComAddLink of hoItems "LKey" h1 "" h2 ""
    Send Destroy to hoItems
    
    Send ComEndUpdate 
    
End_Procedure

• Xbase++. Go back to Main procedure and add the maroon section:

#include "AppEvent.CH"
#PRAGMA LIBRARY( "ASCOM10.LIB" ) // Include the Automation Support Library

PROCEDURE Main

  LOCAL oForm, oControl
  LOCAL nEvent
  LOCAL mp1 := NIL, mp2 := NIL, oXbp := NIL
  LOCAL oLevel
  LOCAL oItems
  LOCAL h1, h2

  oForm := XbpDialog():new( AppDesktop() )
  oForm:drawingArea:clipChildren := .T.
  oForm:create( ,,{100,100}, {640,480},, .F. )
  oForm:close  := {|| PostAppEvent( xbeP_Quit )}

    oControl := XbpActiveXControl():new( oForm:drawingArea )
    oControl:CLSID  := "Exontrol.G2antt"
    oControl:create(,, {10,60},{610,370} )

    oControl:BeginUpdate()
    oControl:Chart:FirstVisibleDate = "1/1/2008"
    oControl:Chart:LevelCount := 2
    oLevel = oControl:Chart:Level(0)
    oLevel:Label := "<b><%mmmm%></b> <%yyyy%>"
    oLevel:Unit := 16 /*exMonth*/
    oControl:Chart:Level(1):Label = "<%d%>"
    oControl:Chart:OverviewVisible = -1 /*exOverviewShowAll*/
    oControl:Chart:HistogramVisible = .T.
    oControl:Chart:HistogramView = 4 /*exHistogramCheckedItems*/
    oControl:Chart:HistogramHeight = 32
    oControl:Chart:Bars("Task"):HistogramPattern = 2 /*exPatternDot*/

    oControl:Columns:Add("Tasks"):SetProperty("Def", 0 /*exCellHasCheckBox*/, .T.)
    oItems := oControl:Items
    h1 := oItems:AddItem("Task 1")
    oItems:AddBar(h1, "Task", "1/2/2008", "1/5/2008")
    h2 := oItems:AddItem("Task 1")
    oItems:AddBar(h2, "Task", "1/4/2008", "1/8/2008")
    oItems:AddLink("LKey", h1, "", h2, "")
    oControl:EndUpdate()

  oForm:Show()

  nEvent := 0
  DO WHILE nEvent != xbeP_Quit
    nEvent := AppEvent( @mp1, @mp2, @oXbp )
    oXbp:handleEvent( nEvent, mp1, mp2 )
  ENDDO

RETURN

• Access. The name of the library is EXG2ANTTLib while the name of the main component is G2antt. The native object may be accessed through the Object property so G2antt1.Object is of  EXG2ANTTLib.G2antt type. While in CodeView mode, you can press the F2 key to open the "Object Browser" where all libraries are listed. 

Private Sub init(ByVal g As EXG2ANTTLib.G2antt)
    With g
        .BeginUpdate
        .Columns.Add ("Tasks")
        With .Items
            .AddItem "Task 1"
            .AddItem "Task 2"
        End With
        .EndUpdate
    End With
End Sub

Private Sub Form_Load()
    Call init(G2antt1.Object)
End Sub

• Excel. The name of the library is EXG2ANTTLib while the name of the main component is G2antt. The native object may be accessed throw the object itself or through the Object property so G2antt1 is of  EXG2ANTTLib.G2antt type. While in CodeView mode, you can press the F2 key to open the "Object Browser" where all libraries are listed.

Private Sub init(ByVal g As EXG2ANTTLib.G2antt)
      With g
          .BeginUpdate
          .Columns.Add ("Tasks")
          With .Items
              .AddItem "Task 1"
              .AddItem "Task 2"
          End With
          .EndUpdate
      End With
  End Sub
  
  Private Sub UserForm_Initialize()
      init G2antt1
  End Sub

• VB6. The name of the library is EXG2ANTTLibCtl while the name of the main component is G2antt. The native object may be accessed throw the object itself or through the Object property so G2antt1 is of  EXG2ANTTLibCtl.G2antt type. While in CodeView mode, you can press the F2 key to open the "Object Browser" where all libraries are listed.

Private Sub init(ByVal g As EXG2ANTTLibCtl.G2antt)
    With g
        .BeginUpdate
        .Columns.Add ("Tasks")
        With .Items
            .AddItem "Task 1"
            .AddItem "Task 2"
        End With
        .EndUpdate
    End With
End Sub

Private Sub Form_Load()
    init G2antt1
End Sub

• VFP. The name of the library is EXG2ANTTLib while the name of the main component is G2antt. The native object may be accessed through the Object property so G2antt1.Object is of  EXG2ANTTLib.G2antt type. Select Tools, Class Browser, Click Open, select the *.dll, and locate the exg2antt.dll file. The Class browser will display the component's library. 

LPARAMETER g

With g
    .BeginUpdate
    .Columns.Add ("Tasks")
    With .Items
        .AddItem("Task 1")
        .AddItem("Task 2")
    EndWith
    .EndUpdate
EndWith

thisform.initC(thisform.G2antt1)

• VB.NET ( /COM ). The name of the library is EXG2ANTTLib while the name of the main component is G2antt. The native object may be accessed through the GetOcx() method so G2antt1.GetOcx() is of  EXG2ANTTLib.G2antt type. Select the View\Class View and locate the Interop.EXG2ANTTLib assembly where you can find the component's library.

Private Sub init(ByVal g As EXG2ANTTLib.G2antt)
    With g
        .BeginUpdate()
        .Columns.Add("Tasks")
        With .Items
            .AddItem("Task 1")
            .AddItem("Task 2")
        End With
        .EndUpdate()
    End With
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Call init(AxG2antt1.GetOcx())
End Sub

• VB.NET ( /NET ). The name of the library is exontrol.EXG2ANTTLib while the name of the main component is exg2antt. The native object may be accessed through the object itself so it is of  exontrol.EXG2ANTTLib.exg2antt type. Select the View\Class View and locate the exontrol.exg2antt assembly where you can find the component's library.

Private Sub init(ByVal g As exontrol.EXG2ANTTLib.exg2antt)
    With g
        .BeginUpdate()
        .Columns.Add("Tasks")
        With .Items
            .AddItem("Task 1")
            .AddItem("Task 2")
        End With
        .EndUpdate()
    End With
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Call init(Exg2antt1)
End Sub

• VB.NET ( /WPF ). The name of the library is wpf.exontrol.EXG2ANTTLib while the name of the main component is exg2antt. The native object may be accessed through the object itself so it is of  wpf.exontrol.EXG2ANTTLib.exg2antt type. In the editor select the wpf.exontrol.EXG2ANTTLib.exg2antt and right click the selection, and from the submenu select the Go To Definition.  

Private Sub init(ByVal g As wpf.exontrol.EXG2ANTTLib.exg2antt)
    With g
        .BeginUpdate()
        .Columns.Add("Tasks")
        With .Items
            .AddItem("Task 1")
            .AddItem("Task 2")
        End With
        .EndUpdate()
    End With
End Sub

Private Sub Window1_Loaded(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Handles MyBase.Loaded
    Call init(Exg2antt1)
End Sub

• C# ( /COM ). The name of the library is EXG2ANTTLib while the name of the main component is G2antt. The native object may be accessed through the GetOcx() method so G2antt1.GetOcx() is of  EXG2ANTTLib.G2antt type. Select the View\Class View and locate the Interop.EXG2ANTTLib assembly where you can find the component's library.

private void init(EXG2ANTTLib.G2antt g)
{
    g.BeginUpdate();
    g.Columns.Add("Tasks");
    g.Items.AddItem("Task 1");
    g.Items.AddItem("Task 2");
    g.EndUpdate();
}
private void Form1_Load(object sender, EventArgs e)
{
    init(axG2antt1.GetOcx() as EXG2ANTTLib.G2antt);
}

• C# ( /NET ). The name of the library is exontrol.EXG2ANTTLib while the name of the main component is exg2antt. The native object may be accessed through the object itself so it is of  exontrol.EXG2ANTTLib.exg2antt type. Select the View\Class View and locate the exontrol.exg2antt assembly where you can find the component's library.

private void init(exontrol.EXG2ANTTLib.exg2antt g)
{
    g.BeginUpdate();
    g.Columns.Add("Tasks");
    g.Items.AddItem("Task 1");
    g.Items.AddItem("Task 2");
    g.EndUpdate();
}

private void Form1_Load(object sender, EventArgs e)
{
    init(exg2antt1);
}

• C# ( /WPF ). The name of the library is wpf.exontrol.EXG2ANTTLib while the name of the main component is exg2antt. The native object may be accessed through the object itself so it is of  wpf.xontrol.EXG2ANTTLib.exg2antt type. In the editor select the exg2antt1 and right click the selection, and from the submenu select the Go To Definition, and so on  

private void init(wpf.exontrol.EXG2ANTTLib.exg2antt g)
{
    g.BeginUpdate();
    g.Columns.Add("Tasks");
    g.Items.AddItem("Task 1");
    g.Items.AddItem("Task 2");
    g.EndUpdate();
}

private void Window_Loaded(object sender, RoutedEventArgs e)
{
    init(exg2antt1);
}

• C++ (6.0).  The ClassWizard generates the class CG2antt, for the component, so you may refer the component using this class. The same you can generate the wrapper classes using the #import <exg2antt.dl> as explained in the C++ ( 2005 )/

#include "Columns.h"
#include "Items.h"
void init( CG2antt& g )
{
	g.BeginUpdate();
	g.GetColumns().Add( "Tasks" );
	g.GetItems().AddItem( COleVariant("Task 1") );
	g.GetItems().AddItem( COleVariant("Task 2") );
	g.EndUpdate();
}

init(m_g2antt);

• C++ (2005,2008). The #import <exg2antt.dll> must be called somewhere in your code, so the EXG2ANTTLib namespace is defined. 

#import <exg2antt.dll>
void init( EXG2ANTTLib::IG2antt* pG )
{
	pG->BeginUpdate();
	pG->Columns->Add( _T("Tasks") );
	pG->Items->AddItem( _T("Task 1") );
	pG->Items->AddItem( _T("Task 2") );
	pG->EndUpdate();
}

init( (EXG2ANTTLib::IG2anttPtr)GetDlgItem( IDC_G2ANTT1 )->GetControlUnknown() );

• C++ Builder (2009).  The name of the namespace being generated is Exg2anttlib_tlb, and the init function can e defined as follows:

void TForm2::init( Exg2anttlib_tlb::TG2antt* pG )
{
	pG->BeginUpdate();
	pG->Columns->Add(L"Tasks", TNoParam() );
	pG->Items->AddItem(TVariant("Task 1"));
	pG->Items->AddItem(TVariant("Task 2"));
	pG->EndUpdate();
}

init(G2antt1);

• X++ (Dynamics Ax 2009). In x++. The type of any ActiveX component is COM. You can use the COM::createFromObject method to convert an object to a COM.

public void init()
{
	COM com_Items;
	anytype var_Items;
	;

	super();

	exg2antt1.BeginUpdate();
	exg2antt1.Columns().Add("Tasks");
	var_Items = exg2antt1.Items(); com_Items = var_Items;
		com_Items.AddItem("Task 1");
		com_Items.AddItem("Task 2");
	exg2antt1.EndUpdate();
}

• Delphi (2009). The name of the library is EXG2ANTTLib or EXG2ANTTLib_TLB, while the init procedure may be like follows:

procedure Init(G: TG2antt);
begin
 with G do
 begin
   BeginUpdate;
   Columns.Add('Tasks');
   with Items do
   begin
     AddItem('Task 1');
     AddItem('Task 2');
   end;
   EndUpdate;
 end;
end;

• Clarion. The program identifier of the library is Exontrol.G2antt.1, while the init procedure may be like follows

procedure Gantt.Init PROCEDURE(Window TheWindow,LONG ControlLabel,BYTE DebugMode = FALSE)
! Data
Loc:lX       LONG
Loc:lY       LONG
Loc:lWidth   LONG
Loc:lHeight  LONG
Loc:lParent  LONG

! Code
Loc:lParent = ControlLabel{PROP:Parent}
Loc:lX      = ControlLabel{PROP:XPos}
Loc:lY      = ControlLabel{PROP:YPos}
Loc:lWidth  = ControlLabel{PROP:Width}
Loc:lHeight = ControlLabel{PROP:Height}
Destroy(ControlLabel)
SELF.OleObject = Create(ControlLabel,CREATE:Ole,Loc:lParent)
IF ~SELF.OleObject then Return End
SELF.OleObject{PROP:Create} = 'Exontrol.G2antt.1'
If DebugMode = TRUE
  SELF.OleObject{PROP:ReportException} = TRUE
End
SELF.OleObject{PROP:Compatibility} = 1
SELF.OleObject{PROP:XPos}   = Loc:lX
SELF.OleObject{PROP:YPos}   = Loc:lY
SELF.OleObject{PROP:Width}  = Loc:lWidth
SELF.OleObject{PROP:Height} = Loc:lHeight
OcxRegisterEventProc(SELF.OleObject,ControlEventHandler)
SELF.OleObject{PROP:Hide} = FALSE
SELF.Initialized = TRUE
RETURN

• PowerBuilder (Classic). The type for any OLE Object is olecustomcontrol, while the init procedure may be like follows

// init( olecustomcontrol g ) returns (none)
OleObject oG2antt,var_Items

oG2antt = g.Object
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Tasks")
var_Items = oG2antt.Items
	var_Items.AddItem("Task 1")
	var_Items.AddItem("Task 2")
oG2antt.EndUpdate()

Add the new function init and defines one parameter of the olecustomcontrol, while in your code you should call such as init(ole_1). 

• dBASE Plus. dBASE does not require specifying the type for an OLE Object as it is found at running time. The native object for an ActiveX can be accessed through the nativeObject property. The init function may looks as follow:

function init(o)
   o.Columns.Add("Tasks")
   var_Items = o.Items
      var_Items.AddItem("Task 1")
      var_Items.AddItem("Task 2")
return

The init method can be called as follows:

function form_onOpen

    CLASS::init(form.Activex1.nativeObject)

return

• Visual DataFlex. VFD does not require specifying the type for an OLE Object as it is found at running time. The Self keyword inside the object class, determines the handle to work with as in the init function that follows:

Procedure init Handle g

    Variant vColumns
    Get ComColumns of g to vColumns
    Handle hoColumns
    Get Create (RefClass(cComColumns)) to hoColumns
    Set pvComObject of hoColumns to vColumns
    Get ComAdd of hoColumns "Tasks" to Nothing
    Send Destroy to hoColumns

    Variant vItems
    Get ComItems of g to vItems
    Handle hoItems
    Get Create (RefClass(cComItems)) to hoItems
    Set pvComObject of hoItems to vItems
    Get ComAddItem of hoItems "Task 1" to Nothing
    Get ComAddItem of hoItems "Task 2" to Nothing
    Send Destroy to hoItems
    
End_Procedure

The init method can be called as follows:

Procedure OnCreate
        Forward Send OnCreate
        
        Send init Self

End_Procedure

• Xbase++ It does not require specifying the type for an OLE Object as it is found at running time:

PROCEDURE _init( oControl )
    oControl:BeginUpdate()
    oControl:Columns:Add("Tasks")
    oControl:Items:AddItem("Task 1")
    oControl:Items:AddItem("Task 2")
    oControl:EndUpdate()
RETURN

The _init method can be called as follows:

#include "AppEvent.CH"
#PRAGMA LIBRARY( "ASCOM10.LIB" ) // Include the Automation Support Library

PROCEDURE Main

  LOCAL oForm, oControl
  LOCAL nEvent
  LOCAL mp1 := NIL, mp2 := NIL, oXbp := NIL

  oForm := XbpDialog():new( AppDesktop() )
  oForm:drawingArea:clipChildren := .T.
  oForm:create( ,,{100,100}, {640,480},, .F. )
  oForm:close  := {|| PostAppEvent( xbeP_Quit )}

    oControl := XbpActiveXControl():new( oForm:drawingArea )
    oControl:CLSID  := "Exontrol.G2antt"
    oControl:create(,, {10,60},{610,370} )

    _init( oControl )

  oForm:Show()

  nEvent := 0
  DO WHILE nEvent != xbeP_Quit
    nEvent := AppEvent( @mp1, @mp2, @oXbp )
    oXbp:handleEvent( nEvent, mp1, mp2 )
  ENDDO

RETURN

• Access. The Object method of the G2antt1 object gets the native or the original component. 

Private Sub callPreview()
    With Print1
        Set .PrintExt = G2antt1.Object
        .preview
    End With
End Sub

• Excel. The following code displays a print preview of the control's content.

Private Sub callPreview()
      With Print1
          Set .PrintExt = G2antt1
          .Preview
      End With
  End Sub

• VB6. The Object method of the G2antt1 object gets the native or the original component. 

Private Sub callPreview()
    With Print1
        Set .PrintExt = G2antt1.Object
        .Preview
    End With
End Sub

• VFP. The Object method of the G2antt1 object gets the native or the original component. 

with thisform.Print1
	.PrintExt = thisform.G2antt1.Object
	.Preview
endwith

• VB.NET ( /COM ). The GetOcx method of the G2antt1 object gets the native or the original component. 

Private Sub callPreview()
    With AxPrint1
        .PrintExt = AxG2antt1.GetOcx()
        .Preview()
    End With
End Sub

• VB.NET ( /NET ). 

Private Sub callPreview()
    With Exprint1
        .PrintExt = Exg2antt1
        .Preview()
    End With
End Sub

• VB.NET ( /WPF ). Declares and initializes a member exprint of  exontrol.EXPRINTLib.exprint type, as in the following code

Private exprint As exontrol.EXPRINTLib.exprint = New exontrol.EXPRINTLib.exprint()

Private Sub callPreview()
    With exprint
        .PrintExt = Exg2antt1
        .Preview()
    End With
End Sub

• C# ( /COM ). The GetOcx method of the G2antt1 object gets the native or the original component. 

private void callPreview()
{
    axPrint1.PrintExt = axG2antt1.GetOcx();
    axPrint1.Preview();

}

• C# ( /NET ). 

private void callPreview()
{
    exprint1.PrintExt = exg2antt1;
    exprint1.Preview();
}

• C# ( /WPF ). Declares and initializes a member exprint of  exontrol.EXPRINTLib.exprint type, as in the following code:

exontrol.EXPRINTLib.exprint exprint = new exontrol.EXPRINTLib.exprint();

private void callPreview()
{
    exprint.PrintExt = exg2antt1;
    exprint.Preview();
}

• C++ (6.0). The m_print member of the CWindowMFCDlg class, is of CExPrint type ( which has been defined by the class wizard ). The m_g2antt member is of CG2antt type that has been defined by the class wizard. The GetControlUnknown method retrieves a pointer to IUnknown interface being implemented by the original component, which is the pointer required by the PrintExt method before calling the Preview or DoPrint method of the eXPrint component.

void CWindowMFCDlg::callPreview()
{
	m_print.SetPrintExt( m_g2antt.GetControlUnknown() );
	m_print.Preview();
}

• C++ (2005,2008). The m_print member of the CWindowMFCDlg class, is of CExPrint type ( which has been defined by the class wizard ). The m_g2antt member is of CG2antt type that has been defined by the class wizard. The GetControlUnknown method retrieves a pointer to IUnknown interface being implemented by the original component, which is the pointer required by the PrintExt method before calling the Preview or DoPrint method of the eXPrint component.

void CWindowMFCDlg::callPreview()
{
	m_print.put_PrintExt( m_g2antt.GetControlUnknown() );
	m_print.Preview();
}

• C++ Builder (2009). The DefaultDispatch function of the TOleControl retrieves the original object, so it can be passed to PrintExt function of the eXPrint in order to print or print preview the component, as seen in the callpreview function:

void TForm1::callPreview()
{
	Print1->PrintExt = G2antt1->DefaultDispatch;
	Print1->Preview();
}

• X++ (Dynamics Ax 2009). The PrintExt function of the eXPrint component must point to the object to be printed. The following sample shows the print-preview for the exg2antt1 component.

void callPreview()
{
    anytype var_object;
    ;

    var_object = exg2antt1;
    exprint1.PrintExt(var_object);
    exprint1.Preview();
}

• Delphi (2009). The DefaultDispatch function of the TOleControl retrieves the original object, so it can be passed to PrintExt function of the eXPrint in order to print or print preview the component, as seen in the callpreview function:

procedure callPreview(P : TPrint; G : TG2antt);
begin
with P do
begin
 PrintExt := G.DefaultDispatch;
 Preview();
end;
end;

callPreview( Print1, G2antt1 );

• Clarion. Code under ?PrintThis button, with some properties:

 ?Print{'Settings(10)'} = 1
 ?Print{'PrintExt'} = ?Gantt{PROP:Object}            ! If we going to print ExG2antt
 ?Print{'AsScreen'} = False                          ! Sometimes makes problems under Terminal services
 ?Print{'PageOrientation'} = 2
 ?Print{'Caption'} = 'Some text'
 ?Print{'Settings(6)'} = 1500
 ?Print{'Settings(7)'} = 1500
 ?Print{'Settings(8)'} = 1500
 ?Print{'Settings(9)'} = 1500
 ?Print{'Font.Name'}   = 'Arial'
 ?Print{'Font.Size'}   = 9
 ?Print{'Preview'}

• PowerBuilder (Classic). The Object property of the control (OLECustomControl) returns the OLE object to be passed to PrintExt property of the eXPrint like in the following code:

Defines the callPreview new function with one argument g of OLECustomControl type. The print object indicates the name of the eXPrint in the Window. The following code, can be used when the ExPrint is added in design mode, to the Layout page:

// callPreview( olecustomcontrol g ) returns (none)
OLEObject oPrint

oPrint = print.Object
oPrint.PrintExt = g.Object
oPrint.Preview()

The following callPreview function uses the eXPrint being created at runtime. Declare the OLEObject oPrint in the Instance Variables page, so the oPrint is known at the time the callPreview is called, so the callPreview looks as follows:

// callPreview( olecustomcontrol g ) returns (none)

oPrint = CREATE OLEObject
oPrint.ConnectToNewObject("Exontrol.Print")

oPrint.PrintExt = g.Object
oPrint.Preview()

The callPreview(ole_1) should be called to invoke the print-preview of ole_1 object. In this case the ole_1 is the ExG2antt component hosted in the Window.

• dBASE Plus. The nativeObject property of the control (ActiveX) returns the OLE object to be passed to PrintExt property of the eXPrint like in the following code:

Defines the preview new method with one argument g. The OEXPRINT object indicates the name of the eXPrint in the form. The following code, can be used when the ExPrint is added in design mode, to the form:

function callPreview(o)
   local oPrint
   oPrint = form.OEXPRINT.nativeObject
      oPrint.PrintExt = o
      oPrint.Preview()
return

while, the following call can be used to print and print-preview the control :

CLASS::callPreview(form.Activex1.nativeObject)

where the ActiveX1 is the name of the control to be printed, in this case is the ExG2antt Chart ActiveX Control.

The following preview function uses the eXPrint being created at runtime. Declare the public oPrint in as a global variable, so the oPrint is known at the time the preview is called, so the method shows as follows:

function callPreview(o)
   oPrint = new OleAutoClient("Exontrol.Print")
      oPrint.PrintExt = o
      oPrint.Preview()
return

while, the following call can be used to print and print-preview the control :

CLASS::callPreview(form.Activex1.nativeObject)

where the ActiveX1 is the name of the control to be printed, in this case is the ExG2antt Chart ActiveX Control.

• Visual DataFlex. The simplest way to call the Print and Print/Preview for the component, is using the Template property of the control as in the following sample

Defines the preview procedure as follows:

Procedure preview Handle g

    Set ComTemplate of g to "dim p;p=CreateObject(`Exontrol.Print`);p.AutoRelease=False;p.PrintExt=Me;p.Preview()"
    
End_Procedure

while, the following call can be used to print and print-preview the control :

Send preview Self

where the Self indicates the handle of the control to be printed, in this case is the ExG2antt Chart ActiveX Control ( oComG2antt ). This method does not require importing the "ExPrint 1.0 Control Library ( version 1.0 )" to your workspace.

The following method requires, importing the "ExPrint 1.0 Control Library ( version 1.0 )" to your workspace. Check how you imported the  "ExG2antt 1.0 Control Library (version 1.0)" and do the same.

Procedure preview Variant g
    
    Handle hoPrint
    Get Create (RefClass(cComPrint)) to hoPrint
    Set ComAutoRelease of hoPrint to True
    Set ComPrintExts of hoPrint to g
    Send ComPreview of hoPrint
    //Send Destroy to hoPrint   // Prevents closing the Print object, so the Preview will not be shown. AutoRelease will release the object once the Close button is pressed
    
End_Procedure

while, the following call can be used to print and print-preview the control :

Send preview (pvComObject(Self))

where the Self indicates the handle of the control to be printed, in this case is the ExG2antt Chart ActiveX Control ( oComG2antt ).

• Xbase++ The simplest way to call the Print and Print/Preview for the component, is using the Template property of the control as in the following sample

Defines the preview procedure as follows:

PROCEDURE _preview( oControl )
   oControl:Template := "dim p;p=CreateObject(`Exontrol.Print`);p.AutoRelease=False;p.PrintExt=Me;p.Preview()"
RETURN

while, the following call can be used to print and print-preview the control :

_preview( oControl )

where the oControl indicates the control to be printed, in this case is the ExG2antt Chart ActiveX Control ( oControl ). This method does not require creating the "ExPrint 1.0 Control Library ( version 1.0 )" to your project.

The following method requires, creating and using the Preview method of the the "ExPrint 1.0 Control Library ( version 1.0 )" object.

PROCEDURE _preview( oPrint, oControl )
   oPrint:AutoRelease := .F.
   oPrint:PrintExt := oControl
   oPrint:Preview()
RETURN

while, the following call can be used to print and print-preview the control :

_preview( oPrint, oControl )

where the oControl indicates the the control to be printed, in this case is the ExG2antt Chart ActiveX Control ( oControl ), and the oPrint is the "ExPrint 1.0 Control Library ( version 1.0 )" object created using the following code:

oPrint := XbpActiveXControl():new( oForm:drawingArea )
oPrint:CLSID  := "Exontrol.Print"
oPrint:create()

BeginUpdate()
Chart
{
	FirstVisibleDate = #1/1/2008#
	LevelCount = 2
	Level(0)
	{
		Label = `<b><%mmmm%></b> <%yyyy%>`
		Unit = 16
	}
	OverviewVisible = True
	HistogramVisible = True
	HistogramView = 4
	HistogramHeight = 32
	Bars(`Task`).HistogramPattern = 2
}
Columns.Add(`Tasks`).Def(0) = True
Items
{
	Dim h1, h2
	h1 = AddItem(`Task 1`)
	AddBar(h1, `Task`, #1/2/2008#, #1/5/2008#)
	h2 = AddItem(`Task 1`)
	AddBar(h2, `Task`, #1/4/2008#, #1/8/2008#)
	AddLink(`LKey`,h1,``,h2,``)
}
EndUpdate()  

• Access. Select the component in design mode, Right Click, and then Select the Build Event. Select the G2antt1 component in the first drop down list, and in the second drop down list, select the CellStateChanged. The right syntax for the selected event is being generated and added to the code.

Private Sub G2antt1_CellStateChanged(ByVal Item As Long, ByVal ColIndex As Long)
    If Not (G2antt1.Items.CellState(Item, ColIndex) = 0) Then
        MsgBox "Check"
    End If
End Sub

• Excel. Navigate to the code editor and add a handler for the CellStateChanged event. To do this, select G2antt1 from the left dropdown menu and choose CellStateChanged from the right dropdown menu. The appropriate syntax for the selected event will be automatically generated and inserted into your code.

Private Sub G2antt1_CellStateChanged(ByVal Item As EXG2ANTTLib.HITEM, ByVal ColIndex As Long)
    If Not (G2antt1.Items.CellState(Item, ColIndex) = 0) Then
        MsgBox "Check"
    End If
End Sub

• VB6. In design mode, select the component, double click it. Select the G2antt1 component in the first drop down list, and in the second drop down list, select the CellStateChanged. The right syntax for the selected event is being generated and added to the code. 

Private Sub G2antt1_CellStateChanged(ByVal Item As EXG2ANTTLibCtl.HITEM, ByVal ColIndex As Long)
    If Not (G2antt1.Items.CellState(Item, ColIndex) = 0) Then
        MsgBox "Check"
    End If
End Sub

• VFP. In design mode, select the component, double click it. Select the G2antt1 component in the first drop down list ( Object ), and in the second drop down list ( Procedure ), select the CellStateChanged. The right syntax for the selected event is being generated and added to the code.

*** ActiveX Control Event ***
LPARAMETERS item, colindex

if ( thisform.G2antt1.Items.CellState(item,colindex) # 0 )
	wait "Check" window nowait
endif

• VB.NET ( /COM ). Select the component in design mode, Click the Events page, in the Properties toolbox. Locate the CellStateChanged item in the list, and double click it. 

Private Sub AxG2antt1_CellStateChanged(ByVal sender As System.Object, _
                                       ByVal e As AxEXG2ANTTLib._IG2anttEvents_CellStateChangedEvent) _
                                       Handles AxG2antt1.CellStateChanged
	If Not (AxG2antt1.Items.CellState(e.item, e.colIndex) = 0) Then
		MessageBox.Show("Check ")
	End If
End Sub

• VB.NET ( /NET ). Select the component in design mode, Click the Events page, in the Properties toolbox. Locate the CellStateChanged item in the list, and double click it. 

Private Sub Exg2antt1_CellStateChanged(ByVal sender As System.Object, _
                                       ByVal Item As System.Int32, ByVal ColIndex As System.Int32) _
                                       Handles Exg2antt1.CellStateChanged
	If Not (Exg2antt1.Items.get_CellState(Item, ColIndex) = 0) Then
		MessageBox.Show("Check")
	End If
End Sub

• VB.NET ( /WPF ). You can add a handler for a specified event in 2 ways. The first, go to Window1.xaml, select the my:exg2antt tag, and got to the end before /> and type space or start typing CellState... The editor opens the list or events that you can handle, once you locate the proper one, press the TAB key twice, so the code CellStateChanged="Exg2antt1_CellStateChanged" will be added to the xaml code. In this moment, the Window1.xaml.vb code includes the definition for CellStateChanged event. The second option to add a new handler for a specified event, is: Go to Window1.xaml.vb code, in the left top side you should drop down the objects being hosted by the Window1, so click the left drop down, and select the Exg2antt1 node. The top-right field should display (Declarations), there click the drop down button, and click the desired event. An empty handler for selected event is being added to the vb code. 

Private Sub Exg2antt1_CellStateChanged(ByVal sender As System.Object, ByVal Item As System.Int32, ByVal ColIndex As System.Int32)
    If Not (Exg2antt1.Items.get_CellState(Item, ColIndex) = 0) Then
        MessageBox.Show("Check")
    End If
End Sub

• C# ( /COM ). Select the component in design mode, Click the Events page, in the Properties toolbox. Locate the CellStateChanged item in the list, and double click it. 

private void axG2antt1_CellStateChanged(object sender, AxEXG2ANTTLib._IG2anttEvents_CellStateChangedEvent e)
{
    if (axG2antt1.Items.get_CellState(e.item, e.colIndex) != 0)
        MessageBox.Show("Check");
}

• C# ( /NET ). Select the component in design mode, Click the Events page, in the Properties toolbox. Locate the CellStateChanged item in the list, and double click it. 

private void exg2antt1_CellStateChanged(object sender, int Item, int ColIndex)
{
    if (exg2antt1.Items.get_CellState(Item, ColIndex) != 0)
        MessageBox.Show("Check");
}

• C# ( /WPF ). Go to Window1.xaml, select the my:exg2antt tag, and got to the end before /> and type space or start typing CellState... The editor opens the list or events that you can handle, once you locate the proper one, press the TAB key twice, so the code CellStateChanged="exg2antt1_CellStateChanged" will be added to the xaml code. In this moment, the Window1.xaml.cs code includes the definition for CellStateChanged event. 

private void exg2antt1_CellStateChanged(object sender, int Item, int ColIndex)
{
    if (exg2antt1.Items.get_CellState(Item, ColIndex) != 0)
        MessageBox.Show("Check");
}

• C++ (6.0). Select the component in design mode, Right click, and select Events in the shortcut menu. The Windows Message and Event Handlers for class dialog is opened. Locate the CellStateChanged item in the Window messages/events and click the Add and Edit button. Confirm the name of the member function, and click OK button.

void CWindowMFCDlg::OnCellStateChangedG2antt1(long Item, long ColIndex) 
{
	if ( m_g2antt.GetItems().GetCellState( COleVariant( Item ), COleVariant( ColIndex ) ) != 0 )
		AfxMessageBox( "Check" );
	
}

• C++ (2005,2008). Select the component in design mode, Right click, and select Add Event Handler in the shortcut menu. The Event Handler Wizard dialog is opened. Locate and select the CellStateChanged item in the Message Type listbox, click the Add and Edit button. In the following sample we have used, the #import <exg2antt.dll> so the control's type library is included in the project, so the EXG2ANTTLib namespace is defined. The EXG2ANTTLib namespace defines all objects, properties and method of the control. The class wizard has inserted only a class definition for the main object, not for all the objects being exposed by the component.

#import <exg2antt.dll>
void CWindowMFCDlg::CellStateChangedG2antt1(long Item, long ColIndex)
{
	EXG2ANTTLib::IItemsPtr spItems = m_g2antt.get_Items();
	if ( spItems != NULL )
		if ( 0 != spItems->CellState[ CComVariant( Item ), CComVariant( ColIndex ) ] )
			AfxMessageBox( _T("Check") );
}

• X++ (Dynamics Ax 2009). In the AOT window, select the Form that hosts our component. Expand it, so you can locate the Designs\Design\ActiveX:exg2antt1. Right click the exg2antt node ( under the Design node ),  and select the ActiveX Explorer from the submenu, so the list of events and methods for the ExG2antt component is displayed. In the Event tab locate the event you need to handle, in our case search for void onEvent_CellStateChanged(int _Item, int _ColIndex) and click the Add and after that Edit buttons so the new event handler is being added:

// Fired after cell's state has been changed.
void onEvent_CellStateChanged(int _Item, int _ColIndex)
{
    ;
    if ( exg2antt1.Items().CellState(_Item,_ColIndex) != 0 )
        Global::info("Check");
}

• Clarion. Assumes that Event handler is checked. Go to OLE Event Handler and enter this code:

 LOOP OLE:Count = 1 TO OCXGETPARAMCOUNT(ref)
   OLE:Parametar = OCXGETPARAM(ref,OLE:Count)
 END

         CASE OLEControlFEQ{PROP:LastEventName}
         OF 'CellStateChanged'
         CASE OLE:Count
         OF 1
           OLE:Item = OLE:Parametar
         OF 2
           OLE:ColIndex = OLE:Parametar
         END

         IF NOT OLEControlFEQ{mc:Items&'.CellState('&OLE:Item&', '&OLE:ColIndex&')'} = 0
           MESSAGE('Check')
         End 

• PowerBuilder (Classic). Select the component (ole_1 ) in the Layout page ( Window ), and go to the Event List page, look for cellstatechanged( long item, long colindex ) returns (none), and double click it, so the script window is opened. Paste there the following code: 

//cellstatechanged( long item, long colindex )

OLEObject oG2antt

oG2antt = ole_1.Object
if ( oG2antt.Items.CellState(item,colindex) <> 0 ) then
	MessageBox("info","check")
end if

• dBASE Plus. Select the component (ActiveX1 ) in the design mode ( Form Designer ), and go to the "Inspector" tool, click the Events page, and select the form.activex1.nativeobject in the object field to be browsed, so the internal events are displayed, and look for CellStateChanged and add a handler for it, so the function nativeObject_CellStateChanged(Item, ColIndex) is added to your code. Next, paste there the following code: 

function nativeObject_CellStateChanged(Item, ColIndex)
   local oG2antt
   oG2antt = form.Activex1.nativeObject
   if ( oG2antt.Items.CellState(Item,ColIndex) <> 0 )
      msgbox("check")
   endif       
return

When you add the handler using the Inspector, the dBASE add also the following code:

with (this.ACTIVEX1.nativeObject)
  CellStateChanged = class::NATIVEOBJECT_CELLSTATECHANGED
endwith

• Visual DataFlex. Switch to Designer, select the component, and locate the Events page on the Properties browser. The events provided by the component starts with OnCom, so select the OnComCellStateChanged event and double click it so an empty handler is added to your code. Next, paste the following code: 

Procedure OnComCellStateChanged HITEM llItem Integer llColIndex
    Forward Send OnComCellStateChanged llItem llColIndex
    Variant vItems
    Get ComItems to vItems
    Handle hoItems
    Get Create (RefClass(cComItems)) to hoItems
    Set pvComObject of hoItems to vItems
    Integer c
    Get ComCellState of hoItems llItem llColIndex to c
    Send Destroy to hoItems
    If (not ( c = 0 )) Begin
        Send Info_Box "click"
    End
End_Procedure

Thanks to Bernhard Ponemayr, from Comtech IT Systeme, Austria, who provided help for syntax of Visual DataFlex.

• Xbase++. Go to Main procedure, and add the handler for control's CellStateChanged event as defined event CellStateChanged (Item as HITEM, ColIndex as Long), in the control's help file, like follows:

...
oControl:cellStateChanged := { | Item, ColIndex | OnCellStateChanged(oControl,Item,ColIndex) }
...

and define the OnCellStateChanged procedure like follows:

PROCEDURE OnCellStateChanged( oControl,Item,ColIndex )
   IF oControl:Items:CellState(Item,ColIndex) <> 0
      MsgBox( "Check" )
   ENDIF
RETURN

If you need to add any other event for the component, you should check the definition of the event in the control's help file ( exg2antt.chm, for instance ), and provide the parameters of the events as between ||, and the rest in the events body between {} paranthesis.