Chip 2001 October/Chip_2001-10_cd1.bin/zkuste/delphi/kolekce/d456/DCSLIB25.ZIP/DCGridColEdit.dfm/DCGridColEdit.txt

Text File | 2001-05-14 | 3KB | 161 lines

object GridColEditForm: TGridColEditForm
  Left = 365
  Top = 218
  Width = 273
  Height = 223
  ActiveControl = lvColumns
  BorderIcons = [biSystemMenu]
  Caption = 'GridColEditForm'
  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
  OnDestroy = FormDestroy
  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