Attachment 691 Details for Bug 1740 – Sample of my Teechart setup

Steema Issues Database

Note: This database is for bugs and wishes only. For technical support help, if you are a customer please visit our online forums;
otherwise you can use StackOverflow.
Before using this bug-tracker we recommend a look at this document, Steema Bug Fixing Policy.

Sample of my Teechart setup

MyTeeChart.cpp (text/plain), 9.42 KB, created by Mike Dawn on 2017-01-06 17:12:13 EST

(hide)

Description:

Filename:

MIME Type:

Creator: Mike Dawn

Created: 2017-01-06 17:12:13 EST

Size: 9.42 KB

patch

obsolete

>// SpectralTeeChart.cpp: implementation of the CTeeChart class.
>//
>//////////////////////////////////////////////////////////////////////
>
>#include "stdafx.h"
>#include "SpectralTeeChart.h"
>
>#ifdef _DEBUG
>#undef THIS_FILE
>static char THIS_FILE[]=__FILE__;
>#define new DEBUG_NEW
>#endif
>
>#define SMALL_VALD   ((double)(-1.0f * HUGE_VALD))
>
>//////////////////////////////////////////////////////////////////////
>// Construction/Destruction
>//////////////////////////////////////////////////////////////////////
>
>CTeeChart::CTeeChart(tchartNS::ITChartPtr pChart)
>{
>	m_pChart = pChart;
>}
>
>CTeeChart::~CTeeChart()
>{    
>    m_pChart->Series(0)->Clear();     // delete all series values
>    m_pChart = NULL;   // let COM smart pointer do clean up
>
>}
>
>////////////////////////////////////////////////////////////////////////////
>// Method name	: Intialize
>//
>////////////////////////////////////////////////////////////////////////////
>BOOL CTeeChart::Initialize(CDataArray* pData, CString strAxisCaption)
>{
>	m_pData = pData;
>	
>	m_pDisplayArray = new CDisplayArray(m_pData);
>
>	GetDataFillArray();
>
>	//set up colors for the back wall and zoom line
>	m_pChart->GetWalls()->GetBack()->PutTransparent(FALSE);
>	m_pChart->GetWalls()->GetBack()->PutColor(RGB(255,255,255));
>	//
>	m_pChart->GetZoom()->GetPen()->PutColor(RGB(0,0,0));
>
>	//set axis labels
>	if(!SetXAxisCaption(strAxisCaption))
>	{
>		return FALSE;
>	}
>
>	if(!SetYAxisCaption("Magnitude"))
>	{
>		return FALSE;
>	}	
>
>	m_nCurrentIndex = m_pData->GetRows();
>	//initialize to 1/2 way
>	if(m_nCurrentIndex % 2)//test for odd or even
>	{
>		m_nCurrentIndex /= 2;
>		m_nCurrentIndex--;
>	}
>	else
>	{
>		m_nCurrentIndex /= 2;
>	}
>
>	if(!Plot(m_nCurrentIndex))     // Teechart plot graph
>	{
>		return FALSE;
>	}
>    AutoScaleGraph(TRUE);      // Auto scale initial data plot to fit
>                               // Teetchart hasn't updated internal ActiveX value yet
>                               // used default series Y value max/min
>
>    AddCursor(1);
>
>    m_pChart->Tools->Add(tchartNS::tcAxisScroll);
>    m_pChart->Tools->Items[0]->asAxisScroll->PutAxis(0);
>    m_pChart->GetAxis()->GetLeft()->PutTickLength(12);
>    m_pChart->GetAxis()->GetBottom()->PutTickLength(12);
>
>	return TRUE;
>}
>
>////////////////////////////////////////////////////////////////////////////
>// Method name	: AddCursor
>////////////////////////////////////////////////////////////////////////////
>void CTeeChart::AddCursor(int nCursor)
>{
>	if(m_pData)
>	{
>		//get tool list
>		tchartNS::IToolListPtr pToolList(m_pChart->GetTools());
>		
>		if(nCursor == 1)
>		{
>
>			//get 1st cursor
>			m_lCursor1 = pToolList->Add((tchartNS::EToolClass)tcCursor);
>			tchartNS::IToolsPtr pToolsPtr(pToolList->GetItems(m_lCursor1));
>			m_pCursor = pToolsPtr->GetasTeeCursor();            
>            m_pCursorLine1 = pToolsPtr->GetasDrawLine();
>            
>			//
>			m_pCursor->PutStyle((tchartNS::ECursorToolStyle)cssVertical);
>			m_pCursor->GetPen()->PutEndStyle((tchartNS::EPenEndStyle)esFlat);
>			m_pCursor->GetPen()->PutColor(RGB(0,120,0));
>			m_pCursor->PutSnap(VARIANT_TRUE);
>			//cursor width
>			m_dCursor1WidthPixel = 0;
>			if (m_bCursor1Visible)
>				m_pCursor->GetPen()->PutWidth((long)m_dCursor1WidthPixel);
>			//cursor position - 1/2 way on graph
>			m_dCurrentCursorPosition = SetInitialCursorPosition(1,m_dStopSpectral,m_dStartSpectral);
>			//
>			m_bCursor1Visible = TRUE;
>		}
>
>	}
>
>}
>
>////////////////////////////////////////////////////////////////////////////
>// Method name	: RemoveCursor
>////////////////////////////////////////////////////////////////////////////
>void CTeeChart::RemoveCursor(int nCursor)
>{
>	if(m_pData)
>	{
>        //get tool list
>        tchartNS::IToolListPtr pToolList(m_pChart->GetTools());
>
>		if(nCursor == 1)
>		{
>			//remove cursor
>			pToolList->Delete(m_lCursor1);
>			m_bCursor1Visible = FALSE;
>            Plot(m_nCurrentIndex);
>		}
>	}
>}
>
>////////////////////////////////////////////////////////////////////////////
>// Method name	: SetInitialCursorPosition
>////////////////////////////////////////////////////////////////////////////
>double CTeeChart::SetInitialCursorPosition(int nCursor, double dMax, double dMin)
>{
>
>	double dCur = (((dMax - dMin)/2) + dMin)-(m_dIncrementSpectral);
>	
>	if(nCursor == 1)
>	{
>		m_pCursor->put_XVal(dCur); 
>		m_pCursor->PutXVal(dCur); 
>	}
>
>	return dCur;	
>}
>
>////////////////////////////////////////////////////////////////////////////
>// Method name	: PutAutoScale
>////////////////////////////////////////////////////////////////////////////
>void CTeeChart::PutAutoScale(BOOL bState)
>{
>	m_bAutoScale = bState;  // storage flag for zoom event to scale Y-axis. 
>
>    AutoScaleGraph();
>}
>
>
>////////////////////////////////////////////////////////////////////////////
>// Method name	: Plot
>//
>// Description	: Plots the data points on the  TeeChart graph
>////////////////////////////////////////////////////////////////////////////
>BOOL CTeeChart::Plot(int nIndex)
>{
>	m_pChart->Series(0)->Clear();
>
>	VARIANT* vY = new VARIANT;
>	vY->vt = VT_ARRAY | VT_R8;
>	VARIANT* vX = new VARIANT;
>	vX->vt = VT_ARRAY | VT_R8;
>
>	long lSize = 0;
>
>	m_pDisplayArray->BuildDisplayArray(nIndex,lSize,*vY,*vX);
>
>	m_pChart->Series(0)->AddArray(lSize,*vY,*vX);
>
>	delete vY;
>	delete vX;
>
>    AutoScaleGraph();      // Auto scale initial data plot to fit
>                           // just scale what Teechart zoom updated
>
>	return TRUE;	
>}
>
>
>
>void CTeeChart::OnOnZoomTchartSpectral()
>{    
>    AutoScaleGraph();
>}
>
>void CTeeChart::OnOnUndoZoomTchartSpectral()
>{    
>    AutoScaleGraph();
>}
>
>void CTeeChart::OnOnScrollTchartSpectral()
>{
>    AutoScaleGraph();
>}
>
>void CTeeChart::AutoScaleGraph(bool bInitialGraphScale /*=false */)
>{
>    double dMinValue = HUGE_VALD;
>    double dMaxValue = SMALL_VALD;
>    const float fPercentPad = 0.05f;
>
>    if (bInitialGraphScale)      // Initial graph setup and scale
>    {
>        // Initial graph setup, must manual setup scale from Y-values (min/max)
>        for (int i = 0; i < m_pChart->GetSeriesCount(); i++)
>        {
>            double dMinYInSeries = HUGE_VALD;
>            double dMaxYInSeries = SMALL_VALD;
>            tchartNS::IValueListPtr pXValueList = m_pChart->GetaSeries(i)->GetXValues();
>            tchartNS::IValueListPtr pYValueList = m_pChart->GetaSeries(i)->GetYValues();
>            for (int j = 0; j < pXValueList->GetCount(); j++)
>            {
>                double dYValue = pYValueList->GetValue(j);
>                dMinYInSeries = min(dYValue, dMinYInSeries);
>                dMaxYInSeries = max(dYValue, dMaxYInSeries);
>                //TRACE("dYValue=%f dMinValue=%f dMaxValue=%f\n", dYValue, dMinYInSeries, dMaxYInSeries);
>            }
>            dMinValue = min(dMinYInSeries, dMinValue);
>            dMaxValue = max(dMaxYInSeries, dMaxValue);
>            //TRACE("dMinValue=%f dMaxValue=%f\n", dMinValue, dMaxValue);
>        }
>        // Add Y-Axis padding 5%        
>        float fScalePad = (float)((dMaxValue - dMinValue) * fPercentPad);
>        dMinValue -= fScalePad;
>        dMaxValue += fScalePad;
>        //Scale Y-axis to fit the zoom graph
>        m_pChart->GetAxis()->GetLeft()->SetMinMax(dMinValue, dMaxValue);
>    }
>    else if (m_bAutoScale)    // Auto scale On
>    {   
>        // User Zoom in using rectangle selection, the X-Axis already scale in range
>        // the Y-Axis must manual scale and 5% pad, so the graph plot fit into Teechart nicely
>        double dStartX = m_pChart->GetAxis()->GetBottom()->GetMinimum();
>        double dEndX = m_pChart->GetAxis()->GetBottom()->GetMaximum();
>        for (int i = 0; i < m_pChart->GetSeriesCount(); i++)
>        {
>            double dMinYInSeries = HUGE_VALD;
>            double dMaxYInSeries = SMALL_VALD;
>            tchartNS::IValueListPtr pXValueList = m_pChart->GetaSeries(i)->GetXValues();
>            tchartNS::IValueListPtr pYValueList = m_pChart->GetaSeries(i)->GetYValues();
>            for (int j = 0; j < pXValueList->GetCount(); j++)
>            {
>                // Determine the Y min/max in range from giving X select range values
>                if ((pXValueList->GetValue(j) >= dStartX) && (pXValueList->GetValue(j) <= dEndX))
>                {
>                    double dYValue = pYValueList->GetValue(j);
>                    dMinYInSeries = min(dYValue, dMinYInSeries);
>                    dMaxYInSeries = max(dYValue, dMaxYInSeries);
>                    //TRACE("dYValue=%f dMinValue=%f dMaxValue=%f\n", dYValue, dMinYInSeries, dMaxYInSeries);
>                }
>
>            }
>            dMinValue = min(dMinYInSeries, dMinValue);
>            dMaxValue = max(dMaxYInSeries, dMaxValue);
>            //TRACE("dMinValue=%f dMaxValue=%f\n", dMinValue, dMaxValue);
>        }
>        // Add Y-Axis padding 5%        
>        float fScalePad = (float)((dMaxValue - dMinValue) * fPercentPad);
>        dMinValue -= fScalePad;
>        dMaxValue += fScalePad;
>        //Scale Y-axis to fit the zoom graph
>        m_pChart->GetAxis()->GetLeft()->SetMinMax(dMinValue, dMaxValue);
>    }
>    else     // user zoom in based on user select rectangle; don't pad axis (auto scale off)
>    {
>        //TRACE("OnZoom: xMin=%f xMax=%f\n", m_pChart->GetAxis()->GetBottom()->GetMinimum(), m_pChart->GetAxis()->GetBottom()->GetMaximum());
>        m_pChart->GetAxis()->GetLeft()->SetMinMax(m_pChart->GetAxis()->GetLeft()->GetMinimum(), m_pChart->GetAxis()->GetLeft()->GetMaximum());
>    }
>}
>

Actions: View

Attachments on bug 1740: 691