object SpeedbarEditor: TSpeedbarEditor Left = 222 Top = 126 ActiveControl = SectionList BorderIcons = [biSystemMenu, biMinimize] BorderStyle = bsDialog Caption = 'Speedbar Designer' ClientHeight = 277 ClientWidth = 437 Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] Icon.Data = {} PixelsPerInch = 96 OnClose = FormClose OnCreate = FormCreate OnDestroy = FormDestroy OnShow = FormShow TextHeight = 13 object SectionNameLabel: TLabel Left = 180 Top = 10 Width = 86 Height = 13 Caption = '&Section name: ' FocusControl = SectionName end object LabelHint: TLabel Left = 4 Top = 248 Width = 429 Height = 29 AutoSize = False Caption = 'To add command buttons, drag and drop button onto the SpeedBar. ' + 'To remove command buttons, drag them off of the SpeedBar.' WordWrap = True end object SectionsBox: TGroupBox Left = 4 Top = 3 Width = 165 Height = 240 Caption = ' Sections ' TabOrder = 0 object NewSection: TButton Left = 9 Top = 208 Width = 69 Height = 25 Caption = '&New' TabOrder = 0 OnClick = NewSectionClick end object DelSection: TButton Left = 85 Top = 208 Width = 69 Height = 25 Caption = '&Delete' Enabled = False TabOrder = 1 OnClick = DelSectionClick end object SectionList: TDrawGrid Left = 8 Top = 16 Width = 149 Height = 185 ColCount = 1 DefaultColWidth = 147 DefaultRowHeight = 15 FixedCols = 0 FixedRows = 0 Options = [goDrawFocusSelected, goRowSelect] RowCount = 1 ScrollBars = ssVertical TabOrder = 2 OnDragDrop = SectionListDragDrop OnDragOver = SectionListDragOver OnDrawCell = SectionListDrawCell OnKeyDown = SectionListKeyDown OnMouseDown = SectionListMouseDown OnSelectCell = SectionListSelectCell end end object ButtonsBox: TGroupBox Left = 172 Top = 30 Width = 262 Height = 213 Caption = ' Available buttons ' TabOrder = 2 object UpBtn: TSpeedButton Left = 232 Top = 68 Width = 24 Height = 25 Hint = 'Move up|' Enabled = False Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00DDDDDDDDDDDD DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD00000DD DDDDDDDDD04440DDDDDDD0000044400000DDDD04444444440DDDDDD044444440 DDDDDDDD0444440DDDDDDDDDD04440DDDDDDDDDDDD040DDDDDDDDDDDDDD0DDDD DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD} ParentShowHint = False ShowHint = True OnClick = UpBtnClick end object DownBtn: TSpeedButton Left = 232 Top = 100 Width = 24 Height = 25 Hint = 'Move Down|' Enabled = False Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00DDDDDDDDDDDD DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD0DDDDDDDDDDDDDD040DDD DDDDDDDDD04440DDDDDDDDDD0444440DDDDDDDD044444440DDDDDD0444444444 0DDDD0000044400000DDDDDDD04440DDDDDDDDDDD00000DDDDDDDDDDDDDDDDDD DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD} ParentShowHint = False ShowHint = True OnClick = DownBtnClick end object AddButton: TButton Left = 8 Top = 181 Width = 69 Height = 25 Caption = '&Add' Enabled = False TabOrder = 1 OnClick = AddButtonClick end object RemoveButton: TButton Left = 85 Top = 181 Width = 69 Height = 25 Caption = '&Remove' Enabled = False TabOrder = 2 OnClick = RemoveButtonClick end object CloseBtn: TButton Left = 185 Top = 181 Width = 69 Height = 25 Caption = '&Close' TabOrder = 3 OnClick = CloseBtnClick end object ButtonsList: TDrawGrid Left = 8 Top = 16 Width = 219 Height = 158 ColCount = 1 Ctl3D = True DefaultColWidth = 215 DefaultRowHeight = 26 FixedCols = 0 FixedRows = 0 Options = [goDrawFocusSelected, goRowSelect] ParentCtl3D = False PopupMenu = PopupMenu RowCount = 1 ScrollBars = ssVertical TabOrder = 0 OnDblClick = ButtonsListDblClick OnDrawCell = ButtonsListDrawCell OnKeyDown = ButtonsListKeyDown OnMouseDown = ButtonsListMouseDown OnMouseMove = ButtonsListMouseMove OnMouseUp = ButtonsListMouseUp OnSelectCell = ButtonsListSelectCell end end object SectionName: TEdit Left = 268 Top = 7 Width = 165 Height = 20 MaxLength = 255 TabOrder = 1 OnExit = SectionNameExit OnKeyDown = SectionNameKeyDown end object PopupMenu: TPopupMenu Left = 185 Top = 78 object CutMenu: TMenuItem Caption = 'Cut' OnClick = CutMenuClick ShortCutText = 'Shift+Del' end object CopyMenu: TMenuItem Caption = 'Copy' OnClick = CopyMenuClick ShortCutText = 'Ctrl+Ins' end object PasteMenu: TMenuItem Caption = 'Paste' OnClick = PasteMenuClick ShortCutText = 'Shift+Ins' end end object FormPlacement1: TFormPlacement IniFileName = 'DELPHI.INI' IniSection = 'RX.SpeedbarEditor' Options = [fpPosition] Left = 400 Top = 3 end end