palettepattern.cpp

Delphi Component - Chart Fx

//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop

#include "palettepattern.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "ChartfxLib_TLB"
#pragma link "ExtCtrls"
#pragma link "OleCtrls"
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
	: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
     // Initialize
     ChartFX1->Palette = L"Dark Pastels";
     ChartFX1->Scheme = CHART_CSSOLID;

     RadioGroup1->ItemIndex = 0;
     RadioGroup2->ItemIndex = 0;

     // Tools
     ChartFX1->PaletteBar = TRUE;
     ChartFX1->PatternBar = TRUE;

     // Color each bar independently
   	ChartFX1->MultipleColors = TRUE;

     // Initialize colors
     ChartFX1->OpenDataEx(COD_COLORS, 3, 0);
     ChartFX1->Color[0] = RGB(255, 0, 0); // Fixed color
     ChartFX1->BkColor[0] = RGB(128, 128, 128);
     ChartFX1->Color[1] = CHART_PALETTECOLOR | 5; // Palette color
     ChartFX1->BkColor[1] = CHART_PALETTECOLOR | 20;
     ChartFX1->Color[2] = CHART_SYSCOLOR | 1;  // System color
     ChartFX1->BkColor[2] = CHART_SYSCOLOR | 2;
     ChartFX1->CloseData(COD_COLORS);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::RadioGroup1Click(TObject *Sender)
{
	LPWSTR sPalettes[] = {L"Dark Pastels",L"Spring",L"SunSet"};
    ChartFX1->Palette = sPalettes[RadioGroup1->ItemIndex];
}
//---------------------------------------------------------------------------
void __fastcall TForm1::RadioGroup2Click(TObject *Sender)
{
	short nSchemes[] = {CHART_CSSOLID,CHART_CSBWPATTERN,CHART_CSPATTERN,CHART_CSBWHATCH,CHART_CSHATCH};
    ChartFX1->Scheme = nSchemes[RadioGroup2->ItemIndex];
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
	ChartFX1->OpenDataEx(COD_COLORS, 3, 0);
    ChartFX1->Color[0] = RGB(0, 0, 255);
    ChartFX1->BkColor[0] = RGB(128, 128, 0);
	ChartFX1->CloseData(COD_COLORS);
	Button1->Enabled = FALSE;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
	ChartFX1->OpenDataEx(COD_COLORS, 3, 0);
    ChartFX1->Color[1] = CHART_PALETTECOLOR | 10;
    ChartFX1->BkColor[1] = CHART_PALETTECOLOR | 30;
	ChartFX1->CloseData(COD_COLORS);
	Button2->Enabled = FALSE;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
	ChartFX1->OpenDataEx(COD_COLORS, 3, 0);
    ChartFX1->Color[2] = clActiveCaption;
    ChartFX1->BkColor[2] = clInactiveCaption;
	ChartFX1->CloseData(COD_COLORS);
	Button3->Enabled = FALSE;
}
//---------------------------------------------------------------------------