object Form1: TForm1
  Left = 80
  Top = 180
  Width = 383
  Height = 300
  HelpContext = 10
  Caption = 'TDocpanel Demonstration'
  Font.Color = clBlack
  Font.Height = -13
  Font.Name = 'Arial'
  Font.Style = []
  PixelsPerInch = 96
  Position = poScreenCenter
  OnCreate = FormCreate
  TextHeight = 16
  object DocPanel1: TDocPanel
    Left = 0
    Top = 0
    Width = 377
    Height = 41
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 0
    AutoWrap = True
    AutoHide = False
    DropDown = True
    CaptionType = ctNot3x
    DockingSides = [dsTop, dsLeft, dsRight, dsBottom]
    Icon.Data = {<image000.ico>}
    MaxWidthRestore = False
    NotificationCursor = False
    Shrink = False
    Title = 'Demonstration Toolbar'
    TitleFont.Color = clBlack
    TitleFont.Height = -9
    TitleFont.Name = 'Arial'
    TitleFont.Style = []
    OnDockChanged = DocPanel1DockChanged
    object SpeedButton1: TSpeedButton
      Left = 8
      Top = 8
      Width = 25
      Height = 25
      Hint = 'This Button will toggle the visibity of all odd numbered buttons'
      Glyph.Data = {
        06020000424D0602000000000000760000002800000028000000140000000100
        0400000000009001000000000000000000000000000000000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        33333333333333333333333333333333333333333333333333FFFFFFFFFFFFFF
        FFFF300000000000000000033777777777777777777F30FFFFFFFFFFFFFFFF03
        373FFFFFFF3FFFFFFF7F300000000000000000033777777777777777777F300F
        FFFFF00FFFFFF003377F3333377F3333377F300FFFFFF00FFFFFF003377F3333
        377F3333377F300FFFFFF00FFFFFF003377F3333377F3333377F300CCCCCC00C
        CCCCC003377FFFFFF77FFFFFF77F300000000000000000033777777777777777
        777F300FFFFFF00FFFFFF003377F3333377F3333377F300FFFFFF00FFFFFF003
        377F3333377F3333377F300FFFFFF00FFFFFF003377F3333377F3333377F300C
        CCCCC00CCCCCC003377FFFFFF77FFFFFF77F3000000000000000000337777777
        77777777777F308CCCCCCCCCCCCCC8033777777777777777777F308CCCCCCCCC
        CCCCC80337FFFFFFFFFFFFFFFF7F300000000000000000033777777777777777
        7773333333333333333333333333333333333333333333333333333333333333
        33333333333333333333}
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = SpeedButton1Click
    end
    object SpeedButton2: TSpeedButton
      Left = 40
      Top = 8
      Width = 25
      Height = 25
      Hint = 'Button Hint'
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333FFFFF3333333333999993333333333F77777FFF333333999999999
        33333337777FF377FF3333993370739993333377FF373F377FF3399993000339
        993337777F777F3377F3393999707333993337F77737333337FF993399933333
        399377F3777FF333377F993339903333399377F33737FF33377F993333707333
        399377F333377FF3377F993333101933399377F333777FFF377F993333000993
        399377FF3377737FF7733993330009993933373FF3777377F7F3399933000399
        99333773FF777F777733339993707339933333773FF7FFF77333333999999999
        3333333777333777333333333999993333333333377777333333}
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
    end
    object SpeedButton3: TSpeedButton
      Left = 72
      Top = 8
      Width = 25
      Height = 25
      Hint = 'Button Hint'
      Glyph.Data = {
        66010000424D6601000000000000760000002800000014000000140000000100
        040000000000F000000000000000000000001000000010000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        333333330000330000000000000000330000308B8B0CC40AA609D103000030BF
        B80C040E020D9503000030F0FB0C040A0609D103000030B0B80C040E020D9503
        000030B0B80CC40EE209D103000030F0FB0CC40AA60D9503000030FBFB0CC40A
        0209D103000030BFB80CC40E060D0503000030FBFB0C040A02090103000030B0
        080C040E060D0503000030FBFB0C040A02098103000030B0B80C040E060D0503
        000030FBFB0C040AA2090103000030B0080CC400000D0503000030FBFB000003
        330901030000330000333333330D950300003333333333333330003300003333
        33333333333333330000}
      ParentShowHint = False
      ShowHint = True
    end
    object SpeedButton4: TSpeedButton
      Left = 104
      Top = 8
      Width = 25
      Height = 25
      Hint = 'Button Hint'
      Glyph.Data = {
        78010000424D7801000000000000760000002800000020000000100000000100
        04000000000000000000120B0000120B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300130000031
        00333773F77777FF7733331000909000133333377737F777FF33330098F0F890
        0333337733F733F77F33370980FFF08907333373373F373373F33099FFFFFFF9
        903337F3F373F33FF7F33090F000FF00903337F73337F37737F3B099FFF0FFF9
        90B3373F33F7F3F33733070980F0F0890703337FF737F7337F33BB0098F0F890
        0BB33F77FF3733377FFF000009999900000377777FFFFF77777F088700000008
        77037F3377777773337F088887707888870373F3337773F33373B078800B0088
        70B3373FF733373FF73303700BBBBB007303337773F3F3777F33330BB0B0B0BB
        033333733737F73F73F330BB03B0B30BB03337337337337337330000}
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
    end
    object SpeedButton5: TSpeedButton
      Left = 136
      Top = 8
      Width = 25
      Height = 25
      Hint = 'Button Hint'
      Glyph.Data = {
        42010000424D4201000000000000760000002800000011000000110000000100
        040000000000CC00000000000000000000001000000010000000000000000000
        BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
        7777700000007777770000000000700000007777770FFFFFFFF0700000007777
        770FFFFFFFF0700000007777770FFFFFFFF07000000088888800000000007000
        00008FFFFF0FCCCCCCC0700000008FFFFF0000000000700000008FFFFFFFF877
        7777700000008888888888888887700000008F88888888FFFF87700000008888
        888888FFFF8770000000777778FFFFFFFF877000000077777888888888877000
        0000777778F88888888770000000777778888888888770000000777777777777
        777770000000}
      ParentShowHint = False
      ShowHint = True
    end
    object SpeedButton6: TSpeedButton
      Left = 168
      Top = 8
      Width = 25
      Height = 25
      Hint = 'Button Hint'
      Glyph.Data = {
        42010000424D4201000000000000760000002800000011000000110000000100
        040000000000CC00000000000000000000001000000010000000000000000000
        BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
        7777700000007777777777777777700000007777777777777777700000007777
        7447774477777000000077777744744777777000000077777774447777777000
        0000770070774777007770000000707707777770770770000000707707777770
        7777700000007077077177707707700000007700077117770077700000007777
        7717717777777000000077777117717777777000000077771771177777777000
        0000777177777777777770000000777777777777777770000000777777777777
        777770000000}
      ParentShowHint = False
      ShowHint = True
    end
    object SpeedButton7: TSpeedButton
      Left = 200
      Top = 8
      Width = 25
      Height = 25
      Hint = 'Button Hint'
      Glyph.Data = {
        4E010000424D4E01000000000000760000002800000012000000120000000100
        040000000000D800000000000000000000001000000010000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00DDDDDDDDDDDD
        DDDDDD000000DDDDDDD0FFFFFFFF0D000000DDDDDDD0FFFFFFFF0D000000DDDD
        D000007FFFFF0D000000DDDDD0FBFB0FFFF70D000000DDDDD00FBF30FF70DD00
        0000DDDDD0F03BF3000DDD000000DDD000B3BFBFB0DDDD000000DDD0FBFBFBFB
        F0DDDD000000DDD73F0F0FBFB0DDDD000000DDDD0B00FBFBF0DDDD000000DDDD
        D0BFBFBFB0DDDD000000D0000CCCCCCCC4DDDD000000DDDDD4CCCCCCC4DDDD00
        0000DDDDDD4CCCCC4DDDDD000000DDDDDDD44444DDDDDD000000DDDDDDDDDDDD
        DDDDDD000000DDDDDDDDDDDDDDDDDD000000}
      ParentShowHint = False
      ShowHint = True
    end
    object SpeedButton8: TSpeedButton
      Left = 232
      Top = 8
      Width = 25
      Height = 25
      Hint = 'Button Hint'
      Glyph.Data = {
        78010000424D7801000000000000760000002800000020000000100000000100
        04000000000000000000120B0000120B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
        55555FFFFFFF5F55FFF5777777757559995777777775755777F7555555555550
        305555555555FF57F7F555555550055BB0555555555775F777F55555550FB000
        005555555575577777F5555550FB0BF0F05555555755755757F555550FBFBF0F
        B05555557F55557557F555550BFBF0FB005555557F55575577F555500FBFBFB0
        B05555577F555557F7F5550E0BFBFB00B055557575F55577F7F550EEE0BFB0B0
        B05557FF575F5757F7F5000EEE0BFBF0B055777FF575FFF7F7F50000EEE00000
        B0557777FF577777F7F500000E055550805577777F7555575755500000555555
        05555777775555557F55550005555555055555777555555575550000}
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 41
    Width = 377
    Height = 216
    Align = alClient
    Caption = 'Panel1'
    TabOrder = 1
    object Memo1: TMemo
      Left = 1
      Top = 1
      Width = 375
      Height = 214
      Align = alClient
      Lines.Strings = (
        'This is a Sample Application to demonstrate some of the '
        'capabilities '
        'of TDocpanel. '
        ''
        'Press F1 for help on any of the settings'
        ''
        'Try changing the settings and see the effects on the panel.'
        ''
        'The code for the first Button Demonstrates how to change '
        'the '
        'components on a dockbar at run-time'
        ''
        'Also Try Resizing this window with the panel in a docked '
        'position to '
        'see the effects of the new autowrap Property'
        ''
        'The main menu is also a TDocPanel with the docking '
        'method set to '
        'dmnone'
        ''
        'Enjoy the component'
        ''
        'Peter van Lonkhuyzen'
        ''
        'email '
        '      peterv@global.co.za'
        'post '
        '       PO Box 1041'
        '       Randpark Ridge'
        '       2156')
      ReadOnly = True
      ScrollBars = ssVertical
      TabOrder = 0
    end
  end
  object MainMenu: TDocPanel
    Left = 0
    Top = 69
    Width = 377
    Height = 172
    Align = alNone
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    AutoWrap = False
    Arrangement = amNone
    AutoHide = False
    DropDown = True
    Docked = False
    DockingMethod = dmNone
    Icon.Data = {<image001.ico>}
    NotificationCursor = False
    Shrink = False
    Title = 'Demonstration Menu'
    TitleFont.Color = clBlack
    TitleFont.Height = -9
    TitleFont.Name = 'Arial'
    TitleFont.Style = []
    object Label1: TLabel
      Left = 24
      Top = 16
      Width = 56
      Height = 14
      Caption = 'FloatBorder'
    end
    object Label2: TLabel
      Left = 8
      Top = 40
      Width = 73
      Height = 14
      Caption = 'DockingMethod'
    end
    object Label3: TLabel
      Left = 8
      Top = 64
      Width = 60
      Height = 14
      Caption = 'CaptionType'
    end
    object Label4: TLabel
      Left = 8
      Top = 88
      Width = 63
      Height = 14
      Caption = 'Arrangement'
    end
    object Label5: TLabel
      Left = 88
      Top = 136
      Width = 68
      Height = 14
      Caption = 'Docking Sides'
    end
    object Label6: TLabel
      Left = 184
      Top = 88
      Width = 47
      Height = 14
      Caption = 'MaxWidth'
    end
    object DockFrame: TLabel
      Left = 184
      Top = 56
      Width = 54
      Height = 14
      Caption = 'DockFrame'
    end
    object Docked: TCheckBox
      Left = 256
      Top = 16
      Width = 57
      Height = 17
      HelpContext = 14
      Caption = 'Docked'
      State = cbChecked
      TabOrder = 0
      OnClick = DockedClick
    end
    object Button1: TButton
      Left = 88
      Top = 112
      Width = 73
      Height = 25
      Caption = 'Toggle Visible'
      TabOrder = 1
      OnClick = Button1Click
    end
    object ComboBox1: TComboBox
      Left = 88
      Top = 16
      Width = 89
      Height = 22
      HelpContext = 18
      Style = csDropDownList
      ItemHeight = 14
      Items.Strings = (
        'fbSingle'
        'fbSizable')
      TabOrder = 2
      OnChange = ComboBox1Change
    end
    object ComboBox2: TComboBox
      Left = 88
      Top = 40
      Width = 89
      Height = 22
      HelpContext = 15
      Style = csDropDownList
      ItemHeight = 14
      Items.Strings = (
        'dmBoth'
        'dmDblClick'
        'dmDrag'
        'dmNone')
      TabOrder = 3
      OnChange = ComboBox2Change
    end
    object ComboBox3: TComboBox
      Left = 88
      Top = 64
      Width = 89
      Height = 22
      HelpContext = 12
      Style = csDropDownList
      ItemHeight = 14
      Items.Strings = (
        'ctCustom'
        'ctNot3x'
        'ctWindows')
      TabOrder = 4
      OnChange = ComboBox3Change
    end
    object CheckBox1: TCheckBox
      Left = 184
      Top = 16
      Width = 65
      Height = 17
      HelpContext = 11
      Caption = 'AutoHide'
      State = cbChecked
      TabOrder = 5
      OnClick = CheckBox1Click
    end
    object ComboBox4: TComboBox
      Left = 88
      Top = 88
      Width = 89
      Height = 22
      HelpContext = 9
      Style = csDropDownList
      ItemHeight = 14
      Items.Strings = (
        'amAuto'
        'amNone'
        'amWidth')
      TabOrder = 6
      OnChange = ComboBox4Change
    end
    object left: TCheckBox
      Left = 16
      Top = 154
      Width = 41
      Height = 17
      HelpContext = 17
      Caption = 'Left'
      State = cbChecked
      TabOrder = 7
      OnClick = leftClick
    end
    object top: TCheckBox
      Left = 128
      Top = 154
      Width = 41
      Height = 17
      HelpContext = 17
      Caption = 'Top'
      State = cbChecked
      TabOrder = 8
      OnClick = leftClick
    end
    object bottom: TCheckBox
      Left = 184
      Top = 154
      Width = 57
      Height = 17
      HelpContext = 17
      Caption = 'Bottom'
      State = cbChecked
      TabOrder = 9
      OnClick = leftClick
    end
    object right: TCheckBox
      Left = 64
      Top = 154
      Width = 49
      Height = 17
      HelpContext = 17
      Caption = 'Right'
      State = cbChecked
      TabOrder = 10
      OnClick = leftClick
    end
    object SpinEdit1: TSpinEdit
      Left = 240
      Top = 88
      Width = 65
      Height = 23
      HelpContext = 19
      MaxValue = 1000
      MinValue = -1
      TabOrder = 11
      Value = -1
      OnChange = SpinEdit1Change
    end
    object CheckBox2: TCheckBox
      Left = 192
      Top = 120
      Width = 121
      Height = 17
      HelpContext = 20
      Caption = 'MaxWidthRestore'
      State = cbChecked
      TabOrder = 12
      OnClick = CheckBox2Click
    end
    object BitBtn1: TBitBtn
      Left = 240
      Top = 138
      Width = 73
      Height = 33
      HelpContext = 13
      Caption = 'Font'
      TabOrder = 13
      OnClick = BitBtn1Click
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333333333333333333333333333333333FFF33FFFFF33333300033000
        00333337773377777333333330333300033333337FF33777F333333330733300
        0333333377FFF777F33333333700000073333333777777773333333333033000
        3333333337FF777F333333333307300033333333377F777F3333333333703007
        33333333377F7773333333333330000333333333337777F33333333333300003
        33333333337777F3333333333337007333333333337777333333333333330033
        3333333333377333333333333333033333333333333733333333333333333333
        3333333333333333333333333333333333333333333333333333}
      NumGlyphs = 2
    end
    object ComboBox5: TComboBox
      Left = 240
      Top = 56
      Width = 73
      Height = 22
      HelpContext = 25
      Style = csDropDownList
      ItemHeight = 14
      Items.Strings = (
        'dfInner'
        'dfOuter')
      TabOrder = 14
      OnChange = ComboBox5Change
    end
    object CheckBox3: TCheckBox
      Left = 256
      Top = 36
      Width = 105
      Height = 17
      Caption = 'NotificationCursor'
      TabOrder = 15
      OnClick = CheckBox3Click
    end
    object CheckBox4: TCheckBox
      Left = 184
      Top = 36
      Width = 73
      Height = 17
      Caption = 'DropDown'
      TabOrder = 16
      OnClick = CheckBox4Click
    end
    object shrink: TCheckBox
      Left = 312
      Top = 16
      Width = 57
      Height = 17
      HelpContext = 38
      Caption = 'Shrink'
      TabOrder = 17
      OnClick = shrinkClick
    end
  end
  object FontDialog1: TFontDialog
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'System'
    Font.Style = []
    MinFontSize = 0
    MaxFontSize = 0
    Left = 336
    Top = 170
  end
end