mainfrm.xfm

East make Tray Icon in delphi

object Form1: TForm1
  Left = 215
  Top = 124
  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
  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
    BorderStyle = bsNone
    TabOrder = 0
  end
  object ComboBox1: TComboBox
    Left = 192
    Top = 24
    Width = 145
    Height = 21
    Style = csDropDownList
    ItemHeight = 15
    Items.Strings = (
      'nptStandard'
      'nptXPBlue'
      'nptXPSilver'
      'nptXPOlive')