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'
    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
    OnPageChange = JvOutlookBar1PageChange
    OnPageChanging = JvOutlookBar1PageChanging
    BorderStyle = bsNone
    Font.Color = clText
    Font.Height = 11
    Font.Name = 'Tahoma'
    Font.Pitch = fpVariable
    Font.Style = []
    Font.Weight = 40
    ParentFont = False
    PopupMenu = popOL
    TabOrder = 1
    OnContextPopup = JvOutlookBar1ContextPopup
  end
  object Panel1: TPanel
    Left = 140
    Top = 0
    Width = 557
    Height = 369
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 2
    object Panel2: TPanel
      Left = 0
      Top = 306
      Width = 557
      Height = 63
      Align = alBottom
      BevelOuter = bvNone
      TabOrder = 0
      object Button1: TButton
        Left = 5
        Top = 11
        Width = 91
        Height = 25
        Caption = 'Assign images'
        TabOrder = 0
        OnClick = Button1Click
      end
      object chkSmallImages: TCheckBox
        Left = 8
        Top = 41
        Width = 97
        Height = 17
        Action = acSmallButtons
        Caption = 'Small Buttons'
        TabOrder = 1
      end
      object Button2: TButton
        Left = 109
        Top = 11
        Width = 91
        Height = 25
        Caption = 'Remove images'
        TabOrder = 2
        OnClick = Button2Click
      end
      object Button3: TButton
        Left = 221
        Top = 11
        Width = 91
        Height = 25
        Caption = 'Font...'
        TabOrder = 3
        OnClick = Button3Click
      end
      object chkButtonFont: TCheckBox
        Left = 224
        Top = 41
        Width = 153
        Height = 17
        Caption = 'Change button font'
        TabOrder = 4
      end
      object chkFlat: TCheckBox
        Left = 112
        Top = 40
        Width = 97
        Height = 17
        Caption = 'Flat'
        TabOrder = 5
        OnClick = chkFlatClick
      end
    end
    object Memo1: TMemo
      Left = 8
      Top = 0
      Width = 537
      Height = 313
      Lines.Strings = (
        
          'Right-click in the outlookbar to see the popup menus. There is o' +
          'ne menu for the outlook bar itself, one for the pages and one fo' +
          'r the buttons.'
        ''
        
          'See the code for an example on how to detect and assign the popu' +
          'p menus at run-time (the OnContextPopup event).'
        ''
        
          'Use the buttons to modify the look of the outlookbar, pages and ' +
          'buttons.')
      TabOrder = 1
    end
  end
  object popOL: TPopupMenu
    Images = ImageList2
    Left = 176
    Top = 72
    object Defaultpopupmenu1: TMenuItem
      Caption = 'Default popup menu'
    end
    object Smallbuttons2: TMenuItem
      Action = acSmallButtons
    end
  end
  object ImageList1: TImageList
    Height = 32
    Width = 32
    Left = 152
    Top = 8
    Bitmap = {
[encoded data, 177784 characters]
      007FFFFE007FFFFE}
  end
  object ImageList2: TImageList
    Left = 248
    Top = 8
    Bitmap = {
[encoded data, 45014 characters]
      3FFFFFE0FFE0FFFF}
  end
  object popButton: TPopupMenu
    Images = ImageList2
    Left = 184
    Top = 8
    object Editbuttoncaption1: TMenuItem
      Action = acEditButtonCaption
    end
  end
  object popPage: TPopupMenu
    Images = ImageList2
    Left = 216
    Top = 8
    object Editpagecaption1: TMenuItem
      Action = acEditPageCaption
    end
    object Smallbuttons1: TMenuItem
      Action = acSmallButtons
    end
  end
  object ActionList1: TActionList
    Left = 288
    Top = 48
    object acSmallButtons: TAction
      Caption = 'Small Buttons'
      OnExecute = acSmallButtonsExecute
    end
    object acEditButtonCaption: TAction
      Caption = 'Edit Button Caption'
      OnExecute = acEditButtonCaptionExecute
    end
    object acEditPageCaption: TAction
      Caption = 'Edit Page Caption'
      OnExecute = acEditPageCaptionExecute
    end
  end
end
