TDBChart in VCL

[pcs_user]

When using TDBChart in VCL I’m not getting the expected output. I get two separate X’s for the two series.
Works ok in FMX.

How to I resolve this?
Thanks, Alan

Code: Select all

// VCL
//---------------------------------------------------------------------------
void __fastcall TfMain::bChartClick(TObject *Sender)
{
 int i ;

 FDMemTable->EmptyDataSet() ;
 FDMemTable->Append() ;
 FDMemTable->FieldValues["ID"]     = 1 ;
 FDMemTable->FieldValues["Input"]  = 10 ;
 FDMemTable->FieldValues["Output"] = 20 ;

 FDMemTable->Append() ;
 FDMemTable->FieldValues["ID"]     = 2 ;
 FDMemTable->FieldValues["Input"]  = 20 ;
 FDMemTable->FieldValues["Output"] = 40 ;
 FDMemTable->Post() ;

 Series1->Clear() ;
 Series2->Clear() ;
 FDMemTable->First() ;

 do
  {
   Series1->AddXY(FDMemTable->FieldByName("ID")->AsInteger, FDMemTable->FieldByName("Input")->AsInteger, "", clBlack) ;
   Series2->AddXY(FDMemTable->FieldByName("ID")->AsInteger, FDMemTable->FieldByName("Output")->AsInteger, "", clBlack) ;

   FDMemTable->Next() ;
  }while(!FDMemTable->Eof) ;

}
//---------------------------------------------------------------------------
void __fastcall TfMain::bConnectClick(TObject *Sender)
{
 Series3->DataSource = FDMemTable ;
 Series4->DataSource = FDMemTable ;

 Series3->XLabelsSource = "ID" ;
 Series4->XLabelsSource = "ID" ;

 Series3->YValues->ValueSource = "Input" ;
 Series4->YValues->ValueSource = "Output" ;
}
//--------------------------------------------------------------------------

// FMX
//---------------------------------------------------------------------------
void __fastcall TfMain::bChartClick(TObject *Sender)
{
 int i ;

 BindSourceDB1->DataSource = 0 ;
 FDMemTable->EmptyDataSet() ;
 FDMemTable->Append() ;
 FDMemTable->FieldValues["ID"]     = 1 ;
 FDMemTable->FieldValues["Input"]  = 10 ;
 FDMemTable->FieldValues["Output"] = 20 ;

 FDMemTable->Append() ;
 FDMemTable->FieldValues["ID"]     = 2 ;
 FDMemTable->FieldValues["Input"]  = 20 ;
 FDMemTable->FieldValues["Output"] = 40 ;
 FDMemTable->Post() ;
 BindSourceDB1->DataSource = dsFDMemTable ;

 Series1->Clear() ;
 Series2->Clear() ;
 FDMemTable->First() ;

 do
  {
   Series1->AddXY(FDMemTable->FieldByName("ID")->AsInteger, FDMemTable->FieldByName("Input")->AsInteger, "", TAlphaColor(claBlack)) ;
   Series2->AddXY(FDMemTable->FieldByName("ID")->AsInteger, FDMemTable->FieldByName("Output")->AsInteger, "", TAlphaColor(claBlack)) ;

   FDMemTable->Next() ;
  }while(!FDMemTable->Eof) ;
}
//--------------------------------------------------------------------------
void __fastcall TfMain::bConnectClick(TObject *Sender)
{
 Series3->DataSource = FDMemTable ;
 Series4->DataSource = FDMemTable ;

 Series3->XLabelsSource = "ID" ;
 Series4->XLabelsSource = "ID" ;

 Series3->YValues->ValueSource = "Input" ;
 Series4->YValues->ValueSource = "Output" ;
}
//---------------------------------------------------------------------------

[Yeray]

Hello,

It sounds as a bug.
Could you please attach the projects so we can take a look at them?

[pcs_user]

Here's the projects.

[Yeray]

Hello,

I haven't looked at the FMX version yet, but I see in the VCL version, this seems to fix the problem:

Code: Select all

 Series3->XValues->ValueSource = "ID";
 Series4->XValues->ValueSource = "ID";

Note you assigned the Labels and the YValues source of the series in the TDBChart, but not the XValues source.

[Yeray]

Hello,

I see in the dfm in your VCL project Series3 has XLabelSource and YValues.ValueSource defined.

Code: Select all

    object Series3: TLineSeries
      ...
      XLabelsSource = 'ID'
      ...
      YValues.ValueSource = 'Input'

Removing those 2 lines from the dfm the problem disappears.

[pcs_user]

That works,

Thanks