lazarus/components/tachart/demo/financial/main.lfm

object MainForm: TMainForm
  Left = 313
  Height = 466
  Top = 177
  Width = 891
  Caption = 'MainForm'
  ClientHeight = 466
  ClientWidth = 891
  OnCreate = FormCreate
  LCLVersion = '1.7'
  object FinancialChart: TChart
    Left = 0
    Height = 382
    Top = 42
    Width = 891
    AxisList = <    
      item
        Grid.Color = clSilver
        Minors = <>
        Title.LabelFont.Orientation = 900
        Title.LabelFont.Style = [fsBold]
        Title.Visible = True
        Title.Caption = 'Stock price'
      end    
      item
        Grid.Visible = False
        Intervals.MinLength = 20
        Alignment = calBottom
        Marks.LabelFont.Orientation = 900
        Marks.Format = '%2:s'
        Marks.Style = smsLabel
        Minors = <>
      end>
    BackColor = clWhite
    Foot.Brush.Color = clBtnFace
    Foot.Font.Color = clBlue
    Margins.Left = 16
    Margins.Top = 16
    Margins.Right = 16
    Margins.Bottom = 16
    Title.Brush.Color = clBtnFace
    Title.Font.Color = clBlue
    Title.Text.Strings = (
      'TAChart'
    )
    Toolset = ChartToolset1
    Align = alClient
    object ohlcSeries: TOpenHighLowCloseSeries
      CandlestickDownBrush.Color = clRed
      CandlestickLinePen.Color = clDefault
      CandlestickUpBrush.Color = clLime
      DownLinePen.Color = clRed
      DownLinePen.Width = 2
      LinePen.Color = clLime
      LinePen.Width = 2
      Mode = mOHLC
    end
  end
  object BottomPanel: TPanel
    Left = 0
    Height = 42
    Top = 424
    Width = 891
    Align = alBottom
    BevelOuter = bvNone
    ClientHeight = 42
    ClientWidth = 891
    TabOrder = 1
    object Label1: TLabel
      Left = 0
      Height = 42
      Top = 0
      Width = 891
      Align = alClient
      Alignment = taCenter
      Caption = 'Hold down the left mouse button to see a hint window with the open/high/low/close stock prices above each data point.'#13#10'Hold down the left mouse button - together with CTRL - to see a hint window with the clicked stock price above each data point.'
      Layout = tlCenter
      ParentColor = False
    end
  end
  object TopPanel: TPanel
    Left = 0
    Height = 42
    Top = 0
    Width = 891
    Align = alTop
    BevelOuter = bvNone
    ClientHeight = 42
    ClientWidth = 891
    TabOrder = 2
    object cbSeriesType: TComboBox
      Left = 8
      Height = 23
      Top = 8
      Width = 242
      ItemHeight = 15
      ItemIndex = 0
      Items.Strings = (
        'OHLC series'
        'Candle stick series'
      )
      OnChange = cbSeriesTypeChange
      Style = csDropDownList
      TabOrder = 0
      Text = 'OHLC series'
    end
    object cbCandleStickSameColor: TCheckBox
      Left = 600
      Height = 19
      Top = 10
      Width = 173
      Caption = 'same color for tails and body'
      Checked = True
      OnChange = cbCandleStickSameColorChange
      State = cbChecked
      TabOrder = 1
      Visible = False
    end
    object cbUpColor: TColorBox
      Left = 296
      Height = 26
      Top = 10
      Width = 100
      Selected = clLime
      Style = [cbStandardColors, cbExtendedColors, cbIncludeNone, cbIncludeDefault, cbCustomColor, cbPrettyNames, cbCustomColors]
      ItemHeight = 20
      OnChange = cbColorChange
      TabOrder = 2
    end
    object cbDownColor: TColorBox
      Left = 464
      Height = 26
      Top = 8
      Width = 100
      Selected = clRed
      Style = [cbStandardColors, cbExtendedColors, cbIncludeNone, cbIncludeDefault, cbCustomColor, cbPrettyNames, cbCustomColors]
      ItemHeight = 20
      OnChange = cbColorChange
      TabOrder = 3
    end
    object LblUp: TLabel
      Left = 264
      Height = 15
      Top = 12
      Width = 15
      Caption = 'Up'
      FocusControl = cbUpColor
      ParentColor = False
    end
    object LblDown: TLabel
      Left = 413
      Height = 15
      Top = 12
      Width = 31
      Caption = 'Down'
      FocusControl = cbDownColor
      ParentColor = False
    end
  end
  object ChartToolset1: TChartToolset
    left = 160
    top = 111
    object DataPointHintTool_All: TDataPointHintTool
      Shift = [ssLeft]
      GrabRadius = 8
      OnHint = DataPointHintTool_AllHint
      OnHintLocation = DataPointHintToolHintLocation
    end
    object DataPointHintTool_Details: TDataPointHintTool
      Shift = [ssCtrl, ssLeft]
      GrabRadius = 8
      Targets = [nptPoint, nptXList, nptYList]
      OnHint = DataPointHintTool_DetailsHint
      OnHintLocation = DataPointHintToolHintLocation
    end
  end
end