palette_pattern.pas

Delphi Component - Chart Fx

unit palette_pattern;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls, OleCtrls, ChartfxLib_TLB;

type
  TForm1 = class(TForm)
    ChartFX1: TChartFX;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    RadioGroup1: TRadioGroup;
    RadioGroup2: TRadioGroup;
    procedure FormActivate(Sender: TObject);
    procedure RadioGroup1Click(Sender: TObject);
    procedure RadioGroup2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormActivate(Sender: TObject);
begin
     // Initialize
     ChartFX1.Palette := '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 Or 5; // Palette color
     ChartFX1.BkColor[1] := CHART_PALETTECOLOR Or 20;
     ChartFX1.Color[2] := CHART_SYSCOLOR or 1;  // System color
     ChartFX1.BkColor[2] := CHART_SYSCOLOR or 2;
     ChartFX1.CloseData(COD_COLORS);
end;

procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
     if RadioGroup1.ItemIndex = 0 Then
        ChartFX1.Palette := 'Dark Pastels'
     else if RadioGroup1.ItemIndex = 1 Then
          ChartFX1.Palette := 'Spring'
     else
          ChartFX1.Palette := 'Sunset'
end;

procedure TForm1.RadioGroup2Click(Sender: TObject);
begin
     if RadioGroup2.ItemIndex = 0 Then
        ChartFX1.Scheme := CHART_CSSOLID
     else if RadioGroup2.ItemIndex = 1 Then
        ChartFX1.Scheme := CHART_CSBWPATTERN
     else if RadioGroup2.ItemIndex = 2 Then
        ChartFX1.Scheme := CHART_CSPATTERN
     else if RadioGroup2.ItemIndex = 3 Then
        ChartFX1.Scheme := CHART_CSBWHATCH
     else
        ChartFX1.Scheme := CHART_CSHATCH
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
    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;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
     ChartFX1.OpenDataEx(COD_COLORS, 3, 0);
     ChartFX1.Color[1] := CHART_PALETTECOLOR or 10;
     ChartFX1.BkColor[1] := CHART_PALETTECOLOR or 30;
     ChartFX1.CloseData(COD_COLORS);
     Button2.Enabled := FALSE;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
     ChartFX1.OpenDataEx(COD_COLORS, 3, 0);
//     ChartFX1.Color[2] := clActiveCaption;
//     ChartFX1.BkColor[2] := clInactiveCaption;
     ChartFX1.CloseData(COD_COLORS);
     Button3.Enabled := FALSE;
end;

end.