scroll.pas

Delphi Component - Chart Fx

unit scroll;

interface

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

type
  TForm1 = class(TForm)
    ChartFX1: TChartFX;
    ChartFX2: TChartFX;
    procedure FormActivate(Sender: TObject);
    procedure ChartFX2UserScroll(Sender: TObject; wScrollMsg,
      wScrollParam: Integer; var nRes: Smallint);
    procedure FormResize(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormActivate(Sender: TObject);
begin
    // Turn OFF scroll bars for the chart on top but KEEP scrolling functionallity
    ChartFX1.Style := ChartFX1.Style And Not CS_SCROLLBARS;

    // Faster but restricted scrolling
    ChartFX1.TypeMask := ChartFX1.TypeMask Or CT_EVENSPACING;
    ChartFX2.TypeMask := ChartFX2.TypeMask Or CT_EVENSPACING;

    // Align
    ChartFX1.LeftGap := ChartFX2.LeftGap;
    ChartFX1.Axis[AXIS_X].Style := ChartFX1.Axis[AXIS_X].Style Or AS_HIDETEXT;
    ChartFX1.BottomGap := 15;
    ChartFX2.TopGap := 15;
    ChartFX1.Grid := CHART_BOTHGRID;
    ChartFX2.Grid := CHART_BOTHGRID;
end;

procedure TForm1.ChartFX2UserScroll(Sender: TObject; wScrollMsg,
  wScrollParam: Integer; var nRes: Smallint);
begin
     // Scroll upper chart
    ChartFX1.Scroll(wScrollMsg, wScrollParam);
end;

procedure TForm1.FormResize(Sender: TObject);
begin
    // Resize charts with form
    ChartFX1.Width := Form1.Width - 12;
    ChartFX2.Width := Form1.Width - 12;
    ChartFX1.Height := (Form1.Height Div 2) - 15;
    ChartFX2.Top := ChartFX1.Height;
    ChartFX2.Height := ChartFX1.Height;
end;

end.