Chip 2001 December/Chip_2001-12_cd1.bin/zkuste/delphi/kolekce/d56/DM2KVCL.ZIP/PLOTDEMO/PLOTDMOU.DFM/PLOTDMOU.txt

Text File | 2000-11-26 | 8KB | 313 lines

object PlotDemoForm: TPlotDemoForm
  Left = 416
  Top = 307
  Width = 501
  Height = 528
  Caption = 'Plot Demo'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Plot: TPlot
    Left = 0
    Top = 0
    Width = 493
    Height = 348
    Cursor = crCross
    Align = alClient
    OnPaint = PlotPaint
    Pen.Color = clBlue
    Brush.Color = clAqua
    BorderStyle = bsNone
    XAxis.Max = 18.000000000000000000
    XAxis.Font.Charset = DEFAULT_CHARSET
    XAxis.Font.Color = clWindowText
    XAxis.Font.Height = -11
    XAxis.Font.Name = 'MS Sans Serif'
    XAxis.Font.Style = []
    XAxis.MinorTicks = 5
    XAxis.MajorTicks = 6
    XAxis.LabelWidth = 5
    XAxis.LabelDecimals = 2
    XAxis.LabelType = ffGeneral
    XAxis.AutoScale = False
    XAxis.ShowGrid = False
    YAxis.Max = 400.000000000000000000
    YAxis.Pen.Color = clRed
    YAxis.Pen.Width = 2
    YAxis.Font.Charset = DEFAULT_CHARSET
    YAxis.Font.Color = clBlue
    YAxis.Font.Height = -11
    YAxis.Font.Name = 'MS Sans Serif'
    YAxis.Font.Pitch = fpFixed
    YAxis.Font.Style = []
    YAxis.MinorTicks = 5
    YAxis.MajorTicks = 4
    YAxis.LabelWidth = 5
    YAxis.LabelDecimals = 2
    YAxis.LabelType = ffGeneral
    YAxis.AutoScale = False
    YAxis.ShowGrid = True
    YAxis.Title = 'Y axis title'
    Series = <
      item
        LineVisible = False
        LastLine = 10
        XColumn = 1
        YColumn = 2
        Pen.Color = clRed
        Brush.Color = clYellow
        Text = 'Normal Serie'
        Container = Container
      end
      item
        PointType = ptCircle
        PointSize = 10
        LastLine = 8
        XColumn = 1
        YColumn = 2
        Pen.Color = clMaroon
        Text = 'Expression'
        YExpression = 'sqr(a)*2'
        Container = Container
      end
      item
        PointType = ptCross
        PointSize = 9
        FirstLine = 5
        LastLine = 10
        XColumn = 1
        YColumn = 1
        Text = 'Using num/absnum'
        YExpression = 'num*20'
        Container = Container
      end
      item
        PointType = ptXCross
        LineVisible = False
        LastLine = 50
        IsFunction = True
        Pen.Color = clPurple
        Text = 'Functional!!!'
        YExpression = 'sqr(cx)*1.5'
      end>
    SerieIndex = 0
    OnHint = PlotHint
    OnError = PlotError
    OnSelectionChange = PlotSelectionChange
    OnPointClick = PlotPointClick
  end
  object Panel: TPanel
    Left = 0
    Top = 348
    Width = 493
    Height = 153
    Align = alBottom
    TabOrder = 0
    object PlotHintLabel: TLabel
      Left = 4
      Top = 4
      Width = 137
      Height = 17
      AutoSize = False
      Caption = 'PlotHintLabel'
    end
    object PlotClickLabel: TLabel
      Left = 4
      Top = 20
      Width = 481
      Height = 17
      AutoSize = False
      Caption = 'PlotClickLabel'
    end
    object SerieLabel: TLabel
      Left = 96
      Top = 52
      Width = 27
      Height = 13
      Caption = '&Serie:'
      FocusControl = SerieSpinEdit
    end
    object Label1: TLabel
      Left = 188
      Top = 100
      Width = 64
      Height = 13
      Caption = 'Mouse mode:'
    end
    object YAxisButton: TButton
      Left = 12
      Top = 48
      Width = 75
      Height = 25
      Caption = 'Y Axis'
      TabOrder = 0
      OnClick = YAxisButtonClick
    end
    object SerieSpinEdit: TSpinEdit
      Left = 132
      Top = 48
      Width = 41
      Height = 22
      MaxValue = 3
      MinValue = 0
      TabOrder = 1
      Value = 0
      OnChange = SerieSpinEditChange
    end
    object SerieButton: TButton
      Left = 184
      Top = 48
      Width = 65
      Height = 25
      Caption = 'Serie'
      TabOrder = 2
      OnClick = SerieButtonClick
    end
    object SaveButton: TButton
      Left = 256
      Top = 48
      Width = 65
      Height = 25
      Caption = 'Save'
      TabOrder = 3
      OnClick = SaveButtonClick
    end
    object SelectionCheckBox: TCheckBox
      Left = 388
      Top = 4
      Width = 97
      Height = 17
      Alignment = taLeftJustify
      Caption = 'Show Selection'
      TabOrder = 4
      OnClick = SelectionCheckBoxClick
    end
    object ColorGrid1: TColorGrid
      Left = 348
      Top = 40
      Width = 136
      Height = 32
      GridOrdering = go8x2
      BackgroundEnabled = False
      TabOrder = 5
      OnChange = ColorGrid1Change
    end
    object CopyRadioGroup: TRadioGroup
      Left = 12
      Top = 76
      Width = 101
      Height = 69
      Caption = 'Copy mode'
      ItemIndex = 0
      Items.Strings = (
        'Plot page'
        'X,Y only'
        'All item')
      TabOrder = 6
    end
    object CopyButton: TButton
      Left = 116
      Top = 80
      Width = 61
      Height = 25
      Caption = 'Copy'
      TabOrder = 7
      OnClick = CopyButtonClick
    end
    object DeleteButton: TButton
      Left = 116
      Top = 112
      Width = 61
      Height = 25
      Caption = 'Delete'
      TabOrder = 8
      OnClick = DeleteButtonClick
    end
    object ModeComboBox: TComboBox
      Left = 188
      Top = 116
      Width = 121
      Height = 21
      Style = csDropDownList
      DropDownCount = 10
      ItemHeight = 13
      TabOrder = 9
      OnChange = ModeComboBoxChange
      Items.Strings = (
        'pmNone '
        'pmAutoZoom '
        'pmZoom '
        'pmRuler '
        'pmUnZoom'
        'pmSelect '
        'pmPointClick '
        'pmPointEdit'
        'pmPointDelete'
        'pmTranslate')
    end
    object ModifiedCheckBox: TCheckBox
      Left = 296
      Top = 4
      Width = 89
      Height = 17
      Caption = 'Modified'
      Font.Charset = RUSSIAN_CHARSET
      Font.Color = clRed
      Font.Height = -11
      Font.Name = 'Fixedsys'
      Font.Style = []
      ParentFont = False
      TabOrder = 10
    end
    object FillButton: TButton
      Left = 184
      Top = 76
      Width = 93
      Height = 21
      Caption = 'Fill with big array'
      TabOrder = 11
      OnClick = FillButtonClick
    end
    object ProgressBar: TProgressBar
      Left = 352
      Top = 84
      Width = 133
      Height = 17
      Min = 0
      Max = 100
      TabOrder = 12
    end
  end
  object Container: TContainer
    FileName = 'NONAME0.dat'
    DataType = dtRealData
    UpdateCaption = False
    AutoLoad = True
    OnProgress = ContainerProgress
    OnChanged = ContainerChanged
    Left = 12
    Top = 28
    Data = {
      0314000000020000000000000080FF3F0000000000000080FF3F020000000000
      0000800040000000000000008001400200000000000000C00040000000000000
      0090024002000000000000008001400000000000000080034002000000000000
      00A0014000000000000000C803400200000000000000C0014000000000000000
      9004400200000000000000E0014000000000000000C404400200000000000000
      80024000000000000000800540020000000000000090024000000000000000A2
      05400200000000000000A0024000000000000000C805400200000000000000B0
      024000000000000000F205400200000000000000C00240000000000000009006
      400200000000000000D0024000000000000000A906400200000000000000E002
      4000000000000000C406400200000000000000F0024000000000000000E10640
      0200000000000000800340000000000000008007400200000000000000880340
      00000000000080900740020000000000000090034000000000000000A2074002
      0000000000000098034000000000000080B407400200000000000000A0034000
      000000000000C80740}
  end
end