colors.pas

Delphi Component - Chart Fx

unit colors;

interface

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

type
  TForm1 = class(TForm)
    ChartFX1: TChartFX;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;



implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
     // Change default series colors
    ChartFX1.OpenDataEx(COD_COLORS, 2 {2 Series}, 0);
    ChartFX1.Series[0].Color := RGB(255, 0, 0);
    ChartFX1.Series[1].Color := RGB(0, 255, 0);
    ChartFX1.CloseData(COD_COLORS);

end;

procedure TForm1.Button2Click(Sender: TObject);
var
   f: TFont;
begin
    // Text fonts and colors
    f := TFont.Create;
    With ChartFX1.Axis[AXIS_Y] do
    begin
        TextColor := RGB(100, 100, 0);
        SetOleFont(f, Font);
        f.Style := [fsItalic];
        f.Name := 'Bookman Old Style';
        f.Size := 10;

        TitleColor := RGB(100, 100, 0);
        SetOleFont(f, TitleFont);
        f.Style := [fsItalic];
        f.Name := 'Times New Roman';
        f.Size := 14;
    end;

    With ChartFX1.Axis[AXIS_X] do
    begin
        TextColor := RGB(100, 100, 0);
        SetOleFont(f, Font);
        f.Style := [fsItalic];
        f.Name := 'Bookman Old Style';
        f.Size := 10;

        TitleColor := RGB(100, 100, 0);
        SetOleFont(f, TitleFont);
        f.Style := [fsItalic];
        f.Name := 'Times New Roman';
        f.Size := 14;

    end;

    ChartFX1.RGBFont[CHART_TOPTIT] := RGB(100, 100, 0);
    ChartFX1.Fonts[CHART_TOPTIT] := CF_TIMESNEWR Or CF_ITALIC Or CF_BOLD Or 18;


end;

procedure TForm1.Button3Click(Sender: TObject);
begin
     // Background colors
    ChartFX1.RGBBk := RGB(200, 255, 200);
    ChartFX1.RGB3DBk := RGB(100, 200, 175);

end;

procedure TForm1.Button4Click(Sender: TObject);
begin
    // Display point labels
    With ChartFX1.Series[0] do
    begin
        PointLabels := True;
        PointLabelAlign := LA_RIGHT Or LA_BASELINE;
        PointLabelAngle := -45;
    end;
    // Set point labels font
    ChartFX1.Fonts[CHART_VALUESFT] := CF_COURIERNEW Or CF_BOLD Or CF_ITALIC Or 10;
end;

procedure TForm1.Button5Click(Sender: TObject);
var
   j: integer;
begin
    ChartFX1.MultipleColors := True;

    // Set independent color for each point
    ChartFX1.OpenDataEx(COD_COLORS, 20 { 2 series times 10 points }, 0);
    for j := 0 To 9 do
    begin
        ChartFX1.Color[j * 2] := RGB(255, 0, 0); // First series
        ChartFX1.Color[1 + j * 2] := RGB(0, 255 - j * 20, 255); // Second series
    end;
    ChartFX1.CloseData(COD_COLORS);

end;

end.