mainform.cpp

来自「最新版 JCL+JVCL控件！非常不错的控件资源。包含了所能用到的大部分功能！」· C++ 代码 · 共 487 行 · 第 1/2 页

    else
    {
        Chart->Options->PenCount = 3;
        Chart->Options->MarkerSize       = 3; // Make "em little
    }


    Chart->Options->PenLegends->Clear();
    Chart->Options->PenLegends->Add("HgT");
    Chart->Options->PenLegends->Add("Hg0");
    Chart->Options->PenLegends->Add("Hg2+");
    if (MenuSecondaryAxisMode->Checked)
        Chart->Options->PenLegends->Add("Quality%");

    Chart->Options->PenUnit->Clear();
    Chart->Options->PenUnit->Add("ug/m3");
    Chart->Options->PenUnit->Add("ug/m3");
    Chart->Options->PenUnit->Add("ug/m3");
    if (MenuSecondaryAxisMode->Checked)
        Chart->Options->PenUnit->Add("%"); // Optional Pen in percentage scale->

    //ShowLegend = TRUE;
    Chart->Options->Legend = clChartLegendBelow;
    
    //ChartKind = ckChartLine;
  }
//  Chart->AutoFormatGraph(); // WPostma. Removed.
 Chart->PlotGraph();
 
   //Chart->ResizeChartCanvas;
}


void __fastcall TfrmMain::FormResize(TObject *Sender)
{
  if (Chart != NULL)
    Chart->ResizeChartCanvas();
}
//---------------------------------------------------------------------------

void __fastcall TfrmMain::ButtonBarChartClick(TObject *Sender)
{
  Chart->Options->ChartKind = ckChartBar;
  NewValues();
  //Chart->PlotGraph();
}
//---------------------------------------------------------------------------

void __fastcall TfrmMain::ButtonLineClick(TObject *Sender)
{
  Chart->Options->ChartKind = ckChartLine;
  for (int i = 0; Chart->Options->PenCount; i++)
     Chart->Options->PenMarkerKind[i] = pmkNone;

  NewValues();
}
//---------------------------------------------------------------------------

void __fastcall TfrmMain::ButtonLineMarkerClick(TObject *Sender)
{
  Chart->Options->ChartKind = ckChartLine;
  Chart->Options->PenMarkerKind[0] = pmkDiamond; // demonstrate both Diamond and Circle Marks.
  Chart->Options->PenMarkerKind[1] = pmkDiamond;
  Chart->Options->PenMarkerKind[2] = pmkCircle;

  NewValues();
}
//---------------------------------------------------------------------------

void __fastcall TfrmMain::ButtonStackedBarClick(TObject *Sender)
{
  Chart->Options->ChartKind = ckChartStackedBar;
  NewValues();
}
//---------------------------------------------------------------------------

void __fastcall TfrmMain::ButtonStackedBarAveClick(TObject *Sender)
{
  Chart->Options->ChartKind = ckChartStackedBarAverage;
  NewValues();
}
//---------------------------------------------------------------------------

void __fastcall TfrmMain::ButtonBarAveClick(TObject *Sender)
{
  Chart->Options->ChartKind = ckChartBarAverage;

  NewValues();
}
//---------------------------------------------------------------------------

void __fastcall TfrmMain::ButtonPieClick(TObject *Sender)
{
  Chart->Options->ChartKind = ckChartPieChart;
}
//---------------------------------------------------------------------------

void __fastcall TfrmMain::ButtonMarkersClick(TObject *Sender)
{
  Chart->Options->ChartKind = ckChartMarkers;
}
//---------------------------------------------------------------------------

void __fastcall TfrmMain::ButtonDeltaAverageClick(TObject *Sender)
{
  Chart->Options->ChartKind = ckChartDeltaAverage;
}
//---------------------------------------------------------------------------

void __fastcall TfrmMain::FormCreate(TObject *Sender)
{
  if (Chart != NULL)
    NewValues();
}
//---------------------------------------------------------------------------

