Why Gemfury? Push, build, and install  RubyGems npm packages Python packages Maven artifacts PHP packages Go Modules Debian packages RPM packages NuGet packages

Repository URL to install this package:

Details    
lazarus / usr / share / lazarus / 1.6 / components / tachart / demo / legend / main.lfm
Size: Mime:
object Form1: TForm1
  Left = 529
  Height = 511
  Top = 174
  Width = 590
  Caption = 'Form1'
  ClientHeight = 511
  ClientWidth = 590
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  Position = poScreenCenter
  LCLVersion = '1.3'
  object PageControl1: TPageControl
    Left = 0
    Height = 511
    Top = 0
    Width = 590
    ActivePage = TabSheet1
    Align = alClient
    TabIndex = 0
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = 'Basic'
      ClientHeight = 483
      ClientWidth = 582
      object pnControls: TPanel
        Left = 0
        Height = 134
        Top = 349
        Width = 582
        Align = alBottom
        ClientHeight = 134
        ClientWidth = 582
        TabOrder = 0
        object lblMarginY: TLabel
          Left = 8
          Height = 15
          Top = 33
          Width = 48
          Caption = 'Y margin'
          ParentColor = False
        end
        object seMarginY: TSpinEdit
          Left = 68
          Height = 23
          Top = 33
          Width = 54
          MaxValue = 20
          OnChange = seMarginYChange
          TabOrder = 0
          Value = 4
        end
        object seSymbolWidth: TSpinEdit
          Left = 212
          Height = 23
          Top = 8
          Width = 54
          MaxValue = 50
          OnChange = seSymbolWidthChange
          TabOrder = 1
          Value = 20
        end
        object lblSymbolWidth: TLabel
          Left = 128
          Height = 15
          Top = 8
          Width = 73
          Caption = 'Symbol width'
          ParentColor = False
        end
        object rgAlignment: TRadioGroup
          Left = 283
          Height = 132
          Top = 1
          Width = 298
          Align = alRight
          AutoFill = True
          Caption = ' Alignment '
          ChildSizing.LeftRightSpacing = 6
          ChildSizing.TopBottomSpacing = 6
          ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
          ChildSizing.EnlargeVertical = crsHomogenousChildResize
          ChildSizing.ShrinkHorizontal = crsScaleChilds
          ChildSizing.ShrinkVertical = crsScaleChilds
          ChildSizing.Layout = cclTopToBottomThenLeftToRight
          ChildSizing.ControlsPerLine = 3
          ClientHeight = 114
          ClientWidth = 294
          Columns = 3
          ItemIndex = 6
          Items.Strings = (
            'TopLeft'
            'CenterLeft'
            'BottomLeft'
            'TopCenter'
            ''
            'BottomCenter'
            'TopRight'
            'CenterRight'
            'BottomRight'
          )
          OnClick = rgAlignmentClick
          TabOrder = 2
        end
        object cbUseSidebar: TCheckBox
          Left = 8
          Height = 19
          Top = 60
          Width = 59
          Caption = 'Sidebar'
          Checked = True
          OnChange = cbUseSidebarChange
          State = cbChecked
          TabOrder = 3
        end
        object lblSpacing: TLabel
          Left = 128
          Height = 15
          Top = 33
          Width = 42
          Caption = 'Spacing'
          ParentColor = False
        end
        object seSpacing: TSpinEdit
          Left = 212
          Height = 23
          Top = 33
          Width = 54
          MaxValue = 20
          OnChange = seSpacingChange
          TabOrder = 4
          Value = 4
        end
        object lblMarginX: TLabel
          Left = 8
          Height = 15
          Top = 8
          Width = 48
          Caption = 'X margin'
          ParentColor = False
        end
        object seMarginX: TSpinEdit
          Left = 68
          Height = 23
          Top = 8
          Width = 54
          MaxValue = 20
          OnChange = seMarginXChange
          TabOrder = 5
          Value = 4
        end
        object cbSeries: TComboBox
          Left = 102
          Height = 22
          Top = 91
          Width = 164
          ItemHeight = 16
          OnDrawItem = cbSeriesDrawItem
          ReadOnly = True
          Style = csOwnerDrawFixed
          TabOrder = 6
        end
        object lblColumnCount: TLabel
          Left = 128
          Height = 15
          Top = 60
          Width = 48
          Caption = 'Columns'
          ParentColor = False
        end
        object seColumnCount: TSpinEdit
          Left = 212
          Height = 23
          Top = 60
          Width = 54
          MinValue = 1
          OnChange = seColumnCountChange
          TabOrder = 7
          Value = 1
        end
        object cbByRows: TCheckBox
          Left = 8
          Height = 19
          Top = 84
          Width = 61
          Caption = 'By rows'
          OnChange = cbByRowsChange
          TabOrder = 8
        end
        object cbGrid: TCheckBox
          Left = 8
          Height = 19
          Top = 108
          Width = 42
          Caption = 'Grid'
          OnChange = cbGridChange
          TabOrder = 9
        end
      end
      object Chart1: TChart
        Left = 0
        Height = 349
        Top = 0
        Width = 582
        AxisList = <        
          item
            Visible = False
            Minors = <>
            Title.LabelFont.Orientation = 900
          end        
          item
            Visible = False
            Alignment = calBottom
            Minors = <>
          end>
        BackColor = clSkyBlue
        Foot.Brush.Color = clBtnFace
        Foot.Font.Color = clBlue
        Legend.BackgroundBrush.Color = clMoneyGreen
        Legend.GridHorizontal.Style = psDot
        Legend.GridVertical.Style = psDot
        Legend.GroupFont.Style = [fsBold]
        Legend.GroupTitles.Strings = (
          'Pie'
        )
        Legend.Visible = True
        Title.Brush.Color = clBtnFace
        Title.Font.Color = clBlue
        Title.Text.Strings = (
          'TAChart'
        )
        Align = alClient
        Color = clOlive
        ParentColor = False
        object Chart1LineSeries1: TLineSeries
          Title = 'Line'
          LinePen.Color = clRed
          Pointer.Brush.Color = clRed
          ShowPoints = True
        end
        object Chart1AreaSeries1: TAreaSeries
          Title = 'Area'
          AreaBrush.Color = clGreen
          AreaBrush.Style = bsCross
          Source = RandomChartSource1
        end
        object Chart1PieSeries1: TPieSeries
          Legend.Format = '%2:s %1:.2f%%'
          Legend.GroupIndex = 0
          Legend.Multiplicity = lmPoint
          Marks.Format = '%2:s'
          Marks.Style = smsLabel
          Title = 'Pie'
          Exploded = True
          Source = ListChartSource2
        end
        object Chart1FuncSeries1: TFuncSeries
          Legend.Order = 1
          Legend.UserItemsCount = 2
          Legend.OnDraw = Chart1FuncSeries1DrawLegend
          Extent.UseXMax = True
          Extent.UseXMin = True
          Extent.XMax = 5
          Title = 'Function'
          OnCalculate = Chart1FuncSeries1Calculate
          Pen.Color = clPurple
          Pen.Width = 2
        end
      end
    end
    object TabSheet2: TTabSheet
      Caption = 'OwnerDraw'
      ClientHeight = 483
      ClientWidth = 582
      object Chart2: TChart
        Left = 0
        Height = 483
        Top = 0
        Width = 582
        AxisList = <        
          item
            Grid.Color = clSilver
            Minors = <>
            Title.LabelFont.Height = -16
            Title.LabelFont.Orientation = 900
            Title.LabelFont.Style = [fsBold]
            Title.Visible = True
            Title.Caption = 'y axis'
          end        
          item
            Grid.Visible = False
            Alignment = calBottom
            Minors = <>
            Title.LabelFont.Height = -16
            Title.LabelFont.Style = [fsBold]
            Title.Visible = True
            Title.Caption = 'x axis'
          end>
        BackColor = clWhite
        Foot.Brush.Color = clBtnFace
        Foot.Font.Color = clBlue
        Legend.Visible = True
        Title.Brush.Color = clBtnFace
        Title.Font.Color = clBlue
        Title.Text.Strings = (
          'TAChart'
        )
        OnDrawLegend = Chart2DrawLegend
        Align = alClient
        ParentColor = False
        object GradientLineSeries: TLineSeries
          Title = '1.0'
          LineType = ltNone
          Pointer.Style = psCircle
          ShowPoints = True
        end
      end
    end
  end
  object RandomChartSource1: TRandomChartSource
    PointsNumber = 7
    RandSeed = 104675296
    XMax = 10
    XMin = 1
    YMax = 10
    YMin = 1
    left = 380
    top = 112
  end
  object ListChartSource1: TListChartSource
    DataPoints.Strings = (
      '0|0|?|'
      '1|2|$00FF00|'
      '2|5|?|'
      '3|1|?|'
      '4|6|?|'
    )
    left = 380
    top = 168
  end
  object ListChartSource2: TListChartSource
    DataPoints.Strings = (
      '0|5|?|abcc'
      '0|6|?|def'
      '0.20000000000000001|4|?|пример'
      '0|7|?|ещё'
      '0|2|?|два слова'
    )
    left = 380
    top = 228
  end
end