olbarmainformu.xfm

East make Tray Icon in delphi

object OLBarMainForm: TOLBarMainForm
  Left = 229
  Top = 185
  ActiveControl = Button1
  AutoScroll = False
  Caption = 'JvOutlookBar Demo'
  ClientHeight = 388
  ClientWidth = 697
  Color = clButton
  Constraints.MinHeight = 300
  Constraints.MinWidth = 220
  Font.Color = clText
  Font.Height = 11
  Font.Name = 'MS Sans Serif'
  Font.Pitch = fpVariable
  Font.Style = []
  Font.Weight = 40
  Icon.Data = {
    000001000200101010000100100028010000260000002020100001001000E802
    00004E0100002800000010000000200000000100040000000000C00000000000
    0000000000000000000000000000000000000000800000800000008080008000
    00008000800080800000C0C0C000808080000000FF0000FF000000FFFF00FF00
    0000FF00FF00FFFF0000FFFFFF00000000000000000000000BBBB0000000000B
    B000BB000000000BB0000B000000000BBB000BB00000000BBB000BB000000000
    00000BB00000000000000BB00000000000000BB00000000000000BB000000000
    00000BB00000000000000BB00000000000000BB0000000000000BBBB00000000
    000BBBBBB0000000000000000000FFFF0000F87F0000E73F0000E7BF0000E39F
    0000E39F0000FF9F0000FF9F0000FF9F0000FF9F0000FF9F0000FF9F0000FF9F
    0000FF0F0000FE070000FFFF0000280000002000000040000000010004000000
    0000800200000000000000000000000000000000000000000000000080000080
    000000808000800000008000800080800000C0C0C000808080000000FF0000FF
    000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0000000000000000000000
    000000000000000000000000000000000000000000000000000000BBBBBB0000
    00000000000000000000BBB0000BBB000000000000000000000BB00000000BBB
    0000000000000000000BB00000000BBB000000000000000000BBBB0000000BBB
    B00000000000000000BBBB00000000BBBB0000000000000000BBBBB0000000BB
    BB0000000000000000BBBBB0000000BBBB0000000000000000BBBBB0000000BB
    BB00000000000000000BBB00000000BBBB0000000000000000000000000000BB
    BB0000000000000000000000000000BBBB0000000000000000000000000000BB
    BB0000000000000000000000000000BBBB0000000000000000000000000000BB
    BB0000000000000000000000000000BBBB0000000000000000000000000000BB
    BB0000000000000000000000000000BBBB0000000000000000000000000000BB
    BB0000000000000000000000000000BBBB0000000000000000000000000000BB
    BB0000000000000000000000000000BBBB0000000000000000000000000000BB
    BB0000000000000000000000000000BBBB0000000000000000000000000000BB
    BB0000000000000000000000000000BBBB00000000000000000000000000BBBB
    BBB00000000000000000000000BBBBBBBBBBBB00000000000000000000000000
    00000000000000000000000000000000000000000000FFFFFFFFFFFFFFFFFFC0
    FFFFFF1E3FFFFE7F8FFFFE7F8FFFFC3F87FFFC3FC3FFFC1FC3FFFC1FC3FFFC1F
    C3FFFE3FC3FFFFFFC3FFFFFFC3FFFFFFC3FFFFFFC3FFFFFFC3FFFFFFC3FFFFFF
    C3FFFFFFC3FFFFFFC3FFFFFFC3FFFFFFC3FFFFFFC3FFFFFFC3FFFFFFC3FFFFFF
    C3FFFFFFC3FFFFFF01FFFFFC003FFFFFFFFFFFFFFFFF}
  ParentFont = False
  Position = poDesktopCenter
  Scaled = False
  ShowHint = True
  OnCreate = FormCreate
  PixelsPerInch = 96
  object Splitter1: TSplitter
    Left = 135
    Top = 0
    Width = 5
    Height = 369
    AutoSnap = False
    ResizeStyle = rsUpdate
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 369
    Width = 697
    Height = 19
    Panels = <>
  end
  object JvOutlookBar1: TJvOutlookBar
    Left = 0
    Top = 0
    Width = 135
    Height = 369
    Hint = 'Right-click the bar to see the options'
    DoubleBuffered = True
    Align = alLeft
    Pages = <
      item
        Buttons = <
          item
            Caption = 'Today'
            ImageIndex = 0
            Tag = 0
            AutoToggle = False
          end
          item
            Caption = 'Inbox'
            ImageIndex = 1
            Tag = 0
            AutoToggle = False
          end
          item
            Caption = 'Calendar'
            ImageIndex = 2
            Tag = 0
            AutoToggle = False
          end
          item
            Caption = 'Contacts'
            ImageIndex = 3
            Tag = 0
            AutoToggle = False
          end
          item
            Caption = 'Tasks'
            ImageIndex = 4
            Tag = 0
            AutoToggle = False
          end
          item
            Caption = 'Deleted'
            ImageIndex = 5
            Tag = 0
            AutoToggle = False
          end>
        ButtonSize = olbsLarge
        Caption = 'Standard Shortcuts'
        Color = 4210816
        DownFont.Color = clText
        DownFont.Height = 11
        DownFont.Name = 'MS Sans Serif'
        DownFont.Pitch = fpVariable
        DownFont.Style = []
        DownFont.Weight = 40
        Font.Color = clWhite
        Font.Height = 11
        Font.Name = 'Tahoma'
        Font.Pitch = fpVariable
        Font.Style = []
        Font.Weight = 40
        ParentColor = False
        TopButtonIndex = 0
      end
      item
        Buttons = <
          item
            Caption = 'Drafts'
            ImageIndex = 6
            Tag = 0
            AutoToggle = False
          end
          item
            Caption = 'Outbox'
            ImageIndex = 7
            Tag = 0
            AutoToggle = False
          end
          item
            Caption = 'Sent Items'
            ImageIndex = 8
            Tag = 0
            AutoToggle = False
          end
          item
            Caption = 'Journal'
            ImageIndex = 9
            Tag = 0
            AutoToggle = False
          end>
        ButtonSize = olbsLarge
        Caption = 'My Shortcuts'
        Color = clDark
        DownFont.Color = clText
        DownFont.Height = 11
        DownFont.Name = 'MS Sans Serif'
        DownFont.Pitch = fpVariable
        DownFont.Style = []
        DownFont.Weight = 40
        Font.Color = clWhite
        Font.Height = 11
        Font.Name = 'Tahoma'
        Font.Pitch = fpVariable
        Font.Style = []
        Font.Weight = 40
        ParentColor = True
        TopButtonIndex = 0
      end
      item
        Buttons = <
          item
            Caption = 'My Computer'
            ImageIndex = 10
            Tag = 0
            AutoToggle = False
          end
          item
            Caption = 'My Documents'
            ImageIndex = 11
            Tag = 0
            AutoToggle = False
          end
          item
            Caption = 'Favorites'
            ImageIndex = 12
            Tag = 0
            AutoToggle = False
          end>
        ButtonSize = olbsLarge
        Caption = 'Other Shortcuts'
        Color = 8404992
        DownFont.Color = clText
        DownFont.Height = 11
        DownFont.Name = 'MS Sans Serif'
        DownFont.Pitch = fpVariable
        DownFont.Style = []
        DownFont.Weight = 40
        Font.Color = clWhite
        Font.Height = 11
        Font.Name = 'Tahoma'
        Font.Pitch = fpVariable
        Font.Style = []
        Font.Weight = 40
        ParentColor = False
        TopButtonIndex = 0
      end>
    LargeImages = ImageList1
    SmallImages = ImageList2
    ActivePageIndex = 2
    OnButtonClick = JvOutlookBar1ButtonClick