void __fastcall TfrmMain::ShowgapinLineChart1Click(TObject *Sender)
{
  ShowgapinLineChart1->Checked = !ShowgapinLineChart1->Checked;
  ButtonLine->Down = true;
  NewValues();
}
//---------------------------------------------------------------------------

void __fastcall TfrmMain::Print1Click(TObject *Sender)
{
 if (PrintDialog1->Execute())
  Chart->PrintGraph();
}
//---------------------------------------------------------------------------

void __fastcall TfrmMain::Generatenewrandomvalues1Click(TObject *Sender)
{
 NewValues();
}
//---------------------------------------------------------------------------

void __fastcall TfrmMain::CopyToClipboard1Click(TObject *Sender)
{
  Chart->GraphToClipboard();
}
//---------------------------------------------------------------------------

void __fastcall TfrmMain::SetHeaderFont1Click(TObject *Sender)
{
  // Get the current font for the Header text...
  FontDialog1->Font->Assign(Chart->Options->AxisFont);

  if (FontDialog1->Execute())
    // Set the font for the Header text...}
    Chart->Options->AxisFont = FontDialog1->Font;
  Chart->PlotGraph();
  Chart->Invalidate();
}
//---------------------------------------------------------------------------

void __fastcall TfrmMain::About1Click(TObject *Sender)
{
  Application->MessageBox(
  "JvChart comes from AABSoft Graph written by  M錼ten Henrichson, JVCL 3.0 "
  "version by Warren Postma.  ","About JvChart", MB_OK);
}
//---------------------------------------------------------------------------

void __fastcall TfrmMain::AboutJVCL301Click(TObject *Sender)
{
//  TJvJVCLAboutForm->Execute(false);
}
//---------------------------------------------------------------------------

void __fastcall TfrmMain::Scrolling1Click(TObject *Sender)
{
  Scrolling1->Checked = !Scrolling1->Checked;
  Timer1->Enabled = Scrolling1->Checked;
}
//---------------------------------------------------------------------------

void __fastcall TfrmMain::Timer1Timer(TObject *Sender)
{
  Chart->Data->Scroll();
  _Generate();
  _StoreValue( Chart->Data->ValueCount-1 );
  Chart->PlotGraph();
}
//---------------------------------------------------------------------------

void __fastcall TfrmMain::ShowDataInListbox1Click(TObject *Sender)
{
  ShowDataInListbox1->Checked = ! ShowDataInListbox1->Checked;
  ListBox1->Visible = ShowDataInListbox1->Checked;

  if (!ShowDataInListbox1->Checked)
      Chart->CursorPosition = -1; // Invisible.
}
//---------------------------------------------------------------------------

void __fastcall TfrmMain::LargeDataset576samples1Click(TObject *Sender)
{
   LargeDataset576samples1->Checked = ! LargeDataset576samples1->Checked;
   NewValues();
}
//---------------------------------------------------------------------------

void __fastcall TfrmMain::DateTimeAxisModeClick(TObject *Sender)
{
  DateTimeAxisMode->Checked = !DateTimeAxisMode->Checked;
  NewValues();
}
//---------------------------------------------------------------------------

void __fastcall TfrmMain::PrintOptions1Click(TObject *Sender)
{
  PrinterSetupDialog1->Execute();
}
//---------------------------------------------------------------------------

void __fastcall TfrmMain::MenuSecondaryAxisModeClick(TObject *Sender)
{
  MenuSecondaryAxisMode->Checked = ! MenuSecondaryAxisMode->Checked;

  if (MenuSecondaryAxisMode->Checked)
  {
    ButtonLine->Down = true;
    ButtonLineClick(Sender);
  }
  else
    NewValues();
}
//---------------------------------------------------------------------------

void __fastcall TfrmMain::ListBox1DblClick(TObject *Sender)
{
  Chart->CursorPosition = ListBox1->ItemIndex; // Highlight one sample.
}
//---------------------------------------------------------------------------

void __fastcall TfrmMain::ListBox1Click(TObject *Sender)
{
  Chart->CursorPosition = ListBox1->ItemIndex; // Highlight one sample.
}
//---------------------------------------------------------------------------