شرح مكون Chart

في مجلد Delphi يوجد مجلد اسمه Demos بداخله مجلد اسمه Teechart

تجد teedemo.dpr به عدة امثلة عن Chart وكيفية استخدامه بالتفصيل الممل

والسلام عليكم ورحمة الله

هذا كود برنامج سبق ان عملته و كان يستخدم 3 charts

var
x:integer;
begin
  Form1.Series6.Clear;
  Form1.Series7.Clear;
  Form1.Series8.Clear;

  Form1.Chart5.Series[0].Add(idGen,'GENERATION',clGreen) ;
  Form1.Chart5.Series[0].Add(IdTrans,'TRANSMISSION',clGreen);
  Form1.Chart5.Series[0].Add(IdDISTR,'DISTRIBUTION and CUSTOMER SERVICES',clGreen) ;
  Form1.Chart5.Series[0].Add(IdFINANCE,'FINANCE',clGreen);
  Form1.Chart5.Series[0].Add(idGenSVS,'GENERAL SERVICES',clGreen);
  Form1.Chart5.Series[0].Add(idHUMAN,'HUMAN RESOURCES',clGreen);
  Form1.Chart5.Series[0].Add(idPLANNING,'PLANNING AND PROGRAMS ',clGreen) ;
  Form1.Chart5.Series[0].Add(idAUDITING,'INTERNAL AUDITING ',clGreen);
  Form1.Chart5.Series[0].Add(idLEGAL,'LEGAL AFFAIRS',clGreen);
  Form1.Chart5.Series[0].Add(idPUBLIC_AFFAIR,'PUBLIC AFFAIR AND SHARE HOLDER RELATION',clGreen);

  Form1.Chart5.Series[1].Add(NotUpdated_Gen,'GENERATION',clRed) ;
  Form1.Chart5.Series[1].Add(NotUpdated_Trans,'TRANSMISSION',clRed);
  Form1.Chart5.Series[1].Add(NotUpdated_DISTR,'DISTRIBUTION and CUSTOMER SERVICES',clRed) ;
  Form1.Chart5.Series[1].Add(NotUpdated_FINANCE,'FINANCE',clRed);
  Form1.Chart5.Series[1].Add(NotUpdated_GenSVS,'GENERAL SERVICES',clRed);
  Form1.Chart5.Series[1].Add(NotUpdated_HUMAN,'HUMAN RESOURCES',clRed);
  Form1.Chart5.Series[1].Add(NotUpdated_PLANNING,'PLANNING AND PROGRAMS ',clRed) ;
  Form1.Chart5.Series[1].Add(NotUpdated_AUDITING,'INTERNAL AUDITING ',clRed);
  Form1.Chart5.Series[1].Add(NotUpdated_LEGAL,'LEGAL AFFAIRS',clRed);
  Form1.Chart5.Series[1].Add(NotUpdated_PUBLIC_AFFAIR,'PUBLIC AFFAIR AND SHARE HOLDER RELATION',clRed);


  Form1.Chart5.Series[2].Add(idGen-NotUpdated_Gen,'GENERATION',clNavy) ;
  Form1.Chart5.Series[2].Add(IdTrans-NotUpdated_Trans,'TRANSMISSION',clNavy);
  Form1.Chart5.Series[2].Add(IdDISTR-NotUpdated_DISTR,'DISTRIBUTION and CUSTOMER SERVICES',clNavy) ;
  Form1.Chart5.Series[2].Add(IdFINANCE-NotUpdated_FINANCE,'FINANCE',clNavy);
  Form1.Chart5.Series[2].Add(idGenSVS-NotUpdated_GenSVS,'GENERAL SERVICES',clNavy);
  Form1.Chart5.Series[2].Add(idHUMAN-NotUpdated_HUMAN,'HUMAN RESOURCES',clNavy);
  Form1.Chart5.Series[2].Add(idPLANNING-NotUpdated_PLANNING,'PLANNING AND PROGRAMS ',clNavy) ;
  Form1.Chart5.Series[2].Add(idAUDITING-NotUpdated_AUDITING,'INTERNAL AUDITING ',clNavy);
  Form1.Chart5.Series[2].Add(idLEGAL-NotUpdated_LEGAL,'LEGAL AFFAIRS',clNavy);
  Form1.Chart5.Series[2].Add(idPUBLIC_AFFAIR-NotUpdated_PUBLIC_AFFAIR,'PUBLIC AFFAIR AND SHARE HOLDER RELATION',clNavy);

  form1.Chart5.SaveToBitmapFile('chart5.bmp');
  Form1.Series4.Clear;
  Form1.Series5.Clear;

  dm.ADOTableHistory.Active:=True;
  for x:= 0 to dm.ADOTableHistory.RecordCount -1   do
  begin
  Form1.Chart4.Series[0].Add(dm.ADOTableHistory.Fields[0].AsInteger,dm.ADOTableHis
tory.Fields[2].AsString, clRed);
  Form1.Chart4.Series[1].Add(dm.ADOTableHistory.Fields[1].AsInteger, 'Updated', clNavy);
  dm.ADOTableHistory.Next;
  end;
   dm.ADOTableHistory.Active:=False;
   form1.Chart4.SaveToBitmapFile('chart4.bmp');
end;

السلام عليكم ورحمة الله و بركاته

شكرا لكل من قدم رده

انا اريد خطوات بالتفصيل منذ وضع المكون على الفورم و كيفية ربطه

ادا سمحتم

المشاركة قديمه بس حبيت اضيف ان التعليمات الدلفي بتشرحه بالتفصيل الممل

http://www.dz-soft.net/2012/01/chart.html

http://www.dz-soft.net/2012/01/chart_15.html