unitfrmout.dfm

《Delphi7编程100例》代码,书配资料

object Form1: TForm1
  Left = 251
  Top = 133
  Width = 287
  Height = 327
  Caption = 'OutlookBar'#25928#26524
  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 outfcOutlookBar1: TfcOutlookBar
    Left = 63
    Top = 51
    Width = 132
    Height = 207
    ActivePage = outfcOutlookBar1fcShapeBtn2
    Animation.Enabled = True
    Animation.Interval = 0
    Animation.Steps = 1
    AutoBold = True
    BevelOuter = bvNone
    BorderStyle = bsSingle
    ButtonSize = 25
    ButtonClassName = 'TfcShapeBtn'
    Layout = loVertical
    Options = [cboAutoCreateOutlookList]
    PanelAlignment = paDynamic
    ShowButtons = True
    TabOrder = 0
    object outfcOutlookBar1fcShapeBtn1: TfcShapeBtn
      Left = 0
      Top = 0
      Width = 128
      Height = 25
      Caption = #20154#20107#37096
      Color = clBtnFace
      DitherColor = clWhite
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Glyph.Data = {
        5E020000424D5E020000000000005E0000002800000020000000200000000100
        04000000000000020000C30E0000C30E00000A0000000A00000000000000FFFF
        FF00A545FF00FF00FF00F900000001000000FFFF0000808000009DCDFF000000
        FF00777702000000000000000000770000777770024406608888806604077702
        2077777020000600888880600077770207777770225706008888800777777702
        0077777020777000888880700000777020777770220777708888800888880702
        0777777702077770888888888888800220777770020777708888888888888802
        0077777020777700888888888998888020777770220770008888888889998880
        2077777702070208888888888898888007777770200022088888888888888880
        2077777020202208888888888888888020777700222000208888800888888802
        0777703300033020880001108880000020777033030333008000110008801002
        2077703300033300880010000888000203077033302033088888000008888000
        3307703302220088888888888880800333077700222222088808880088880000
        3077777022222208888000888888888207777777022222008888888888888802
        0777777702222202000888888888880207777777022222022220088888000022
        0777777702222202222220888022202077777777702222022222208802220220
        7777777770222220222222002222022077777777770222220022220222202207
        7777777777702222220220222002207777777777777700222220000002220777
        7777777777777700222222222200777777777777777777777000000000777777
        7777}
      GroupIndex = 1
      ModalResult = 4
      Options = [boAutoBold]
      ParentClipping = False
      ParentFont = False
      RoundRectBias = 25
      ShadeColors.Btn3DLight = 14936041
      ShadeColors.BtnHighlight = 15856628
      ShadeColors.BtnShadow = 6580330
      ShadeColors.BtnBlack = 3290165
      ShadeStyle = fbsHighlight
      TabOrder = 0
      TextOptions.Alignment = taCenter
      TextOptions.VAlignment = vaVCenter
      OnMouseMove = outfcOutlookBar1fcShapeBtn1MouseMove
    end
    object outfcOutlookBar1fcShapeBtn2: TfcShapeBtn
      Left = 0
      Top = 25
      Width = 128
      Height = 25
      Caption = #36130#21153#37096
      Color = clBtnFace
      DitherColor = clWhite
      Down = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      Glyph.Data = {
        6A020000424D6A020000000000006A0000002800000020000000200000000100
        04000000000000020000120B0000120B00000D0000000D00000066333300B360
        6000B6676700D37C7C00E7B8B800808000003399FF006699CC0099CCFF00FFFF
        FF003333330000000000FFFFFF00331B3331B777BBBBBBB7777B1B133B13331B
        3331B7BB8888888BB77B1B133B13331B3331BB88888888888B7B1B133B13331B
        331108888888888888BB1B113B133BBBB3BB888888888888888B1B111B133B66
        B1B8888888BB78888888BBBBBB133B66B1B88888877778888888BBB66B133B66
        BB888888BBBBBB8888887BB66B133BB6B88888888888888888888BB66B1331B6
        B888888888888888888887BB6B1131BBB88888888B888888888887BB6B113BBB
        78888888BB8888888888877BBB111B7B8888888878888888888887777BB1BB7B
        88BBBB9778888888BBBB9777B7B1B77B899BBBB77888888899BBBB777BB1B77B
        89BBBBB7788888889BBBBB777BB1BB7B99BBBBB7788888889BBBBB77B7B11BBA
        799BBBB77888888889BBBB7777B11B77BBBBBB77888888BBBBBBBB77BBB1BB77
        BBBBBB77777777BBBBBBB777AB11BBBB777777777777777777777777B11311BB
        BBB777777777777777BBBBBBB1331111111BB77777777BBBBBBB111111333131
        11111B777777B111111111211333333111111B77777B21111444333333333443
        331111B777B121334444334433333344433111BB701123343444444433333444
        4443111BB111133333444433333334444443111B111133333344444433333443
        333311B1111333333444444433335333333331111133333334344344444B5533
        3333331133333333333334444455}
      GroupIndex = 1
      ParentClipping = False
      ParentFont = False
      RoundRectBias = 25
      ShadeStyle = fbsHighlight
      TabOrder = 1
      TextOptions.Alignment = taCenter
      TextOptions.VAlignment = vaVCenter
      OnMouseMove = outfcOutlookBar1fcShapeBtn2MouseMove
    end
    object outfcOutlookBar1fcShapeBtn3: TfcShapeBtn
      Left = 0
      Top = 178
      Width = 128
      Height = 25
      Caption = #21150#20844#23460
      Color = clBtnFace
      DitherColor = clWhite
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Glyph.Data = {
        56020000424D5602000000000000560000002800000020000000200000000100
        04000000000000020000120B0000120B0000080000000800000033164600FFFF
        FF00431D5B00B269060099CCFF0000000000FF99000080800000777777777777
        7756666663335777777777777777777777756666333357777777777777777777
        7777566633357777777777777777555557775666335777777777777777704444
        4575666633577777777777777770444445756666335777777777777777704454
        4426666633577777777777777755555555336666335777777777777775665666
        6653366663577777777777775665666666653366633577777777777566656666
        6666536663335555577777756665666666666536663533333577775666656666
        6666665566353333365777566665666666666666665333366657775666656666
        6666666666533366665777756665566666666666665336666657777566511566
        6666666666533666657777775655556666666666665366666577777775666666
        6665556666536666657777777755555566555556653366665777777777775555
        6656665565336666577777777775666656566665653666665777777777756666
        5656666535366665777777777775666656566665353666657777777777756666
        5656666533666657777777777777566566656656666666577777777777777556
        6666556666666577777777777777775666666666666665777777777777777775
        6666666655555777777777777777777755555555577777777777777777777777
        7777777777777777777777777777777777777777777777777777}
      GroupIndex = 1
      ParentClipping = False
      ParentFont = False
      RoundRectBias = 25
      ShadeStyle = fbsHighlight
      TabOrder = 4
      TextOptions.Alignment = taCenter
      TextOptions.VAlignment = vaVCenter
      OnMouseMove = outfcOutlookBar1fcShapeBtn3MouseMove
    end
    object OutlookPanel1: TfcOutlookPanel
      Left = 0
      Top = 0
      Width = 128
      Height = 0
      object outfcOutlookBar1OutlookList1: TfcOutlookList
        Left = 0
        Top = 0
        Width = 128
        Height = 0
        Align = alClient
        BorderStyle = bsNone
        ClickStyle = csClick
        Color = clGradientActiveCaption
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWhite
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        HotTrackStyle = hsItemHilite
        Images = ilImageList1
        ItemHighlightColor = clBtnFace
        ItemHotTrackColor = clBtnShadow
        ItemLayout = blGlyphTop
        ItemShadowColor = clBtnText
        ItemSelectedDitherColor = clBtnHighlight
        Items = <
          item
            ImageIndex = 1
            Selected = False
            Separation = 0
            Tag = 0
            Text = #20027#20219
          end>
        ItemSpacing = 20
        ItemsWidth = 0
        Layout = loVertical
        PopupMenu = pmPopupMenu1
        ScrollButtonsVisible = True
        ScrollInterval = 250
        Transparent = False
        OnItemClick = outfcOutlookBar1OutlookList1ItemClick
      end
    end