scroll.frm

Delphi Component - Chart Fx

VERSION 5.00
Object = "{8996B0A4-D7BE-101B-8650-00AA003A5593}#4.0#0"; "CFX4032.OCX"
Begin VB.Form Form1 
   Caption         =   "Chart FX. Synchonized scrolling"
   ClientHeight    =   7710
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   8265
   LinkTopic       =   "Form1"
   ScaleHeight     =   7710
   ScaleWidth      =   8265
   StartUpPosition =   3  'Windows Default
   Begin ChartfxLibCtl.ChartFX ChartFX2 
      Height          =   3615
      Left            =   0
      TabIndex        =   1
      Top             =   3960
      Width           =   8175
      _cx             =   1710372948
      _cy             =   1710364904
      Build           =   7
      TypeMask        =   109576198
      Style           =   -1
      MarkerShape     =   0
      AxesStyle       =   0
      nColors         =   1
      Colors          =   "scroll.frx":0000
      nPts            =   50
      nSer            =   1
      NumPoint        =   50
      NumSer          =   1
      BorderS         =   0
   End
   Begin ChartfxLibCtl.ChartFX ChartFX1 
      Height          =   3855
      Left            =   0
      TabIndex        =   0
      Top             =   120
      Width           =   8175
      _cx             =   1710372948
      _cy             =   1710365328
      Build           =   7
      TypeMask        =   109576194
      Style           =   -1
      LeftGap         =   47
      AxesStyle       =   0
      nColors         =   1
      Colors          =   "scroll.frx":0028
      nPts            =   50
      nSer            =   1
      NumPoint        =   50
      NumSer          =   1
      BorderS         =   0
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub Command1_Click()
End Sub

Private Sub ChartFX2_UserScroll(ByVal wScrollMsg As Long, ByVal wScrollParam As Long, nRes As Integer)
    ' Scroll upper chart
    ChartFX1.Scroll CHART_ML(wScrollMsg, wScrollParam), 0
End Sub

Private Sub Form_Load()
    ' 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 Sub

Private Sub Form_Resize()
    ' Resize charts with form
    ChartFX1.Width = Form1.Width - 120
    ChartFX2.Width = Form1.Width - 120
    ChartFX1.Height = Form1.Height / 2 - 200
    ChartFX2.Top = ChartFX1.Height
    ChartFX2.Height = ChartFX1.Height
End Sub