user interface.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. User interface"
   ClientHeight    =   6210
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   9930
   LinkTopic       =   "Form1"
   ScaleHeight     =   6210
   ScaleWidth      =   9930
   StartUpPosition =   3  'Windows Default
   Begin VB.CheckBox Check7 
      Caption         =   "Customize Double Click"
      Height          =   375
      Left            =   7320
      TabIndex        =   7
      Top             =   3240
      Width           =   2055
   End
   Begin VB.CheckBox Check6 
      Caption         =   "Customized Data Tips"
      Height          =   375
      Left            =   7320
      TabIndex        =   6
      Top             =   2760
      Width           =   2055
   End
   Begin VB.CheckBox Check5 
      Caption         =   "Scrollable"
      Height          =   375
      Left            =   7320
      TabIndex        =   5
      Top             =   2280
      Width           =   1575
   End
   Begin VB.CheckBox Check4 
      Caption         =   "Context Menus"
      Height          =   375
      Left            =   7320
      TabIndex        =   4
      Top             =   1800
      Width           =   1815
   End
   Begin VB.CheckBox Check3 
      Caption         =   "Allow Resize "
      Height          =   375
      Left            =   7320
      TabIndex        =   3
      Top             =   1320
      Width           =   2055
   End
   Begin VB.CheckBox Check2 
      Caption         =   "Allow Edit in DataEditor"
      Height          =   375
      Left            =   7320
      TabIndex        =   2
      Top             =   840
      Width           =   2055
   End
   Begin VB.CheckBox Check1 
      Caption         =   "Drag Markers (allow)"
      Height          =   375
      Left            =   7320
      TabIndex        =   1
      Top             =   360
      Width           =   1935
   End
   Begin ChartfxLibCtl.ChartFX ChartFX1 
      Height          =   6135
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   7095
      _cx             =   51917027
      _cy             =   51915333
      _Version        =   262144
      TypeMask        =   109838338
      TopGap          =   31
      View3DDepth     =   30
      CylSides        =   32
      Volume          =   95
      AxesStyle       =   3
      Axis(0).Decimals=   0
      RGB2DBk         =   -2147483633
      RGB3DBk         =   16777215
      nColors         =   2
      nPts            =   12
      nSer            =   1
      NumPoint        =   12
      NumSer          =   1
      _Data_          =   "User Interface.frx":0000
   End
   Begin VB.Frame Frame1 
      Caption         =   "Chart Behaviour"
      Height          =   3855
      Left            =   7200
      TabIndex        =   8
      Top             =   0
      Width           =   2295
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim loldtype As Integer

Private Sub ChartFX1_GetTip(ByVal nHit As Integer, ByVal nSerie As Integer, ByVal nPoint As Long, nRes As Integer)
    Select Case (nHit)
        Case HIT_TOPTITLE
            ChartFX1.HText = "You are hitting the " + ChartFX1.HText
        Case HIT_AXISX
            ChartFX1.HText = "You are hitting the " + ChartFX1.HText
        Case HIT_AXISY
            ChartFX1.HText = "You are hitting the " + ChartFX1.HText
        Case HIT_POINT
            ChartFX1.HText = "You are hitting " + Chr(10) + ChartFX1.HText
        Case HIT_BKGND
            ChartFX1.HText = "You are hitting the " + ChartFX1.HText
        Case HIT_3DBK
            ChartFX1.HText = "You are hitting the " + ChartFX1.HText
    End Select
    nRes = 1 ' notify of change
End Sub

Private Sub ChartFX1_LButtonDblClk(ByVal x As Integer, ByVal y As Integer, ByVal nSerie As Integer, ByVal nPoint As Long, nRes As Integer)
    ' 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 If
    End If
End Sub

Private Sub Check1_Click()
    If Check1.Value Then
        ChartFX1.AllowDrag = True
    Else
        ChartFX1.AllowDrag = False
    End If
End Sub

Private Sub Check2_Click()
    If Check2.Value Then
        ChartFX1.AllowEdit = True
    Else
        ChartFX1.AllowEdit = False
    End If
End Sub

Private Sub Check3_Click()
If Check3.Value Then
    ChartFX1.AllowResize = True
Else
    ChartFX1.AllowResize = False
End If


End Sub

Private Sub Check4_Click()
If Check4.Value Then
    ChartFX1.ContextMenus = True
Else
    ChartFX1.ContextMenus = False
End If

    
End Sub

Private Sub Check5_Click()
If Check5.Value Then
    ChartFX1.Scrollable = True
Else
    ChartFX1.Scrollable = False
End If


End Sub

Private Sub Check6_Click()
    If Check6.Value Then
        ChartFX1.ShowTips = True
    Else
        ChartFX1.ShowTips = False
    End If
End Sub

Private Sub Check7_Click()
    If Check7.Value Then
        ChartFX1.DblClk CHART_BALLOONCLK, 0
    Else
        ChartFX1.DblClk CHART_NONECLK, 0
    End If
End Sub

Private Sub Form_Load()
    'Dissable all end-user interface
    With ChartFX1
        .AllowDrag = False
        .AllowEdit = False
        .AllowResize = False
        .ContextMenus = False
        .ShowTips = False
        .Scrollable = False
        .DataEditorObj.Moveable = False
        .DataEditorObj.Sizeable = BAS_NORESIZE
        .DblClk CHART_NONECLK, 0
    End With
End Sub