mainfrm.xfm

East make Tray Icon in delphi

object Form1: TForm1
  Left = 421
  Top = 486
  ActiveControl = ComboBox1
  AutoScroll = False
  Caption = 
    'Example of custom drawing a TJvOutlookbar using a TJvNavPaneStyl' +
    'eManager'
  ClientHeight = 265
  ClientWidth = 348
  Color = clButton
  Font.Color = clText
  Font.Height = 11
  Font.Name = 'MS Shell Dlg 2'
  Font.Pitch = fpVariable
  Font.Style = []
  Font.Weight = 40
  Icon.Data = {
    0000010001001010100001001000280100001600000028000000100000002000
    00000100040000000000C0000000000000000000000000000000000000000000
    0000000080000080000000808000800000008000800080800000C0C0C0008080
    80000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
    00000000000000000BBBB0000000000BB000BB000000000BB0000B000000000B
    BB000BB00000000BBB000BB00000000000000BB00000000000000BB000000000
    00000BB00000000000000BB00000000000000BB00000000000000BB000000000
    00000BB0000000000000BBBB00000000000BBBBBB0000000000000000000FFFF
    0000F87F0000E73F0000E7BF0000E39F0000E39F0000FF9F0000FF9F0000FF9F
    0000FF9F0000FF9F0000FF9F0000FF9F0000FF0F0000FE070000FFFF0000}
  ParentFont = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  TextWidth = 6
  object Label1: TLabel
    Left = 192
    Top = 8
    Width = 36
    Height = 13
    Caption = 'Theme:'
  end
  object Label2: TLabel
    Left = 192
    Top = 56
    Width = 58
    Height = 13
    Caption = 'Button Size:'
  end
  object JvOutlookBar1: TJvOutlookBar
    Left = 0
    Top = 0
    Width = 169
    Height = 265
    DoubleBuffered = True
    Align = alLeft
    Pages = <
      item
        Buttons = <
          item
            Caption = 'JvOutlookBarButton1'
            ImageIndex = 0
            Tag = 0
            AutoToggle = False
          end
          item
            Caption = 'JvOutlookBarButton2'
            ImageIndex = 1
            Tag = 0
            AutoToggle = False
          end
          item
            Caption = 'JvOutlookBarButton3'
            ImageIndex = 2
            Tag = 0
            AutoToggle = False
          end>
        ButtonSize = olbsLarge
        Caption = 'JvOutlookBarPage1'
        Color = clDark
        DownFont.Color = clText
        DownFont.Height = 11
        DownFont.Name = 'MS Shell Dlg 2'
        DownFont.Pitch = fpVariable
        DownFont.Style = []
        DownFont.Weight = 40
        Font.Color = clText
        Font.Height = 11
        Font.Name = 'MS Shell Dlg 2'
        Font.Pitch = fpVariable
        Font.Style = []
        Font.Weight = 40
        ParentColor = True
        TopButtonIndex = 0
      end
      item
        Buttons = <
          item
            Caption = 'JvOutlookBarButton4'
            ImageIndex = 4
            Tag = 0
            AutoToggle = False
          end
          item
            Caption = 'JvOutlookBarButton5'
            ImageIndex = 5
            Tag = 0
            AutoToggle = False
          end
          item
            Caption = 'JvOutlookBarButton6'
            ImageIndex = 6
            Tag = 0
            AutoToggle = False
          end>
        ButtonSize = olbsLarge
        Caption = 'JvOutlookBarPage2'
        Color = clDark
        DownFont.Color = clText
        DownFont.Height = 11
        DownFont.Name = 'MS Shell Dlg 2'
        DownFont.Pitch = fpVariable
        DownFont.Style = []
        DownFont.Weight = 40
        Font.Color = clText
        Font.Height = 11
        Font.Name = 'MS Shell Dlg 2'
        Font.Pitch = fpVariable
        Font.Style = []
        Font.Weight = 40
        ParentColor = True
        TopButtonIndex = 0
      end
      item
        Buttons = <
          item
            Caption = 'JvOutlookBarButton7'
            ImageIndex = 7
            Tag = 0
            AutoToggle = False
          end
          item
            Caption = 'JvOutlookBarButton8'
            ImageIndex = 8
            Tag = 0
            AutoToggle = False
          end
          item
            Caption = 'JvOutlookBarButton9'
            ImageIndex = 9
            Tag = 0
            AutoToggle = False
          end>
        ButtonSize = olbsLarge
        Caption = 'JvOutlookBarPage3'
        Color = clDark
        DownFont.Color = clText
        DownFont.Height = 11
        DownFont.Name = 'MS Shell Dlg 2'
        DownFont.Pitch = fpVariable
        DownFont.Style = []
        DownFont.Weight = 40
        Font.Color = clText
        Font.Height = 11
        Font.Name = 'MS Shell Dlg 2'
        Font.Pitch = fpVariable
        Font.Style = []
        Font.Weight = 40
        ParentColor = True
        TopButtonIndex = 0
      end
      item
        Buttons = <
          item
            Caption = 'JvOutlookBarButton10'
            ImageIndex = 10
            Tag = 0
            AutoToggle = False
          end
          item
            Caption = 'JvOutlookBarButton11'
            ImageIndex = 11
            Tag = 0
            AutoToggle = False
          end
          item
            Caption = 'JvOutlookBarButton12'
            ImageIndex = 12
            Tag = 0
            AutoToggle = False
          end>
        ButtonSize = olbsLarge
        Caption = 'JvOutlookBarPage4'
        Color = clDark
        DownFont.Color = clText
        DownFont.Height = 11
        DownFont.Name = 'MS Shell Dlg 2'
        DownFont.Pitch = fpVariable
        DownFont.Style = []
        DownFont.Weight = 40
        Font.Color = clText
        Font.Height = 11
        Font.Name = 'MS Shell Dlg 2'
        Font.Pitch = fpVariable
        Font.Style = []
        Font.Weight = 40
        ParentColor = True
        TopButtonIndex = 0
      end>
    LargeImages = ImageList2
    SmallImages = ImageList1
    PageButtonHeight = 24
    TabOrder = 0
  end
  object ComboBox1: TComboBox
    Left = 192
    Top = 24