stacked.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. Stacked Combination Charts"
   ClientHeight    =   4515
   ClientLeft      =   570
   ClientTop       =   1110
   ClientWidth     =   7875
   LinkTopic       =   "Form1"
   ScaleHeight     =   4515
   ScaleWidth      =   7875
   Begin ChartfxLibCtl.ChartFX ChartFX1 
      Height          =   4335
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   7815
      _cx             =   1710372313
      _cy             =   1710366174
      _Version        =   262144
      TypeMask        =   109576194
      TopGap          =   32
      AngleX          =   7
      AngleY          =   12
      nColors         =   16
      Pallete         =   "stacked.frx":0000
      Colors          =   "stacked.frx":00E4
      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 Form_Load()
    Dim i, j As Integer
    
    ' Init data
    ChartFX1.OpenDataEx COD_VALUES, 6, 10
    For j = 0 To 9
        For i = 0 To 5
            ChartFX1.ValueEx(i, j) = 10 + Rnd * 90
        Next i
    Next j
    ChartFX1.CloseData COD_VALUES
    
    'Produce 2 bars and 1 curve
    ChartFX1.Series(0).Gallery = BAR
    ChartFX1.Series(1).Gallery = BAR
    ChartFX1.Series(1).Stacked = True ' On top of 0
    ChartFX1.Series(2).Gallery = BAR
    ChartFX1.Series(3).Gallery = BAR
    ChartFX1.Series(3).Stacked = True ' On top of 2
    ChartFX1.Series(4).Gallery = BAR
    ChartFX1.Series(4).Stacked = True ' On top of 3
    ChartFX1.Series(5).Gallery = CURVE
    
    ChartFX1.Series(5).MarkerShape = MK_NONE
    ChartFX1.Series(5).LineWidth = 3
   
   ' Adjust scale
    ChartFX1.RecalcScale
End Sub