gridlines.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. Gridlines"
   ClientHeight    =   4590
   ClientLeft      =   4425
   ClientTop       =   3975
   ClientWidth     =   8805
   LinkTopic       =   "Form1"
   ScaleHeight     =   4590
   ScaleWidth      =   8805
   Begin ChartFXLibCtl.ChartFX ChartFX1 
      Height          =   4575
      Left            =   0
      TabIndex        =   2
      Top             =   0
      Width           =   7215
      _cx             =   2011050422
      _cy             =   2011045766
      _Version        =   262144
      LeftGap         =   60
      TopGap          =   23
      BottomGap       =   46
   End
   Begin VB.CommandButton Command2 
      Caption         =   "X-Axis gridlines"
      Height          =   375
      Left            =   7320
      TabIndex        =   1
      Top             =   4080
      Width           =   1335
   End
   Begin VB.CommandButton Command1 
      Caption         =   "Y-Axis gridlines"
      Height          =   375
      Left            =   7320
      TabIndex        =   0
      Top             =   3600
      Width           =   1335
   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()
    With ChartFX1.Axis(AXIS_Y)
        .Max = 100
        .Min = 0
        .STEP = 20
        .MinorStep = 10
        .Format = AF_CURRENCY
        .Grid = True
        .GridColor = RGB(128, 0, 0)
        .MinorGrid = True
        .MinorGridColor = RGB(128, 128, 0)
        .MinorGridStyle = CHART_DOT
    End With
End Sub

Private Sub Command2_Click()
    With ChartFX1.Axis(AXIS_X)
        .STEP = 1
        .MinorStep = 0.5
        .Grid = True
        .GridColor = RGB(128, 0, 0)
        ' Scale and labels
        .Min = CDate("01/07/98")
        .Format = AF_DATE
        .Style = AS_2LEVELS

    End With
End Sub

Private Sub Form_Load()
    Dim i
    
    ChartFX1.Gallery = BUBBLE
    ChartFX1.CylSides = 20
    ChartFX1.Volume = 100
  
    ChartFX1.OpenDataEx COD_VALUES, 2, 12
    For i = 0 To 11
        ChartFX1.ValueEx(0, i) = Rnd * 100
        ChartFX1.ValueEx(1, i) = 60 + Rnd * 40
    Next i
    ChartFX1.CloseData COD_VALUES
    
End Sub