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 = '2.3.0.0'
  object FinancialChart: TChart
    Left = 0
    Height = 385
    Top = 39
    Width = 891
    AxisList = <    
      item
        Grid.Color = clSilver
        Marks.LabelBrush.Style = bsClear
        Minors = <>
        Title.LabelFont.Orientation = 900
        Title.LabelFont.Style = [fsBold]
        Title.Visible = True
        Title.Caption = 'Stock price'
        Title.LabelBrush.Style = bsClear
      end    
      item
        Grid.Visible = False
        Intervals.MinLength = 20
        Alignment = calBottom
        Marks.LabelFont.Orientation = 900
        Marks.Format = '%2:s'
        Marks.LabelBrush.Style = bsClear
        Marks.Style = smsLabel
        Minors = <>
        Title.LabelBrush.Style = bsClear
      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
    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 for each data point.'#13#10'Hold down the left mouse button - together with CTRL - to see a hint window with the clicked stock price for each data point.'
      Layout = tlCenter
    end
  end
  object TopPanel: TPanel
    Left = 0
    Height = 39
    Top = 0
    Width = 891
    Align = alTop
    AutoSize = True
    BevelOuter = bvNone
    ClientHeight = 39
    ClientWidth = 891
    TabOrder = 2
    object cbSeriesType: TComboBox
      AnchorSideLeft.Control = TopPanel
      AnchorSideTop.Control = TopPanel
      Left = 8
      Height = 23
      Top = 8
      Width = 242
      BorderSpacing.Left = 8
      BorderSpacing.Top = 8
      BorderSpacing.Bottom = 8
      ItemHeight = 15
      ItemIndex = 0
      Items.Strings = (
        'OHLC series'
        'Candle stick series'
      )
      OnChange = cbSeriesTypeChange
      Style = csDropDownList
      TabOrder = 0
      Text = 'OHLC series'
    end
    object cbCandleStickSameColor: TCheckBox
      AnchorSideLeft.Control = cbDownColor
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = cbSeriesType
      AnchorSideTop.Side = asrCenter
      Left = 584
      Height = 19
      Top = 10
      Width = 173
      BorderSpacing.Left = 24
      Caption = 'same color for tails and body'
      Checked = True
      OnChange = cbCandleStickSameColorChange
      State = cbChecked
      TabOrder = 1
      Visible = False
    end
    object cbUpColor: TColorBox
      AnchorSideLeft.Control = LblUp
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = cbSeriesType
      AnchorSideTop.Side = asrCenter
      Left = 297
      Height = 26
      Top = 6
      Width = 100
      Selected = clLime
      Style = [cbStandardColors, cbExtendedColors, cbIncludeNone, cbIncludeDefault, cbCustomColor, cbPrettyNames, cbCustomColors]
      BorderSpacing.Left = 8
      ItemHeight = 20
      OnChange = cbColorChange
      TabOrder = 2
    end
    object cbDownColor: TColorBox
      AnchorSideLeft.Control = LblDown
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = cbSeriesType
      AnchorSideTop.Side = asrCenter
      Left = 460
      Height = 26
      Top = 6
      Width = 100
      Selected = clRed
      Style = [cbStandardColors, cbExtendedColors, cbIncludeNone, cbIncludeDefault, cbCustomColor, cbPrettyNames, cbCustomColors]
      BorderSpacing.Left = 8
      ItemHeight = 20
      OnChange = cbColorChange
      TabOrder = 3
    end
    object LblUp: TLabel
      AnchorSideLeft.Control = cbSeriesType
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = cbSeriesType
      AnchorSideTop.Side = asrCenter
      Left = 274
      Height = 15
      Top = 12
      Width = 15
      BorderSpacing.Left = 24
      Caption = 'Up'
      FocusControl = cbUpColor
    end
    object LblDown: TLabel
      AnchorSideLeft.Control = cbUpColor
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = cbSeriesType
      AnchorSideTop.Side = asrCenter
      Left = 421
      Height = 15
      Top = 12
      Width = 31
      BorderSpacing.Left = 24
      Caption = 'Down'
      FocusControl = cbDownColor
    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