x2cl/Test/MenuBar/MainForm.dfm

object frmMain: TfrmMain
  Left = 300
  Top = 219
  Width = 613
  Height = 406
  Caption = 'X2MenuBar Test'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnClick = FormClick
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object bvlMenu: TBevel
    Left = 125
    Top = 0
    Width = 8
    Height = 379
    Align = alLeft
    Shape = bsLeftLine
  end
  object lblAnimationTime: TLabel
    Left = 424
    Top = 20
    Width = 98
    Height = 13
    Caption = 'Animation time (ms):'
  end
  object Panel1: TPanel
    Left = 280
    Top = 68
    Width = 133
    Height = 77
    BevelOuter = bvNone
    TabOrder = 0
    object rbmusikCube: TRadioButton
      Left = 0
      Top = 0
      Width = 113
      Height = 17
      Caption = 'musikCube style'
      Checked = True
      TabOrder = 0
      TabStop = True
      OnClick = PainterClick
    end
    object rbUnameIT: TRadioButton
      Left = 0
      Top = 17
      Width = 113
      Height = 17
      Caption = 'Uname-IT style'
      TabOrder = 1
      OnClick = PainterClick
    end
    object chkBlurShadow: TCheckBox
      Left = 20
      Top = 36
      Width = 97
      Height = 17
      Caption = 'Blur shadow'
      TabOrder = 2
      OnClick = chkBlurShadowClick
    end
  end
  object Panel2: TPanel
    Left = 424
    Top = 68
    Width = 153
    Height = 101
    BevelOuter = bvNone
    TabOrder = 1
    object rbSliding: TRadioButton
      Left = 0
      Top = 20
      Width = 113
      Height = 17
      Caption = 'Sliding animation'
      Checked = True
      TabOrder = 1
      TabStop = True
      OnClick = AnimationClick
    end
    object rbNoAnimation: TRadioButton
      Left = 0
      Top = 0
      Width = 113
      Height = 17
      Caption = 'No animation'
      TabOrder = 0
      OnClick = AnimationClick
    end
    object rbFade: TRadioButton
      Left = 0
      Top = 60
      Width = 113
      Height = 17
      Caption = 'Fading animation'
      TabOrder = 3
      OnClick = AnimationClick
    end
    object rbDissolve: TRadioButton
      Left = 0
      Top = 40
      Width = 113
      Height = 17
      Caption = 'Dissolving animation'
      TabOrder = 2
      OnClick = AnimationClick
    end
    object rbSlideFade: TRadioButton
      Left = 0
      Top = 80
      Width = 153
      Height = 17
      Caption = 'Fading + sliding animation'
      TabOrder = 4
      OnClick = AnimationClick
    end
  end
  object chkAutoCollapse: TCheckBox
    Left = 280
    Top = 196
    Width = 89
    Height = 17
    Caption = 'Auto collapse'
    TabOrder = 2
    OnClick = chkAutoCollapseClick
  end
  object chkAllowCollapseAll: TCheckBox
    Left = 280
    Top = 236
    Width = 101
    Height = 17
    Caption = 'Allow collapse all'
    TabOrder = 4
    OnClick = chkAllowCollapseAllClick
  end
  object chkAutoSelectItem: TCheckBox
    Left = 280
    Top = 216
    Width = 101
    Height = 17
    Caption = 'Auto select item'
    TabOrder = 3
    OnClick = chkAutoSelectItemClick
  end
  object chkScrollbar: TCheckBox
    Left = 424
    Top = 196
    Width = 121
    Height = 17
    Caption = 'Scrollbar'
    Checked = True
    State = cbChecked
    TabOrder = 5
    OnClick = chkScrollbarClick
  end
  object chkHideScrollbar: TCheckBox
    Left = 424
    Top = 217
    Width = 121
    Height = 17
    Caption = 'Hide Scrollbar'
    Checked = True
    State = cbChecked
    TabOrder = 6
    OnClick = chkHideScrollbarClick
  end
  object lbEvents: TListBox
    Left = 152
    Top = 267
    Width = 421
    Height = 93
    ItemHeight = 13
    TabOrder = 7
  end
  object Button1: TButton
    Left = 152
    Top = 68
    Width = 113
    Height = 25
    Caption = 'SelectFirst'
    Enabled = False
    TabOrder = 8
  end
  object Button2: TButton
    Left = 152
    Top = 96
    Width = 113
    Height = 25
    Caption = 'SelectPrior'
    Enabled = False
    TabOrder = 9
  end
  object Button3: TButton
    Left = 152
    Top = 124
    Width = 113
    Height = 25
    Caption = 'SelectNext'
    Enabled = False
    TabOrder = 10
  end
  object Button4: TButton
    Left = 152
    Top = 152
    Width = 113
    Height = 25
    Caption = 'SelectLast'
    Enabled = False
    TabOrder = 11
  end
  object Button5: TButton
    Left = 152
    Top = 180
    Width = 113
    Height = 25
    Caption = 'SelectGroupByIndex'
    Enabled = False
    TabOrder = 12
  end
  object Button6: TButton
    Left = 152
    Top = 208
    Width = 113
    Height = 25
    Caption = 'SelectItemByIndex'
    Enabled = False
    TabOrder = 13
  end
  object chkHotHand: TCheckBox
    Left = 424
    Top = 236
    Width = 149
    Height = 17
    Caption = 'Hand cursor for hot items'
    TabOrder = 15
    OnClick = chkHotHandClick
  end
  object mbTest: TX2MenuBar
    Left = 0
    Top = 0
    Width = 125
    Height = 379
    Align = alLeft
    Groups = <
      item
        Caption = 'Share'
        ImageIndex = 0
        Expanded = True
        Items = <
          item
            Caption = 'File'
            ImageIndex = 0
          end
          item
            Caption = 'Folder'
            ImageIndex = 1
          end
          item
            Caption = 'Photo'
            ImageIndex = 2
          end
          item
            Caption = 'Video'
            ImageIndex = 3
          end
          item
            Caption = 'Invisible item'
            Visible = False
          end
          item
            Caption = 'Disabled item'
            Enabled = False
          end>
      end
      item
        Caption = 'Actions test'
        ImageIndex = 1
        Expanded = False
        Items = <
          item
            Action = actTest
            Caption = 'I'#39'm an action!'
            ImageIndex = 1
          end>
      end
      item
        Action = actTest2
        Caption = 'Group without items'
        ImageIndex = 3
        Expanded = False
        Items = <>
      end
      item
        Caption = 'Biiiiig group.'
        Expanded = False
        Items = <
          item
          end
          item
          end
          item
          end
          item
          end
          item
          end
          item
          end
          item
          end
          item
          end
          item
          end
          item
          end
          item
          end
          item
          end
          item
          end
          item
          end
          item
          end
          item
          end
          item
          end
          item
          end
          item
          end
          item
          end
          item
          end>
      end
      item
        Caption = 'Disabled group'
        Enabled = False
        Expanded = False
        Items = <
          item
          end
          item
          end
          item
          end>
      end>
    Images = glMenu
    TabOrder = 14
    OnCollapsed = mbTestCollapsed
    OnCollapsing = mbTestCollapsing
    OnExpanded = mbTestExpanded
    OnExpanding = mbTestExpanding
    OnSelectedChanged = mbTestSelectedChanged
    OnSelectedChanging = mbTestSelectedChanging
    Painter = mcPainter
  end
  object gcMenu: TX2GraphicContainer
    Left = 180
    Top = 8
    object gcMenuShareFile: TX2GraphicContainerItem
      Picture.Data = {
        0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001000
        00001008060000001FF3FF61000001844944415478DAA5D2CD4B02411400F0B7
        DB2DA27FAB4EE22102A1A0C0FCA0837A4989683734C7A072A12C45502902FB00
        E95487FEA20E1D24337777E635B33BBB389B5E6A60F6ED1EDE6FDE9BB71AFC73
        69C14BADF98A223A8EEB7DDB41B4FD38B11D1112D661A23F1728A657E69E5428
        F761796911869F5F0A32174044102551E6BF17C90364B76270F7F4A6202140AE
        5FB09459554E1589942B8CF9C0F4E280A600A6F58C462E3613A01C70F9B61DCA
        4F1F83D51CA0656EEB2A501FA0918FAB2D88646FA3D74A108D6A0F2E2A496D26
        20127D80972E93998208A00B97951D1530CE076816E2E052FFF238E125B228C4
        1F06E941230AEC9F3CE2F1DE1A7CBB2CAC00652B4CB6C2E49D1C912E07522A50
        22F7484AEB30B2250018224C2607509974A0719C5681BC798B75630386131AA9
        80274B2C68A5C22BB8AA46809C71C347B3091F631ACC414564152E8FD55A079A
        24A302A9621B5BB524BC8F9CA951AA80F72FF07D76DA8516C9AAC0EE411B755D
        0790339045841719DC8BA86241D37F4FE1AFEB07F8392D2050E7313500000000
        49454E44AE426082}
      PictureName = 'ShareFile'
    end
    object gcMenuShareFolder: TX2GraphicContainerItem
      Picture.Data = {
        0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001000
        00001008060000001FF3FF610000025B4944415478DAAD936D48535118C7FF77
        775BEAD8ACA123CB2834EC9B2DB2B0328CCC284B461192146A48040505D36A05
        154826A64D53A490303F6510C528421B6B2CC4C0E5170317ABA859099ACEBBF7
        B6BBFBD2F172433F680875E0CF797BFE3FCE79CE7928FC63A3961B38D201BB3F
        82524100E6140AA0A7D28ADA65039C2D88159DF3A7AA52F5D2FCF90D0AA60650
        4B02BCBDD8C504512288284CB23088EA0C63F18569FACFFE92007727BCB47E4B
        9E5A9385F4753B9091530EB5D6009AD690DD28519C2813B66B5A1CB9B908C075
        0762B139042EEE412CF01D51BF0789F04F4064C1712C36EEAE275119787A350B
        C79A64C0609B2209958E5E633C4FF9DE36A0B07610D1D97EA8523448D56AB122
        2D8D642E8EC98FA3D0E79442AD31E289250F15CD32C0D942058ACE0EA7ABD236
        C1D19C8E7D973F93D521804B4A4649624292CFF3151B0AEAF1F8E26654B6CA00
        C76DA53BFF68DFB6CCDC9DB037ADC5FE2BA3C4F41AE009804BCC03F8047E787D
        C8DE5E8547751538619501F62674AF5A5F525350D9AD1A68CCC5018B8BE4AA5F
        324060E57EEE041CC4A40026A6C3CBAE07A8BA2B03061A5141F1F4BDBD752FF4
        AF5ACB70E8928D24FC1931B20B00736312ACA010F42760EB79839ACE05AF3070
        2BC5A6CBDA6A9AF10DA1DCFC1008F649999704228508669605331E86776C06D3
        939189EA0E6453F31F0367D49AD55DF1F0246D32B713402F3125C04C45C8BD43
        98188F89D15032405E72F8781B0E2E5A0BCEAE7C8E99784F97551FC627B70BDF
        BEFCE2E3117E4AE031625809CB9EEBF8F0D7627A77BFE0D4D8D88855A9440022
        1C27DB71FABF55E352ED373075032024CD24170000000049454E44AE426082}
      PictureName = 'ShareFolder'
    end
    object gcMenuShareWebcam: TX2GraphicContainerItem
      Picture.Data = {
        0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001000
        00001008060000001FF3FF61000002C14944415478DABD935D48935118C7FF9B
        DB9CD38913155CB586D008C30F9A95A8217927A14157DE441FE88521A4828108
        0A8992621745A80C477AB3A048D44A08A18589BA959AE0D4A09CBAE936F7E55E
        759B7BDFB91EDF20E82E283A70381CCE797EFFE739E7FF08F09743F04F00D5D5
        BA94C4C4E47A954AA171BB0F6452292B92CB25C24824088E63A32C1BE658F630
        B2BFBF175E5B5B5B0F0643AF8DC6E79F7F011A1B87DE3435555C0D8582181F37
        637BFB3BEAEA6ED28918BBBB3EC4C589F8AB1C071C1C846136CFC52626DE0D8D
        8E0EDEE6011D1D2F772A2B0BD2392E0A936915878711C46231088502582C6FB1
        B4B44CC0079899998048C48132A1A8D42D9DAEEB240F686919F017179F4D6118
        8ED4BD9048E22016FF9C16CB14525353A056E7C26AB5109C4166A692A0566F6F
        EFC3341ED0DDFDC25759A9552C2CAC8061F6715C7B2C968868D405AD36076EB7
        874A0990BA020A453A8145181B1BF1F7F575A7F280F6F621574D4D4586DDEE81
        D7CBC066B3D2EA446E6E16BABA9E906A0C39392AE4E79F874A758E32946078F8
        95BBBFBF278307B4B50D6CD6D65E3FB5B9E982CFC7606BCB4EEA3EACAE2E2110
        5042A3C9C6E4A40EA5A525042A444282140683C1A6D33D56F180E6E6A75F1B1A
        6E683636B649790F3B3B0E04832EACAF7F83D13887B4B44CC8E52C0A0B8B9097
        7701F1F1F1D0EBF52B7A7D6F360FA8AFEFFAD4DA7AB7C06ADD86C7B34BC10C1C
        0E3BA4D2E35F311F7B014AE50994945C21F544242727D1BB3D9A32189E5DE601
        55558D239D9DF7AE310C4BEA7EAA5100A7D3857098A1E010EDC5C8CA3A43CA32
        BACD61717131363030747F76F6430F0F282FBF73A9ACACE47D51915666B3B9C8
        386421B11432593C418294CD163DAC2DE2743AE697972DC66834326A327D34FD
        D60BE5E5B72EAAD5A7079392E41AB2AE9BCC6275B91CCB3E5FE08B40C0CE1F1D
        F917A6A767427FD24C429A47FFAD1B7F00ED1B51200D4AE2740000000049454E
        44AE426082}
      PictureName = 'ShareWebcam'
    end
    object gcMenuShareWebcamVideo: TX2GraphicContainerItem
      Picture.Data = {
        0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001000
        00001008060000001FF3FF61000002EA4944415478DAA5935D48935118C7FFF3
        DDAB6BCEF9FDED44DC4CA15E8761412A1296A121285ED595DD7521298C125341
        E9622B584CE6BCF122454891AE9424432B3FC8A4FC203F32D1E9FCAA95D36DCD
        B5BDAF7BB78E2B040BA2E8DC9CAFE7FC9EE7FCCFF90BF09F4DF0EB82CFE713E8
        F5FA149AA6198FC7C3884422262C2C8C118BC5A91CC7EDBBDDAE75ABD5BAC4B2
        9C4EA5524D1E03747777574B2492A688888830D2432A952238580C9AA6C82E8F
        830316DBDB7632077A7B7B5FD7D737E41C017A7A7A8A939393FB188611DA6C36
        2426268265DDB05A2D9899716373D30BA39187CD7608FA86ADCD06D7E0D0A0D8
        0F50ABD585342D7CEA703828A55289E8E818242424203C5C82AE2E0789909183
        FB70BB59389D2E02F66274F4BA6361615CEA075455DD1C11894EE43FEC7C8C2B
        C59791794A8EA2A26212ECC4F47436380EE430878D8D31D8ED6FC93A199BDEAC
        4FCD0CA4F801776A6B9D731F56C553CB1C3EED72A82C4FC2A5C2622814C99898
        9061656519F3F3F7B1B7B785A8A818040444212DEDCCAC56AB52FA013535B7ED
        E65D56FA688405EF0DC5D59CAF60329290937B0E7373720C0CA840511C76763E
        FB01F1F1371014343B6B3034FE005456560E9D4C935FACD6AF03541CCAB35791
        9A1082D34C3A9697F33035A5267A444128CC464848162C163BD1A97FB2B5557D
        F667053525F0F17D2C1527E81B36212B6E1D79F917E0724988FAB9100804F078
        78A2C5A1802EA2831B1919CFFB753A6DC9D133D6D5D5DD22719AF434B9D0E9E2
        488981E4B942313C1C47EECCC3EBF591B9070E871B4AA58FC09E7536371B2A8E
        7DA4F6F6F677A5A5A59966B39964B1C164B2A0A34388C04090CC3C2223BD2828
        A0C978D16B327D2CD56A1F3C3906D0E974E3656565E7799EF7976DB57E415BDB
        26C46211C94A932A8CBEA5A5B5171415D8A8D1685EFDE605F2A1AE51146590C9
        64110A8582F8C2EBBFF7E2E27B9FD1B8F6322040D8A4D1DC1BFBA39988418288
        894A481515B1B1B185168BE51531D8DD969696D1BF72E3BFB6EF2C065120000A
        A5C30000000049454E44AE426082}
      PictureName = 'ShareWebcamVideo'
    end
  end
  object glMenu: TX2GraphicList
    Container = gcMenu
    Left = 208
    Top = 8
  end
  object mcPainter: TX2MenuBarmusikCubePainter
    Left = 152
    Top = 8
  end
  object unaPainter: TX2MenuBarunaPainter
    BlurShadow = False
    Left = 152
    Top = 36
  end
  object alMenu: TActionList
    Images = glMenu
    Left = 236
    Top = 8
    object actTest: TAction
      Caption = 'I'#39'm an action!'
      ImageIndex = 1
      OnExecute = actTestExecute
    end
    object actTest2: TAction
      Caption = 'Group without items'
      ImageIndex = 3
      OnExecute = actTest2Execute
    end
  end
end