userinterface.pas

Delphi Component - Chart Fx

unit userinterface;

interface

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

type
  TForm1 = class(TForm)
    ChartFX1: TChartFX;
    GroupBox1: TGroupBox;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    CheckBox4: TCheckBox;
    CheckBox5: TCheckBox;
    CheckBox6: TCheckBox;
    CheckBox7: TCheckBox;
    procedure FormCreate(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure CheckBox2Click(Sender: TObject);
    procedure CheckBox3Click(Sender: TObject);
    procedure CheckBox4Click(Sender: TObject);
    procedure CheckBox5Click(Sender: TObject);
    procedure CheckBox6Click(Sender: TObject);
    procedure CheckBox7Click(Sender: TObject);
    procedure ChartFX1LButtonDblClk(Sender: TObject; x, y,
      nSerie: Smallint; nPoint: Integer; var nRes: Smallint);
    procedure ChartFX1GetTip(Sender: TObject; nHit, nSerie: Smallint;
      nPoint: Integer; var nRes: Smallint);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
    // Dissable all end-user interface
    With ChartFX1 Do Begin
        AllowDrag := False;
        AllowEdit := False;
        AllowResize := False;
        ContextMenus := False;
        ShowTips := False;
        Scrollable := False;
        DataEditorObj.Moveable := False;
        DataEditorObj.Sizeable := BAS_NORESIZE;
        DblClk(CHART_NONECLK, 0);
    End;
end;

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
    ChartFX1.AllowDrag := CheckBox1.Checked;
end;

procedure TForm1.CheckBox2Click(Sender: TObject);
begin
    ChartFX1.AllowEdit := CheckBox2.Checked;
end;

procedure TForm1.CheckBox3Click(Sender: TObject);
begin
    ChartFX1.AllowResize := CheckBox3.Checked;
end;

procedure TForm1.CheckBox4Click(Sender: TObject);
begin
    ChartFX1.ContextMenus := CheckBox4.Checked;
end;

procedure TForm1.CheckBox5Click(Sender: TObject);
begin
    ChartFX1.Scrollable := CheckBox5.Checked;
end;

procedure TForm1.CheckBox6Click(Sender: TObject);
begin
    ChartFX1.ShowTips := CheckBox6.Checked;
end;

procedure TForm1.CheckBox7Click(Sender: TObject);
begin
    If CheckBox7.Checked Then
        ChartFX1.DblClk(CHART_BALLOONCLK, 0)
    Else
        ChartFX1.DblClk(CHART_NONECLK, 0)
end;

procedure TForm1.ChartFX1LButtonDblClk(Sender: TObject; x, y,
  nSerie: Smallint; nPoint: Integer; var nRes: Smallint);
begin
     // customized balloon text
    If (nSerie >= 0) and (nPoint >= 0) Then
        If ChartFX1.ValueEx[nSerie, nPoint] > 50 Then
            ChartFX1.HText := 'This value is greater than 50... ' + Chr(10) + ChartFX1.HText
end;

procedure TForm1.ChartFX1GetTip(Sender: TObject; nHit, nSerie: Smallint;
  nPoint: Integer; var nRes: Smallint);
begin
    Case nHit of
        HIT_TOPTITLE:
            ChartFX1.HText := 'You are hitting the ' + ChartFX1.HText;
        HIT_AXISX:
            ChartFX1.HText := 'You are hitting the ' + ChartFX1.HText;
        HIT_AXISY:
            ChartFX1.HText := 'You are hitting the ' + ChartFX1.HText;
        HIT_POINT:
            ChartFX1.HText := 'You are hitting ' + Chr(10) + ChartFX1.HText;
        HIT_BKGND:
            ChartFX1.HText := 'You are hitting the ' + ChartFX1.HText;
        HIT_3DBK:
            ChartFX1.HText := 'You are hitting the ' + ChartFX1.HText;
    End;
    nRes := 1;    // notify of change
end;

end.