teechart教程

『肆』 如何用TeeChart画二维成像图

用 TeeChart 画二维成像图 这儿说的二维图，指的是类似 Matlab 的 imagesc 这种命令画出来的图像，用颜 色来表示数据的大小或者说强弱。简单地说，就是一个二维数组，里面存放的数 据用颜色来表示。做雷达 SAR 图像、ISAR 图像经常要用这个来显示。对比了多 款图表，最后总结出 TeeChart 可以完成这个功能。 附 TeeChart 下载 我用的是 Series 中的 3D->Colorgrid 步骤： （1）在 VC 界面上添加了 Teechart 控件之后，手动添加 Series，它会自动命名 为 Series0、Series1。多个 Series，会依次从上往下排列。 注意：这个名字中的 0/1 跟排名没有关系，即你可以吧 Series1 移到 Series0 之前。最终代码中的 m_tchart.Series(0)，这个 0 指的是在 Series 列表中第一 项！ 而并不一定是名字叫做 Series0 的那项！ ！ 类似地， m_tchart.Series(1) 指 的是排名第二的那个曲线，跟名字无关。 （2） 添加这个 Series， 选择的类型是 3D->Colorgrid。 添加完毕后出现在 Series 列表里头，双击可以编辑一些属性。例如 Grid 3D->Range，可以选择你想要的 用来表示数值大小的颜色类型（Start,middle,end）。 （3）可以根据需要编辑 tchart 的显示属性，在此不详述。 （4）添加代码： COleSafeArray XX; //color grid 的横坐标 COleSafeArray ZZ; //color grid 的纵坐标，与我们常用的 Y 一样 COleSafeArray YY; // 表示的是颜色的值，不是 Y 轴 DWORD numElements[] = {180001}; XX.Create(VT_I4, 1, numElements); YY.Create(VT_R8, 1, numElements); ZZ.Create(VT_I4, 1, numElements); longxIndex; longzIndex; longi=0; for (xIndex=0; xIndex<90; xIndex++) 慧都提供 TeeChart 系列免费教程 慧都提供 TeeChart 系列免费教程 { for (zIndex=0; zIndex<2000; zIndex++) { double val =zIndex*xIndex; //二维数组对应的值 YY.PutElement(&i,&val); XX.PutElement(&i,&xIndex); ZZ.PutElement(&i,&zIndex); i++; } } m_tchart.Series(0).GetAsColorGrid().AddArrayXYZ(XX,YY, ZZ); （5）上面这段代码的一些说明： 首先，因为 Series(0)已经被我们在设计阶段就手动添加了，所以没有必要在代 码中加上 m_tchart.AddSeries(0); 其次，上面说了，这个 m_tchart.Series(0)里面的 0 跟 Seriesx 名字中的 0 或 者 1 无关，这儿的 0 表示你在列表中的第一项。 再次，m_tchart.Series(0).GetAsColorGrid()表示这个 Series 类型是 ColorGrid，如果我们改用 m_tchart.Series(0).GetAsPolarGrid()，程序运行 时会报错。因为我们在设计阶段添加的 Series 类型是 ColorGrid，而不是 PolarGrid。 最后，因为使用了 GetAsColorGrid，需要在头文件中包含： #include ".\teechart\PolarGridSeries.h" .\teechart\是我自己存放的目录名字，根据你自己的路径修改。还是那句话， 如果在编译的时候报错信息是使用了未声明的类，即把对应的类的.h 文件包含 进来即可。

『伍』 【（VC/MFC）绘图控件TeeChart问题】如何设置X轴显示时间（vs2010）

