ufrmopscatterlegend.dfm

ADaM is a data mining and image processing toolkit

inherited FrmOpViewScatterLegend: TFrmOpViewScatterLegend
  Left = 314
  Top = 210
  Width = 740
  Height = 501
  Caption = 'Scatterplot with legend'
  PixelsPerInch = 96
  TextHeight = 15
  inherited pnlFond: TPanel
    Width = 732
    Height = 447
    inherited pgctrlFond: TPageControl
      Width = 732
      Height = 447
      ActivePage = TabSheet1
      object TabSheet1: TTabSheet
        Caption = 'TabSheet1'
        ImageIndex = 1
        TabVisible = False
        object Panel3: TPanel
          Left = 0
          Top = 0
          Width = 724
          Height = 437
          Align = alClient
          BevelOuter = bvNone
          Caption = 'Panel3'
          TabOrder = 0
          object Panel1: TPanel
            Left = 583
            Top = 0
            Width = 141
            Height = 437
            Align = alRight
            BevelInner = bvRaised
            BevelOuter = bvLowered
            TabOrder = 0
            object Label1: TLabel
              Left = 8
              Top = 120
              Width = 64
              Height = 15
              Caption = 'Attribute ref.'
            end
            object gbLegend: TGroupBox
              Left = 8
              Top = 4
              Width = 125
              Height = 105
              Caption = ' Legend '
              TabOrder = 0
              object rbExampleId: TRadioButton
                Left = 10
                Top = 22
                Width = 97
                Height = 17
                Caption = 'Example ID'
                Checked = True
                TabOrder = 0
                TabStop = True
                OnClick = rbExampleIdClick
              end
              object rbXYValues: TRadioButton
                Left = 10
                Top = 48
                Width = 93
                Height = 17
                Caption = '(X ; Y) values'
                TabOrder = 1
                OnClick = rbExampleIdClick
              end
              object rbAttribute: TRadioButton
                Left = 10
                Top = 76
                Width = 106
                Height = 17
                Caption = 'Attribute value'
                TabOrder = 2
                OnClick = rbExampleIdClick
              end
            end
            object cmbAttribute: TComboBox
              Left = 8
              Top = 136
              Width = 125
              Height = 23
              Style = csDropDownList
              ItemHeight = 15
              TabOrder = 1
              OnChange = cmbX1Change
            end
          end
          object Panel2: TPanel
            Left = 0
            Top = 0
            Width = 583
            Height = 437
            Align = alClient
            TabOrder = 1
            object panelChart: TPanel
              Left = 1
              Top = 1
              Width = 581
              Height = 435
              Align = alClient
              BevelInner = bvRaised
              BevelOuter = bvLowered
              BorderWidth = 22
              TabOrder = 0
              DesignSize = (
                581
                435)
              object cmbX2: TComboBox
                Left = 24
                Top = 0
                Width = 145
                Height = 23
                Style = csDropDownList
                Color = clMoneyGreen
                ItemHeight = 15
                TabOrder = 0
                OnChange = cmbX1Change
              end
              object cmbX1: TComboBox
                Left = 413
                Top = 412
                Width = 145
                Height = 23
                Style = csDropDownList
                Anchors = [akRight, akBottom]
                Color = clMoneyGreen
                ItemHeight = 15
                TabOrder = 1
                OnChange = cmbX1Change
              end
              object chart: TChart
                Left = 24
                Top = 24
                Width = 533
                Height = 387
                BackWall.Brush.Color = clWhite
                BackWall.Brush.Style = bsClear
                Title.Text.Strings = (
                  'TChart')
                Legend.Alignment = laBottom
                Legend.Color = 13750737
                Legend.ShadowSize = 2
                View3D = False
                Align = alClient
                BevelInner = bvLowered
                BevelOuter = bvNone
                TabOrder = 2
                object Series1: TPointSeries
                  Marks.ArrowLength = 0
                  Marks.BackColor = 13303807
                  Marks.Font.Charset = ANSI_CHARSET
                  Marks.Font.Color = clBlack
                  Marks.Font.Height = -9
                  Marks.Font.Name = 'Arial'
                  Marks.Font.Style = []
                  Marks.Frame.Color = 16744448
                  Marks.Frame.SmallDots = True
                  Marks.Visible = True
                  SeriesColor = clRed
                  ShowInLegend = False
                  Pointer.HorizSize = 1
                  Pointer.InflateMargins = True
                  Pointer.Style = psRectangle
                  Pointer.VertSize = 1
                  Pointer.Visible = False
                  XValues.DateTime = False
                  XValues.Name = 'X '
                  XValues.Multiplier = 1
                  XValues.Order = loAscending
                  YValues.DateTime = False
                  YValues.Name = 'Y '
                  YValues.Multiplier = 1
                  YValues.Order = loNone
                end
              end
            end
          end
        end
      end
    end
  end
  inherited ActListFrmOperator: TActionList
    object actFontIn: TAction
      Category = 'Component'
      Caption = 'Zoom in'
      ShortCut = 16465
      OnExecute = actFontInExecute
    end
    object actFontOut: TAction
      Category = 'Component'
      Caption = 'Zoom out'
      ShortCut = 16471
      OnExecute = actFontOutExecute
    end
  end
  inherited MenuOperator: TMainMenu
    inherited menuComponent: TMenuItem
      object N1: TMenuItem
        Caption = '-'
      end
      object actFontIn1: TMenuItem
        Action = actFontIn
      end
      object actFontOut1: TMenuItem
        Action = actFontOut
      end
    end
  end
end