object ColumnEditForm: TColumnEditForm Left = 358 Top = 211 Width = 273 Height = 223 ActiveControl = lvColumns BorderIcons = [biSystemMenu] Caption = 'ColumnEditForm' Color = clBtnFace Constraints.MinHeight = 60 Constraints.MinWidth = 100 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OldCreateOrder = False OnClose = FormClose OnCreate = FormCreate OnResize = FormResize PixelsPerInch = 96 TextHeight = 13 object ToolBar: TToolBar Left = 0 Top = 0 Width = 265 Height = 34 BorderWidth = 2 Caption = 'ToolBar' EdgeBorders = [ebTop, ebBottom] Flat = True Images = imToolBar Indent = 5 ParentShowHint = False ShowHint = True TabOrder = 0 object tbNew: TToolButton Left = 5 Top = 0 Action = aNew end object tbDelete: TToolButton Left = 28 Top = 0 Action = aDelete end object tbSeparator: TToolButton Left = 51 Top = 0 Width = 19 Caption = 'tbSeparator' ImageIndex = 2 Style = tbsSeparator end object tbAll: TToolButton Left = 70 Top = 0 Action = aAll end object tbDefault: TToolButton Left = 93 Top = 0 Action = aDefault end end object lvColumns: TListView Left = 0 Top = 34 Width = 265 Height = 162 Align = alClient Columns = < item Width = 260 end> DragMode = dmAutomatic MultiSelect = True ReadOnly = True RowSelect = True PopupMenu = PopupMenu ShowColumnHeaders = False TabOrder = 1 ViewStyle = vsReport OnChange = lvColumnsChange OnDragDrop = lvColumnsDragDrop OnDragOver = lvColumnsDragOver end object imToolBar: TImageList Left = 232 Top = 6 end object ColumnsActionList: TActionList Images = imToolBar Left = 204 Top = 6 object aNew: TAction Caption = '&Add ' Hint = 'Add New' ShortCut = 45 OnExecute = aNewExecute end object aDelete: TAction Caption = '&Delete ' Hint = 'Delete Selected' ShortCut = 46 OnExecute = aDeleteExecute end object aAll: TAction Caption = 'Add All &Fields' Hint = 'Add All Fields' OnExecute = aAllExecute end object aDefault: TAction Caption = '&Restore Default' Hint = 'Restore Default' OnExecute = aDefaultExecute end object aToolBar: TAction Caption = '&Toolar' Checked = True OnExecute = aToolBarExecute end object aSelectAll: TAction Caption = '&Select All' OnExecute = aSelectAllExecute end object aDeleteAll: TAction Caption = 'aDeleteAll' OnExecute = aDeleteAllExecute end end object PopupMenu: TPopupMenu Images = imToolBar Left = 172 Top = 6 object AddField1: TMenuItem Action = aNew end object Delete1: TMenuItem Action = aDelete end object SelectAll1: TMenuItem Action = aSelectAll end object N1: TMenuItem Caption = '-' end object AddAllFields1: TMenuItem Action = aAll end object RestoreDefault1: TMenuItem Action = aDefault end object ToolBar1: TMenuItem Action = aToolBar Caption = '&ToolBar' end end end