最近也在学习Teechart，看看这个，X轴显示的时间，Y轴显示的是随机数。
void CTestTeeChartDlg::InitChart()
{
m_ctrlChart.Series(0).Clear();
m_ctrlChart.GetPage().SetMaxPointsPerPage(1440);

COleDateTime CurTime = COleDateTime::GetCurrentTime();
COleDateTime tempTime ;
tempTime = CurTime;

CurTime.SetTime(0,0,0);
CurTime.SetDate(tempTime.GetYear(),tempTime.GetMonth(),tempTime.GetDay());
COleDateTimeSpan tmSpan = COleDateTimeSpan(0,0,1,0);
CString csTime ;
for(int i=0; i<80; i++)
{
csTime = CurTime.Format("%H:%M");

float fzVal = float(GetRandom(12000,28000)/100);
m_ctrlChart.Series(0).AddXY(i,fzVal,csTime,i);
CurTime += tmSpan;
}

m_ctrlChart.GetAxis().GetLeft().SetMinMax(100, 300);
}

希望对你有帮助。

『陆』 MFC中使用TeeChart，把所有的类都添加后，还是不能用“.”操作符连调函数，怎么回事

用.点不出提示，和连写报错是两回事。

你先将分开写没问题的语句连着写，看看报错提示是什么，在看看鼠标放到函数上，提示的返值类型是什么吧。

另外，尝试一下这种写法：

((CSeries)m_TeeChart.Series(i)).put_Color(RGB(255,0,0));

『柒』 求一个Teechart控件在C++上的学习资料或编程资料。

能不能帮上，我并不清楚。不过下面的是可用的

下面是一段代码（都是改自那个例子）：
void __fastcall FormCreate(TObject *Sender);
void __fastcall BBtnZoomInClick(TObject *Sender);
void __fastcall BBtnZoomOutClick(TObject *Sender);
void __fastcall CheckBox3DClick(TObject *Sender);
void __fastcall BitBtnSaveClick(TObject *Sender);
void __fastcall BBtnPrintClick(TObject *Sender);
void __fastcall ADOQuery1AfterOpen(TDataSet *DataSet);
void __fastcall BitBtnUnZoomClick(TObject *Sender);
void __fastcall SBLeftClick(TObject *Sender);
void __fastcall SBRightClick(TObject *Sender);
void __fastcall SBUpClick(TObject *Sender);
void __fastcall SBDownClick(TObject *Sender);
void __fastcall ScrollBar1Change(TObject *Sender);
void __fastcall ScrollBar2Change(TObject *Sender);
void __fastcall ComBFirstChange(TObject *Sender);
void __fastcall ComBLastChange(TObject *Sender);
void __fastcall FormClose(TObject *Sender, TCloseAction &Action);
void __fastcall Chart1MouseMove(TObject *Sender, TShiftState Shift,
int X, int Y);
void __fastcall Series1AfterDrawValues(TObject *Sender);
void __fastcall Chart1Click(TObject *Sender);
private: // User declarations
int OldX;
int OldY;
double tmpX,tmpY;
AnsiString SQLstr, QueryWhere;
int Low, Hight;
TColor CrossHairColor;
TPenStyle CrossHairStyle;
int OldFirstPoint, OldLastPoint;
void ScrollAxis(TChartAxis* Axis, const double Percent);
void HorizScroll(const double Percent);
void VertScroll(const double Percent);
void ExeSQLStr(int start, int end);
void DrawCross(int ax, int ay);

