panel2u.dfm

一套及时通讯的原码

    Left = 4
    Top = 217
    Width = 214
    Height = 45
    Frame.Enabled = True
    Frame.NonFocusBorders = [efLeftBorder, efTopBorder, efRightBorder, efBottomBorder]
    Frame.FocusStyle = efsFrameSunken
    Frame.NonFocusStyle = efsFrameRaised
    TabOrder = 2
    TabStop = True
    OnEnter = fcPanel2Enter
    OnExit = fcPanel2Exit
    object ListBox1: TListBox
      Left = 5
      Top = 6
      Width = 122
      Height = 33
      ItemHeight = 13
      Items.Strings = (
        'Yes'
        'No')
      TabOrder = 0
    end
  end
  object fcPanel2: TfcPanel
    Tag = 1
    Left = 3
    Top = 136
    Width = 213
    Height = 38
    Frame.Enabled = True
    Frame.NonFocusBorders = [efLeftBorder, efTopBorder, efRightBorder, efBottomBorder]
    Frame.FocusStyle = efsFrameSunken
    Frame.NonFocusStyle = efsFrameBump
    TabOrder = 0
    TabStop = True
    OnEnter = fcPanel2Enter
    OnExit = fcPanel2Exit
    object Edit1: TEdit
      Left = 8
      Top = 9
      Width = 73
      Height = 21
      TabOrder = 0
      Text = 'Edit1'
    end
  end
  object fcPanel3: TfcPanel
    Tag = 2
    Left = 4
    Top = 179
    Width = 211
    Height = 32
    Frame.Enabled = True
    Frame.NonFocusBorders = []
    Frame.FocusStyle = efsFrameSunken
    TabOrder = 1
    TabStop = True
    OnEnter = fcPanel2Enter
    OnExit = fcPanel2Exit
    object Edit2: TEdit
      Left = 6
      Top = 6
      Width = 73
      Height = 21
      TabOrder = 0
      Text = 'Edit2'
    end
  end
  object fcGroupBox1: TfcGroupBox
    Left = 0
    Top = 0
    Width = 439
    Height = 129
    Align = alTop
    Caption = 
      ' Panel Settings - Experiment For Different Panel Focus/NonFocus ' +
      'Effects '
    CaptionIndent = 3
    TabOrder = 7
    object focuslabel: TfcLabel
      Left = 4
      Top = 43
      Width = 93
      Height = 13
      Caption = 'Focus Border Style:'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGray
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TextOptions.Alignment = taLeftJustify
      TextOptions.VAlignment = vaTop
    end
    object fcLabel8: TfcLabel
      Left = 289
      Top = 88
      Width = 87
      Height = 13
      Caption = 'Focus Panel Color'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGray
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TextOptions.Alignment = taLeftJustify
      TextOptions.VAlignment = vaTop
    end
    object fcLabel9: TfcLabel
      Left = 137
      Top = 88
      Width = 110
      Height = 13
      Caption = 'Non Focus Panel Color'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGray
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TextOptions.Alignment = taLeftJustify
      TextOptions.VAlignment = vaTop
    end
    object FocusFrameCombo: TfcTreeCombo
      Left = 5
      Top = 20
      Width = 124
      Height = 19
      TabStop = False
      BorderStyle = bsNone
      ButtonStyle = cbsCustom
      ButtonGlyph.Data = {
        D6000000424DD60000000000000076000000280000000C0000000C0000000100
        04000000000060000000130B0000130B00001000000000000000000000001A2B
        7700007F7F000D77B700FFFFFF00000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000222222222222
        C781200000000002010020133333310200002030000003020300203044440302
        0000203044440302E00020300000030202002013333331021E02200000000002
        E90022202222022202002222022022221E022222200222221E02}
      Text = 'Sunken'
      Frame.Enabled = True
      Frame.Transparent = True
      DropDownCount = 8
      Images = ImageList1
      Items.StreamVersion = 1
      Items.Data = {
        070000003400000008000000FFFFFFFFFFFFFFFFFFFFFFFF0000000000000000
        0000000000000000000000000000084672616D65426F78000000000001000000
        013D000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000000000000000000000
        0000000000000000000000114E6F204672616D6520284E6F726D616C29000000
        000001000000013200000009000000FFFFFFFFFFFFFFFFFFFFFFFF0000000000
        00000000000000000000000000000000000653756E6B656E0000000000010000
        00013200000007000000FFFFFFFFFFFFFFFFFFFFFFFF00000000000000000000
        0000000000000000000000000652616973656400000000000100000001320000
        0006000000FFFFFFFFFFFFFFFFFFFFFFFF000000000000000000000000000000
        0000000000000006457463686564000000000001000000013000000005000000
        FFFFFFFFFFFFFFFFFFFFFFFF0000000000000000000000000000000000000000
        00000442756D70000000000001000000013000000006000000FFFFFFFFFFFFFF
        FFFFFFFFFF0000000000000000000000000000000000000000000004466C6174
        00000000000100000001}
      Options = [icoExpanded, icoEndNodesOnly]
      ReadOnly = False
      ShowMatchText = True
      Sorted = False
      Style = csDropDownList
      TabOrder = 0
      TreeOptions = [tvoHideSelection, tvoShowRoot, tvoToolTips]
      OnChange = FocusFrameComboChange
    end
    object fcColorList1: TfcColorList
      Left = 288
      Top = 19
      Width = 137
      Height = 68
      TabStop = False
      ColorWidth = 12
      GreyScaleIncrement = 10
      IntegralHeight = True
      Options = [ccoShowSystemColors, ccoShowStandardColors, ccoShowColorNames, ccoGroupSystemColors]
      SelectedColor = clBtnFace
      OnClick = fcColorList1Click
      TabOrder = 1
      ItemHeight = 16
    end
    object fcColorList2: TfcColorList
      Left = 136
      Top = 19
      Width = 145
      Height = 68
      TabStop = False
      ColorWidth = 12
      GreyScaleIncrement = 10
      IntegralHeight = True
      Options = [ccoShowSystemColors, ccoShowColorNone, ccoShowStandardColors, ccoShowColorNames, ccoGroupSystemColors]
      SelectedColor = clNone
      OnClick = fcColorList2Click
      TabOrder = 2
      ItemHeight = 16
    end
    object CheckBox1: TCheckBox
      Left = 8
      Top = 72
      Width = 97
      Height = 17
      Caption = 'Transparent'
      TabOrder = 3
      OnClick = CheckBox1Click
    end
    object fcStatusBar1: TfcStatusBar
      Left = 2
      Top = 107
      Width = 435
      Height = 20
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      Panels = <
        item
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clRed
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          Name = 'Panel0'
          Tag = 0
          TextOptions.Alignment = taLeftJustify
          TextOptions.VAlignment = vaVCenter
          Width = '50'
        end>
      ParentFont = False
      SimplePanel = False
      SizeGrip = False
      StatusBarText.CapsLock = 'Caps'
      StatusBarText.Overwrite = 'Overwrite'
      StatusBarText.NumLock = 'Num'
      StatusBarText.ScrollLock = 'Scroll'
    end