object EBarMegaDemoOptionsForm: TEBarMegaDemoOptionsForm Left = 692 Top = 338 ActiveControl = btnClose BorderStyle = bsDialog Caption = 'Options' ClientHeight = 336 ClientWidth = 450 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] FormStyle = fsStayOnTop OldCreateOrder = True Position = poScreenCenter OnActivate = FormActivate PixelsPerInch = 96 TextHeight = 13 object pgOptions: TPageControl Left = 0 Top = 0 Width = 450 Height = 297 ActivePage = tsBars Align = alTop TabOrder = 0 object tsBars: TTabSheet Caption = 'Bars' ImageIndex = 1 object gbBackgroundSubMenu: TGroupBox Left = 168 Top = 129 Width = 274 Height = 133 Caption = 'Submenu background' TabOrder = 3 object imSubMenuBackground: TImage Left = 2 Top = 15 Width = 270 Height = 116 Align = alClient end object btnBkSubMenuLoad: TButton Left = 12 Top = 104 Width = 41 Height = 21 Caption = 'Load' TabOrder = 0 OnClick = btnBkSubMenuLoadClick end object btnBkSubMenuClear: TButton Left = 56 Top = 104 Width = 41 Height = 21 Caption = 'Clear' TabOrder = 1 OnClick = btnBkSubMenuClearClick end end object gbBackgroundBars: TGroupBox Left = 168 Top = 0 Width = 273 Height = 129 Caption = 'Background' TabOrder = 1 object imBarsBackground: TImage Left = 2 Top = 15 Width = 269 Height = 112 Align = alClient end object btnBkBarsLoad: TButton Left = 12 Top = 96 Width = 41 Height = 21 Caption = 'Load' TabOrder = 0 OnClick = btnBkBarsLoadClick end object btnBkBarsClear: TButton Left = 56 Top = 96 Width = 41 Height = 21 Caption = 'Clear' TabOrder = 1 OnClick = btnBkBarsClearClick end end object rgStyle: TRadioGroup Left = 1 Top = 0 Width = 160 Height = 126 Caption = 'Style' Items.Strings = ( '&Standard' '&Enhanced' '&Flat' '&XP' '&Office11') TabOrder = 0 OnClick = rgStyleClick end object gbBarsMiscellaneous: TGroupBox Left = 1 Top = 128 Width = 160 Height = 134 Caption = 'Miscellaneous' TabOrder = 2 object sbFont: TSpeedButton Left = 134 Top = 11 Width = 21 Height = 21 Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 0400000000000001000000000000000000001000000010000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333333333333333333333333333333333333FFF33FFFFF33333300033000 00333337773377777333333330333300033333337FF33777F333333330733300 0333333377FFF777F33333333700000073333333777777773333333333033000 3333333337FF777F333333333307300033333333377F777F3333333333703007 33333333377F7773333333333330000333333333337777F33333333333300003 33333333337777F3333333333337007333333333337777333333333333330033 3333333333377333333333333333033333333333333733333333333333333333 3333333333333333333333333333333333333333333333333333} NumGlyphs = 2 OnClick = sbFontClick end object lbFont: TLabel Left = 22 Top = 14 Width = 21 Height = 13 Caption = 'Font' end object lbFontName: TLabel Left = 22 Top = 31 Width = 57 Height = 13 Caption = 'lbFontName' end object beMiscellaneous: TBevel Left = 8 Top = 47 Width = 137 Height = 5 Shape = bsBottomLine end object cbUseF10ForMenu: TCheckBox Left = 21 Top = 55 Width = 124 Height = 17 Caption = 'Use F10 for Menu' TabOrder = 0 OnClick = cbUseF10ForMenuClick end object cbCanCustomize: TCheckBox Left = 21 Top = 72 Width = 97 Height = 17 Caption = 'Can Customize' TabOrder = 1 OnClick = cbCanCustomizeClick end object cbSunkenBorder: TCheckBox Left = 21 Top = 90 Width = 97 Height = 17 Caption = 'Sunken Border' TabOrder = 2 OnClick = cbSunkenBorderClick end object cbAllowReset: TCheckBox Left = 21 Top = 109 Width = 97 Height = 17 Caption = 'Allow Reset' TabOrder = 3 OnClick = cbAllowResetClick end end end object tsSideBar: TTabSheet Caption = 'Side Bar' object gbBackgroundColor: TGroupBox Left = 10 Top = 12 Width = 138 Height = 113 Caption = ' Background Color ' TabOrder = 0 object lbBeginColor: TLabel Left = 8 Top = 24 Width = 53 Height = 13 Caption = 'Begin color' end object lbEndColor: TLabel Left = 8 Top = 44 Width = 45 Height = 13 Caption = 'End color' end object lbFillStyle: TLabel Left = 8 Top = 68 Width = 36 Height = 13 Caption = 'Fill style' end object blStep: TLabel Left = 8 Top = 92 Width = 22 Height = 13 Caption = 'Step' end object pBeginColor: TPanel Left = 64 Top = 20 Width = 65 Height = 17 Color = clGrayText TabOrder = 0 OnClick = pBeginColorClick end object pEndColor: TPanel Tag = 1 Left = 64 Top = 40 Width = 65 Height = 17 Color = clGrayText TabOrder = 1 OnClick = pBeginColorClick end object cbFillStyle: TComboBox Left = 64 Top = 60 Width = 65 Height = 21 Style = csDropDownList ItemHeight = 13 TabOrder = 2 OnChange = cbFillStyleChange Items.Strings = ( 'Horz' 'None' 'Vert') end object seStep: TSpinEdit Left = 64 Top = 84 Width = 65 Height = 22 MaxValue = 0 MinValue = 0 TabOrder = 3 Value = 0 OnChange = seStepChange end end object gbBackgroundPicture: TGroupBox Left = 297 Top = 12 Width = 137 Height = 252 Caption = ' Background Picture ' TabOrder = 5 object ImSideBarbkPicture: TImage Left = 2 Top = 15 Width = 133 Height = 235 Align = alClient end object btnLoad: TButton Left = 44 Top = 224 Width = 41 Height = 21 Caption = 'Load' TabOrder = 0 OnClick = btnLoadClick end object btnClear: TButton Left = 88 Top = 224 Width = 41 Height = 21 Caption = 'Clear' TabOrder = 1 OnClick = btnClearClick end end object gbFonts: TGroupBox Left = 156 Top = 12 Width = 137 Height = 113 Caption = ' Fonts ' TabOrder = 1 object beFonts: TBevel Left = 2 Top = 60 Width = 131 Height = 8 Shape = bsTopLine end object lbItemFontCaption: TLabel Left = 4 Top = 68 Width = 44 Height = 13 Caption = 'Item font:' end object lbGroupFontCaption: TLabel Left = 4 Top = 16 Width = 53 Height = 13 Caption = 'Group font:' end object lbGroupFont: TLabel Left = 8 Top = 36 Width = 58 Height = 13 Caption = 'lbGroupFont' end object lbItemFont: TLabel Left = 8 Top = 88 Width = 49 Height = 13 Caption = 'lbItemFont' end object spGroupFont: TSpeedButton Left = 112 Top = 36 Width = 21 Height = 21 Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 0400000000000001000000000000000000001000000010000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333333333333333333333333333333333333FFF33FFFFF33333300033000 00333337773377777333333330333300033333337FF33777F333333330733300 0333333377FFF777F33333333700000073333333777777773333333333033000 3333333337FF777F333333333307300033333333377F777F3333333333703007 33333333377F7773333333333330000333333333337777F33333333333300003 33333333337777F3333333333337007333333333337777333333333333330033 3333333333377333333333333333033333333333333733333333333333333333 3333333333333333333333333333333333333333333333333333} NumGlyphs = 2 OnClick = spGroupFontClick end object spItemFont: TSpeedButton Left = 112 Top = 88 Width = 21 Height = 21 Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 0400000000000001000000000000000000001000000010000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333333333333333333333333333333333333FFF33FFFFF33333300033000 00333337773377777333333330333300033333337FF33777F333333330733300 0333333377FFF777F33333333700000073333333777777773333333333033000 3333333337FF777F333333333307300033333333377F777F3333333333703007 33333333377F7773333333333330000333333333337777F33333333333300003 33333333337777F3333333333337007333333333337777333333333333330033 3333333333377333333333333333033333333333333733333333333333333333 3333333333333333333333333333333333333333333333333333} NumGlyphs = 2 OnClick = spItemFontClick end end object gbStyle: TGroupBox Left = 154 Top = 128 Width = 139 Height = 72 Caption = ' Style ' TabOrder = 3 object Label7: TLabel Left = 8 Top = 20 Width = 31 Height = 13 Caption = 'Border' end object Label8: TLabel Left = 8 Top = 48 Width = 24 Height = 13 Caption = 'Paint' end object cbBorderStyle: TComboBox Left = 44 Top = 16 Width = 85 Height = 21 Style = csDropDownList ItemHeight = 13 TabOrder = 0 OnClick = cbBorderStyleClick Items.Strings = ( 'None' 'Single') end object cbPaintStyle: TComboBox Left = 44 Top = 44 Width = 85 Height = 21 Style = csDropDownList ItemHeight = 13 TabOrder = 1 OnClick = cbPaintStyleClick Items.Strings = ( 'Flat' 'Standard') end end object gbMiscellaneous: TGroupBox Left = 154 Top = 200 Width = 139 Height = 65 Caption = 'Miscellaneous' TabOrder = 4 object cbCanSelected: TCheckBox Left = 8 Top = 16 Width = 105 Height = 17 Caption = 'Show Selected' TabOrder = 0 OnClick = cbCanSelectedClick end object cbShowGroups: TCheckBox Left = 8 Top = 40 Width = 85 Height = 17 Caption = 'Show Groups' TabOrder = 1 OnClick = cbShowGroupsClick end end object gbSideBarPopupmenu: TGroupBox Left = 8 Top = 128 Width = 140 Height = 137 Caption = 'Popup menu - visible items' TabOrder = 2 object cbIconType: TCheckBox Left = 13 Top = 16 Width = 73 Height = 17 Caption = 'Icon Type' TabOrder = 0 OnClick = cbSBPopupMenuClick end object cbAddGroup: TCheckBox Tag = 1 Left = 13 Top = 32 Width = 73 Height = 17 Caption = 'Add Group' TabOrder = 1 OnClick = cbSBPopupMenuClick end object cbRemoveGroup: TCheckBox Tag = 2 Left = 13 Top = 48 Width = 97 Height = 17 Caption = 'Remove Group' TabOrder = 2 OnClick = cbSBPopupMenuClick end object cbCustomize: TCheckBox Tag = 3 Left = 13 Top = 64 Width = 73 Height = 17 Caption = 'Customize' TabOrder = 3 OnClick = cbSBPopupMenuClick end object cbRenameGroup: TCheckBox Tag = 4 Left = 13 Top = 80 Width = 89 Height = 17 Caption = 'Rename Group' TabOrder = 4 OnClick = cbSBPopupMenuClick end object cbRenameItem: TCheckBox Tag = 5 Left = 13 Top = 96 Width = 81 Height = 17 Caption = 'Rename Item' TabOrder = 5 OnClick = cbSBPopupMenuClick end object cbRemoveItem: TCheckBox Tag = 6 Left = 13 Top = 112 Width = 81 Height = 17 Caption = 'Remove Item' TabOrder = 6 OnClick = cbSBPopupMenuClick end end end end object btnClose: TButton Left = 368 Top = 304 Width = 75 Height = 25 Cancel = True Caption = 'Close' TabOrder = 1 OnClick = btnCloseClick end object ColorDialog: TColorDialog Left = 4 Top = 388 end object OpenPictureDialog: TOpenPictureDialog Filter = 'All (*.bmp;*.ico;*.emf;*.wmf)|*.bmp;*.ico;*.emf;*.wmf|Bitmaps (*' + '.bmp)|*.bmp|Icons (*.ico)|*.ico|Enhanced Metafiles (*.emf)|*.emf' + '|Metafiles (*.wmf)|*.wmf' Left = 36 Top = 388 end object FontDialog: TFontDialog Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Left = 68 Top = 388 end end