mainfrm.xfm

East make Tray Icon in delphi

object frmMain: TfrmMain
  Left = 320
  Top = 226
  Width = 500
  Height = 370
  VertScrollBar.Range = 19
  HorzScrollBar.Range = 210
  ActiveControl = sbxWinXPBar
  Caption = 'JvXPBar Demo'
  Color = clButton
  Constraints.MinHeight = 370
  Constraints.MinWidth = 500
  Font.Color = clText
  Font.Height = 11
  Font.Name = 'Tahoma'
  Font.Pitch = fpVariable
  Font.Style = []
  Font.Weight = 40
  Icon.Data = {
    0000010001001010100001001000280100001600000028000000100000002000
    00000100040000000000C0000000000000000000000000000000000000000000
    0000000080000080000000808000800000008000800080800000C0C0C0008080
    80000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
    00000000000000000BBBB0000000000BB000BB000000000BB0000B000000000B
    BB000BB00000000BBB000BB00000000000000BB00000000000000BB000000000
    00000BB00000000000000BB00000000000000BB00000000000000BB000000000
    00000BB0000000000000BBBB00000000000BBBBBB0000000000000000000FFFF
    0000F87F0000E73F0000E7BF0000E39F0000E39F0000FF9F0000FF9F0000FF9F
    0000FF9F0000FF9F0000FF9F0000FF9F0000FF0F0000FE070000FFFF0000}
  ParentFont = False
  Position = poDesktopCenter
  Scaled = False
  ShowHint = True
  OnCreate = FormCreate
  PixelsPerInch = 96
  object spltMain: TSplitter
    Left = 206
    Top = 0
    Width = 4
    Height = 351
    ResizeStyle = rsUpdate
  end
  object cntWinXPBar: TJvXPContainer
    Left = 0
    Top = 0
    Width = 206
    Height = 351
    DoubleBuffered = False
    BoundLines = [blLeft, blTop, blRight, blBottom]
    Caption = 'cntWinXPBar'
    Color = 14985086
    ParentColor = False
    Align = alLeft
    object sbxWinXPBar: TScrollBox
      Left = 1
      Top = 1
      Width = 204
      Height = 349
      Align = alClient
      BorderStyle = bsNone
      TabOrder = 0
      object JvXPContainer1: TJvXPContainer
        Left = 0
        Top = 0
        Width = 204
        Height = 349
        Cursor = crCross
        DoubleBuffered = True
        BorderWidth = 4
        Caption = 'JvXPContainer1'
        Align = alClient
        object dxWinXPBar4: TJvXPBar
          Left = 4
          Top = 222
          Width = 196
          Height = 40
          DoubleBuffered = True
          Caption = 'Structure'
          Collapsed = True
          Colors.BorderColor = 9845
          Colors.BodyColor = clBase
          Colors.GradientTo = 4227327
          Colors.SeparatorColor = 4227327
          Items = <
            item
            end
            item
            end
            item
            end
            item
            end
            item
            end
            item
            end
            item
            end
            item
            end
            item
            end
            item
            end
            item
            end
            item
            end>
          RollImages = ilWhiteButtons
          Font.Color = 17877
          Font.Height = 13
          Font.Name = 'MS Shell Dlg 2'
          Font.Pitch = fpVariable
          Font.Style = []
          Font.Weight = 40
          HeaderFont.Color = clText
          HeaderFont.Height = 13
          HeaderFont.Name = 'MS Shell Dlg 2'
          HeaderFont.Pitch = fpVariable
          HeaderFont.Style = [fsBold]
          HotTrackColor = 4227327
          Icon.Data = {
            0000010001002020040000000000E80200001600000028000000200000004000
            0000010004000000000000020000000000000000000000000000000000000000
            0000000080000080000000808000800000008000800080800000C0C0C0008080
            80000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
            0000000000000000000000000000888888888888800008888888888888008F7A
            A7700007800008F7AA77000078008F7777788887800008F77777888878008FFF
            FFFFFFFF800008FFFFFFFFFFF800080000000000700000800000000007000888
            888888880000008888888888800008F7777777780000008F77777777800008F8
            044444780000008F80444447800008F80CCCC4780000008F80CCCC47800008F8
            0CCCC4780000008F80CCCC47800008F80ECCC4780000008F80ECCC47800008F8
            000000780000008F80000007800008F7777777780000008F7777777780000088
            8888888800000008888888888000000000000000000000000000000000000000
            0000000000000000000000000000000000000000000000000000000000000000
            00000888888888888800000000000000000008F7AA7700007800000000000000
            000008F7777788887800000000000000000008FFFFFFFFFFF800000000000000
            0000008000000000070000000000000000000088888888888000000000000000
            0000008F7777777780000000000000000000008F806666878000000000000000
            0000008F8066668780000000000000000000008F806666878000000000000000
            0000008F80E6668780000000000000000000008F800000878000000000000000
            0000008F77777777800000000000000000000008888888888000000000008007
            C003000380010003800100038001000380018003C0018007C0038007C0038007
            C0038007C0038007C00380038003800440038006C003C00EE007FFFEFFFFFFFE
            FFFFFFC003FFFF8001FFFF8001FFFF8001FFFF8001FFFFC001FFFFC003FFFFC0
            03FFFFC003FFFFC003FFFFC003FFFFC003FFFFC003FFFFC003FFFFE007FF}
          RollDelay = 50
          RollStep = 10
          ShowItemFrame = False
          RoundedItemFrame = 0
          TopSpace = 10
          Align = alTop
          ParentFont = False
          object tvSelfView: TTreeView
            Left = 4
            Top = 36
            Width = 188
            Height = 1
            Align = alClient
            BorderStyle = bsNone
            Columns = <>
            Images = imlWinXPBar
            Indent = 19
            TabOrder = 0
          end
        end
        object JvXPBar1: TJvXPBar
          Left = 4
          Top = 142
          Width = 196
          Height = 40
          Hint = 'This bar doesn'#39't use actions'
          DoubleBuffered = True
          Caption = 'Synchronize'
          Collapsed = True
          Colors.BorderColor = clMaroon
          Colors.BodyColor = 8421631
          Colors.GradientTo = 8421631
          Colors.SeparatorColor = clRed
          Items = <
            item
              Caption = 'Unknown'
              Hint = 'This is an unkown action'
              ImageIndex = 6
              ImageList = imlWinXPBar
              OnClick = acConnectRemoteServerExecute
            end
            item
              Action = acSynchronizeWeb
              ImageList = imlWinXPBar
            end>
          RollImages = ilRedButtons
          Font.Color = 1573351
          Font.Height = 13
          Font.Name = 'MS Shell Dlg 2'
          Font.Pitch = fpVariable
          Font.Style = []
          Font.Weight = 40
          HeaderFont.Color = 1573351
          HeaderFont.Height = 13
          HeaderFont.Name = 'MS Shell Dlg 2'
          HeaderFont.Pitch = fpVariable
          HeaderFont.Style = [fsBold]
          HotTrackColor = clMaroon
          Icon.Data = {
            0000010001002020000000000000A80800001600000028000000200000004000
            0000010008000000000000040000000000000000000000010000000100000000
            0000905007005C3D090005047F0006058800090691000D0AA200120EB200F3B8
            7500A15F1300030377000A0892000D0A9B00100DA4001813BC002018D300261D
            E2001C16CB00E9AF7900FDD9AF00FDC1730000006D0005047C0009068A002A21
            EA001D17CF00FEE9D200FBE3C500F6C07700F9B4570009069200130FB5002D23
            F200FFFAF300FDEAD400F9BE6F00E69C3600D991310000008F000A089B00534B
            F4007670F5008C87F7003A3FD500FAC78D00F8B96500D68A24000E6240000D5B
            3C0000008800050499005F58F500A6A3F800616DF500ECAA6B00F9DAB500F8B6
            5B00C679140011754D0019AA7000000081000A08A300D5D4FB000F6945000A44
            2D00BD7A3100F9CE9900F3A9440015915F0018A36B0018A86E00000077000B09
            A7001383560015905F0011774E000F644200D4953B00EA9B2B00B8701300148C
            5C0016986400179E680017A16A00000072000A09A4006861F500FFFFFF001382
            5600A05F0B00AE6A12009E6112008D560E00148A5B00179C6700312DC6003530
            CD00716BF600918DF8000C543700844E0900794C0C0071470B006B440B001487
            590016956200169763009692F800EAE9FE0013855700159361006C65F500D0CE
            FB00EAE9FD0010704A000D583A000E603F000F67440011724B0011744C00106D
            48002CE1990059E7AE005BE8B0003AE39F0031E29B001FD68D000E5D3D002FE1
            9A00A4F2D300CDF8E700E9FCF400F1FDF800E3FBF100ADF3D70095F0CC0077EC
            BD0026E096001AB678000F664300138054001CC17F00CBF8E600D0F8E800D2F9
            E900D9FAED00EAFCF500E2FBF100B6F5DC008EEFC8001ECF88000C523600127C
            5200A1F2D200ABF3D600AFF4D800BDF6DF00C6F7E300B4F4DA0087EEC500106E
            48009DF1CF007AECBE001AB476003BE3A00080EDC10073EBBB0056E7AD0018A5
            6D005DE8B0006CEAB8008AEEC600106B47001FD98F0041E4A3003FE4A2004BE5
            A70054E7AC0067E9B50069EAB60025E095002DE1990028E096002AE198001CBF