bool SetValued = false;
//---------------------------------------------------------------------------
__fastcall TChart1Form::TChart1Form(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void TChart1Form::ScrollAxis(TChartAxis* Axis, const double Percent)
{
double Amount = -((Axis->Maximum-Axis->Minimum)/(100.0/Percent));
Axis->SetMinMax(Axis->Minimum-Amount,Axis->Maximum-Amount);
}
//---------------------------------------------------------------------------
void TChart1Form::HorizScroll(const double Percent)
{
ScrollAxis(Chart1->TopAxis,Percent);
ScrollAxis(Chart1->BottomAxis,Percent);
}
//---------------------------------------------------------------------------
void TChart1Form::VertScroll(const double Percent)
{
ScrollAxis(Chart1->LeftAxis,Percent);
ScrollAxis(Chart1->RightAxis,Percent);
}
//---------------------------------------------------------------------------
void TChart1Form::ExeSQLStr(int start, int end)
{
QueryWhere = " WHERE No >= " + IntToStr(start) + " AND No <= " + IntToStr(end);
ADOQuery1->Close();
ADOQuery1->SQL->Clear();
//QueryWhere = " WHERE No >= " + IntToStr(start) + " AND No <= " + IntToStr(end);
ADOQuery1->SQL->Add(SQLstr);
ADOQuery1->SQL->Add(QueryWhere);
ADOQuery1->Open();
//ADOQuery1->Parameters->Items[0]->Value = start;
//ADOQuery1->Parameters->Items[1]->Value = end;
ADOQuery1->Open();
}
//---------------------------------------------------------------------------
void TChart1Form::DrawCross(int ax, int ay)//画线
{
TColor tmp;
tmp = Chart1->BackColor;
if (tmp == clTeeColor)
tmp = clBtnFace;
Chart1->Canvas->Pen->Color = (TColor)(CrossHairColor ^ ColorToRGB(tmp));
Chart1->Canvas->Pen->Style = CrossHairStyle;
Chart1->Canvas->Pen->Mode = pmXor;
Chart1->Canvas->Pen->Width = 1;
Chart1->Canvas->MoveTo(ax,Chart1->ChartRect.Top-Chart1->Height3D);
Chart1->Canvas->LineTo(ax,Chart1->ChartRect.Bottom-Chart1->Height3D);
Chart1->Canvas->MoveTo(Chart1->ChartRect.Left+Chart1->Width3D,ay);
Chart1->Canvas->LineTo(Chart1->ChartRect.Right+Chart1->Width3D,ay);

}
//---------------------------------------------------------------------------
void __fastcall TChart1Form::FormCreate(TObject *Sender)
{
Form1->lgQQ_T->RecordCount;
Chart1->AnimatedZoom = true;
Chart1->AnimatedZoomSteps = 5;
ScrollBar1->Enabled = false;
ScrollBar2->Enabled = false;
OldX = -1;
CrossHairColor = clRed;
CrossHairStyle = psSolid;
Chart1->Cursor = crCross;
AnsiString TableName = Form1->lgQQ_T->TableName;
Low = 1;
Hight = Form1->lgQQ_T->RecordCount;
SQLstr += " SELECT No AS ' 编号', sqrtT AS ' T 的开方 ', log10QQ AS ' lg[Q∞-Q(t)] '";
SQLstr += " FROM " + TableName;
QueryWhere = " WHERE No >= " + IntToStr(Low) + " AND No <= " + IntToStr(Hight);
ADOQuery1->Close();
ADOQuery1->SQL->Clear();
ADOQuery1->SQL->Add(SQLstr);
ADOQuery1->SQL->Add(QueryWhere);
ADOQuery1->Open();
}
//-------------------------------------放大

void __fastcall TChart1Form::BBtnZoomInClick(TObject *Sender)
{
Chart1->ZoomPercent(105);
}
//---------------------------------------------------------缩小

void __fastcall TChart1Form::BBtnZoomOutClick(TObject *Sender)
{
Chart1->ZoomPercent(95);
}
//-------------------------------------------------三维

void __fastcall TChart1Form::CheckBox3DClick(TObject *Sender)
{
Chart1->View3D = CheckBox3D->Checked;
if (CheckBox3D->Checked)
{
ScrollBar1->Enabled = true;
ScrollBar2->Enabled = true;
if (dynamic_cast<TPieSeries*>(Chart1->Series[0]))
{
ScrollBar1->Position = Chart1->View3DOptions->Elevation;
}
else
{
ScrollBar1->Position = Chart1->View3DOptions->Rotation;
}
ScrollBar2->Position = Chart1->View3DOptions->Elevation;
}
else
{
ScrollBar1->Enabled = false;
ScrollBar2->Enabled = false;
}
}
//-----------------------------------------------保存图形到文件

void __fastcall TChart1Form::BitBtnSaveClick(TObject *Sender)
{
if (SavePictureDialog1->Execute())
{
Chart1->SaveToMetafile(SavePictureDialog1->FileName);
}
}
//------------------------------打印

void __fastcall TChart1Form::BBtnPrintClick(TObject *Sender)
{
int h, w;
Screen->Cursor = crHourGlass;
try
{
Printer()->BeginDoc();
try
{
Printer()->Canvas->Font->Name = "Arial";
Printer()->Canvas->Font->Size = 10;
Printer()->Canvas->Font->Style.Clear();
//Printer()->Canvas->TextOut(0,0,Edit1->Text);

h = Printer()->PageHeight; // <-- get page height
w = Printer()->PageWidth; // <-- get page width

// And now print the chart component
Chart1->PrintPartial( Rect(
10, // <-- 20% left margin
h / 3 , // <-- 33% top margin
w - 10, // <-- 20% right margin
h - (h / 5))); // <-- 20% bottom margin
Printer()->EndDoc(); // <-- end job and print !!
}
catch (...)
{
// just in case an error happens
Printer()->Abort();
Printer()->EndDoc();
throw; // <-- rethrow the exception !!!
}
}
__finally
{
Screen->Cursor = crDefault; // <-- restore cursor
}
}
//---------------------------------------------------------------------------

void __fastcall TChart1Form::ADOQuery1AfterOpen(TDataSet *DataSet)
{
if (!SetValued)
{
for (int i = 1; i <= ADOQuery1->RecordCount; i++)
{
ComBFirst->Items->Add(IntToStr(i));
ComBLast->Items->Add(IntToStr(i));
}
ComBFirst->ItemIndex = 0;
OldFirstPoint = ComBFirst->ItemIndex;
ComBLast->ItemIndex = ADOQuery1->RecordCount - 1 ;
OldLastPoint = ComBLast->ItemIndex;
SetValued = true;
}
}
//---------------------------重置缩放

void __fastcall TChart1Form::BitBtnUnZoomClick(TObject *Sender)
{
Chart1->UndoZoom();
}
//---------------------------------左右上下移动

void __fastcall TChart1Form::SBLeftClick(TObject *Sender)
{
HorizScroll(5);
}
//---------------------------------------------------------------------------

void __fastcall TChart1Form::SBRightClick(TObject *Sender)
{
HorizScroll(-5);
}
//---------------------------------------------------------------------------

void __fastcall TChart1Form::SBUpClick(TObject *Sender)
{
VertScroll(-5);
}
//---------------------------------------------------------------------------

void __fastcall TChart1Form::SBDownClick(TObject *Sender)
{
VertScroll(5);
}
//----------------------------------旋转三维图

void __fastcall TChart1Form::ScrollBar1Change(TObject *Sender)
{
if (CheckBox3D->Checked && ScrollBar1->Enabled)
{
Chart1->View3DOptions->Orthogonal = false;
}
if (dynamic_cast<TPieSeries*>(Chart1->Series[0]))
Chart1->View3DOptions->Elevation = ScrollBar1->Position;
else
Chart1->View3DOptions->Rotation = ScrollBar1->Position;
}
//----------------------------------------------------

void __fastcall TChart1Form::ScrollBar2Change(TObject *Sender)
{
if (CheckBox3D->Checked && ScrollBar2->Enabled)
{
Chart1->View3DOptions->Orthogonal = false;
Chart1->View3DOptions->Elevation = ScrollBar2->Position;
}
}
//---------------------------------------------------------------------------

void __fastcall TChart1Form::ComBFirstChange(TObject *Sender)
{
if (ComBFirst->ItemIndex < ComBLast->ItemIndex)
{
CheckBox3D->Checked = false;
Chart1->View3D = false;
Chart1->UndoZoom();
OldFirstPoint = ComBFirst->ItemIndex;
ExeSQLStr(ComBFirst->ItemIndex + 1, ComBLast->ItemIndex + 1);
}
else
{
MessageDlg("开始点大于或等于结束点，请重新选择！",
mtInformation, TMsgDlgButtons() << mbOK, 0);
ComBFirst->ItemIndex = OldFirstPoint;
}
}
//---------------------------------------------------------------------------
void __fastcall TChart1Form::ComBLastChange(TObject *Sender)
{
if (ComBFirst->ItemIndex < ComBLast->ItemIndex)
{
CheckBox3D->Checked = false;
Chart1->View3D = false;
Chart1->UndoZoom();
OldLastPoint = ComBLast->ItemIndex;
ExeSQLStr(ComBFirst->ItemIndex + 1, ComBLast->ItemIndex + 1);
}
else
{
MessageDlg("开始点大于或等于结束点，请重新选择！" ,
mtInformation, TMsgDlgButtons() << mbOK, 0);
ComBLast->ItemIndex = OldLastPoint;
}
}
//---------------------------------------------------------------------------
void __fastcall TChart1Form::FormClose(TObject *Sender,
TCloseAction &Action)
{
SetValued = false;
}
//-------------------------------画线
void __fastcall TChart1Form::Chart1MouseMove(TObject *Sender,
TShiftState Shift, int X, int Y)
{
if (CheckBox1->Checked)
{
if (OldX != -1)
{
DrawCross(OldX,OldY); // draw old crosshair
OldX = -1;
}
if (PtInRect((RECT*)&Chart1->ChartRect, Point(X-Chart1->Width3D,Y+Chart1->Height3D)))
{
DrawCross(X,Y); // draw crosshair at current position
// store old position
OldX = X;
OldY = Y;
// set label text
Series1->GetCursorValues(tmpX,tmpY); // <-- get values under mouse cursor
Label7->Caption = Series1->GetVertAxis->LabelValue(tmpX)
+ " " + Series1->GetHorizAxis->LabelValue(tmpY);
}
}
}
//---------------------------------------------------------------------------

void __fastcall TChart1Form::Series1AfterDrawValues(TObject *Sender)
{
OldX = -1; // Reset old mouse position
}
//------------------------定点
void __fastcall TChart1Form::Chart1Click(TObject *Sender)
{
if (CheckBox1->Checked)
{
CheckBox1->Checked = false;
EditX1->Text = FloatToStr(tmpX);
EditY1->Text = FloatToStr(tmpY);

『捌』 求 Delphi 7.0 的下载地址

. Borland.Delphi 7.0 with.Update1.大企业集成安装版 [点击这里下载]

www.oamo.com/Software/Catalog130/1390.html

2. Delphi V7.0

Delphi 是一个类似微软公司开发的 VB 的一个 Windows
www.skycn.com/soft/2121.html

3. Delphi 汉化版 7.0

Delphi的完整汉化版，对于喜爱Delphi编写程序的朋友来说是一大喜事！
download.pchome.net/development/delphi/755.html

4. Delphi V7.0 汉化补丁

此为 Delphi 7.0 汉化程序。 汉化方法： 汉化时
www.skycn.com/soft/2123.html

5. All AHM Triton Tools 2002 Borland Delphi V7.0

早在 Delphi3 流行时，AHM 控件集就已经声名远扬，现在
www.skycn.com/soft/12685.html

6. 佐尔表达式控件 For DELPHI 7.0 V3.1.12

这是一个功能超强的表达式处理系统，提供16种常规运算
www.skycn.com/soft/24309.html

7. All AHM Triton Tools 2002 Borland Delphi V7.0

早在 Delphi3 流行时，AHM 控件集就已经声名远扬。现在，支持 Delphi4 的新版AHM
download.21cn.com/list.php?id=32240

8. All AHM Triton Tools 2002 Borland Delphi V7.0

www.ddooo.com/softdown/13586.htm

9. 佐尔表达式控件 DELPHI 7.0 版 v3.1.13

www.ddooo.com/softdown/36163.htm

10. Borland.Delphi 7.0 with.Update1.大业龙卷风集成安装版

www.51ct.cn/downinfo/1521.html

11. Delphi V7.0 汉化补丁

download.winzheng.com/SoftView/SoftView_2123.htm

12. Delphi V7.0

download.winzheng.com/SoftView/SoftView_2121.htm

13. All AHM Triton Tools 2002 Borland Delphi V7.0

download.winzheng.com/SoftView/SoftView_12684.htm

14. 佐尔表达式控件 For DELPHI 7.0 V3.1.12

download.winzheng.com/SoftView/SoftView_24306.htm

15. Borland DELPHI 7.0 中文正式企业版

www.chinahtml.com/software/07/2006/Borland-DELPHI-11371123651298.shtml

16. All AHM Triton Tools V2002 Borland Delphi 7.0

www.pcdog.com/soft/12375.htm

17. Delphi V7.0 汉化补丁

www.pcdog.com/soft/14348.htm

18. Delphi V7.0

www.pcdog.com/soft/16801.htm

19. 佐尔表达式控件 DELPHI 7.0 版 3.1.12 3.1.12

www.shareware.cn/pub/14363.html

20. Delphi7.0 企业版

www.ylmf.net/downinfo/89.html
21. Delphi V7.0

www.78soft.com/soft/355.htm

22. Delphi V7.0 汉化补丁

www.78soft.com/soft/345.htm

23. All AHM Triton Tools 2002 Borland Delphi V7.0

www.78soft.com/soft/2511.htm

24. Delphi 7.0 高级数据库教程

www.syku.net/down/soft/4597.htm

25. LMD Tools for Delphi2005 v7.02 英文版

www.nbdown.net/ViewSoft-2847.aspx

26. 突破Delphi 7.0编程实例五十讲

www.600it.com/soft/5568.htm

27. Borland Delphi 7.0 with Update1 龙卷风企业版

down.htcnc.net/Software/Catalog47/912.html

28. Borland.Delphi 7.0 with.Update1.大企业集成安装版

www.sooweb.net/Soft/System-Utilities/Developer-Tools/141.html

29. Delphi 7.0 汉化补丁

www.fixdown.com/soft/1103.htm

30. LMD Tools v7.02 For Delphi

www.fixdown.com/soft/14267.htm

31. delphi7 （含中文包） 7.0

www.a520.net/SoftView/SoftView_328.html

32. delphi 7.0

www.piaodown.com/down/soft/2834.htm

33. PDJCtrl v7.0 for Delphi

www.fixdown.com/soft/9933.htm

34. Delphi V7.0

www.fixdown.com/soft/8485.htm

35. Eagle CDK 7.01b.For.Delphi7

www.fixdown.com/soft/10887.htm

36. KrpRegions Library v1.7.0.271 For Delphi

www.fixdown.com/soft/11060.htm

37. Titan Database Interface for Microsoft Access v7.00S For.Delphi7

www.fixdown.com/soft/15351.htm

38. Titan Database Interface for Btrieve and Pervasive SQL v7.00i For.Delphi7

www.fixdown.com/soft/15341.htm

39. IntraWeb v7.0.15.for Delphi/BCB

www.fixdown.com/soft/10384.htm

40. Q-Systems ElasticForm v7.0.for.Delphi/BCB

www.fixdown.com/soft/18220.htm

41. Abakus VCL.v2.7.0.6.For.Delphi.7

www.fixdown.com/soft/18990.htm

42. ReportBuilder Server v7.03 for Delphi 6.7

www.fixdown.com/soft/12117.htm

43. ZipTV v7.06 for Delphi 7

www.fixdown.com/soft/9621.htm

44. Nevrona Rave Reports v7.0 BEX.For.Delphi.BCB

www.fixdown.com/soft/10822.htm

45. TeeChart Pro.v7.06.VCL.CLX.for.Delphi.BCB

www.fixdown.com/soft/18393.htm

46. Delphi7.0正式中文版ISO

www.lm8.cn/SoftView/SoftView_312.html

47. All AHM Triton Tools 2002 Borland Delphi 7.0

www.pay500.com/s3/39593.htm

48. 佐尔表达式控件 for DELPHI 7.0 V3.1.13

功能超强的表达式处理系统，提供16种常规运算符，7种基本数据类型，支持数据类型自动
download.enet.com.cn/html/030212005101301.html

49. Delphi V7.0

soft.xaonline.com/SoftWareView.asp?SoftWareID=43990