teeedititl.xfm

Delphi TeeChartPro.6.01的源代码

object FormTeeTitle: TFormTeeTitle
  Left = 387
  Top = 216
  Width = 395
  Height = 260
  ActiveControl = CBTitles
  BorderIcons = []
  Color = clBtnFace
  ParentFont = True
  OldCreateOrder = True
  Position = poScreenCenter
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object PageControlTitle: TPageControl
    Left = 0
    Top = 36
    Width = 387
    Height = 197
    ActivePage = TabSheet2
    Align = alClient
    HotTrack = True
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = 'Style'
      object MText: TMemo
        Left = 0
        Top = 49
        Width = 379
        Height = 120
        HelpContext = 640
        Align = alClient
        ScrollBars = ssBoth
        TabOrder = 0
        WantTabs = True
        WordWrap = False
        OnChange = MTextChange
      end
      object Panel2: TPanel
        Left = 0
        Top = 0
        Width = 379
        Height = 49
        Align = alTop
        BevelOuter = bvNone
        TabOrder = 1
        object Label1: TLabel
          Left = 6
          Top = 32
          Width = 24
          Height = 13
          Caption = '&Text:'
          FocusControl = MText
        end
        object CBVisible: TCheckBox
          Left = 6
          Top = 6
          Width = 59
          Height = 17
          HelpContext = 681
          Caption = '&Visible'
          TabOrder = 0
          OnClick = CBVisibleClick
        end
        object CBAdjust: TCheckBox
          Left = 71
          Top = 6
          Width = 91
          Height = 17
          HelpContext = 37
          Caption = '&Adjust Frame'
          TabOrder = 1
          OnClick = CBAdjustClick
        end
        object RGAlign: TRadioGroup
          Left = 166
          Top = 3
          Width = 209
          Height = 38
          HelpContext = 42
          Caption = 'Alignment:'
          Columns = 3
          ItemIndex = 2
          Items.Strings = (
            '&Left'
            '&Center'
            '&Right')
          TabOrder = 2
          OnClick = RGAlignClick
        end
      end
    end
    object TabSheet2: TTabSheet
      Caption = 'Position'
      object GroupBox1: TGroupBox
        Left = 24
        Top = 17
        Width = 145
        Height = 104
        TabOrder = 0
        object Label4: TLabel
          Left = 51
          Top = 41
          Width = 21
          Height = 13
          Alignment = taRightJustify
          Caption = 'L&eft:'
          FocusControl = ECustLeft
        end
        object Label5: TLabel
          Left = 51
          Top = 70
          Width = 22
          Height = 13
          Alignment = taRightJustify
          Caption = 'T&op:'
          FocusControl = ECustTop
        end
        object ECustLeft: TEdit
          Left = 77
          Top = 37
          Width = 41
          Height = 21
          HelpContext = 1461
          Enabled = False
          TabOrder = 0
          Text = '0'
          OnChange = ECustLeftChange
        end
        object UDLeft: TUpDown
          Left = 118
          Top = 37
          Width = 15
          Height = 21
          HelpContext = 1461
          Associate = ECustLeft
          Enabled = False
          Min = -1000
          Max = 1000
          Increment = 5
          TabOrder = 1
        end
        object ECustTop: TEdit
          Left = 77
          Top = 66
          Width = 41
          Height = 21
          HelpContext = 1462
          Enabled = False
          TabOrder = 2
          Text = '0'
          OnChange = ECustTopChange
        end
        object UDTop: TUpDown
          Left = 118
          Top = 66
          Width = 15
          Height = 21
          HelpContext = 1462
          Associate = ECustTop
          Enabled = False
          Min = -1000
          Max = 1000
          Increment = 5
          TabOrder = 3
        end
        object CBCustPos: TCheckBox
          Left = 8
          Top = 13
          Width = 129
          Height = 17
          HelpContext = 1442
          Caption = '&Custom:'
          TabOrder = 4
          OnClick = CBCustPosClick
        end
      end
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 387
    Height = 36
    Align = alTop
    TabOrder = 1
    object CBTitles: TComboFlat
      Left = 9
      Top = 6
      Width = 85
      HelpContext = 649
      TabOrder = 0
      OnChange = CBTitlesChange
      Items.Strings = (
        'Title'
        'SubTitle'
        'SubFoot'
        'Foot')
    end
  end
end