Chip 1997 April/Chip_1997-04_cd.bin/prezent/cb/data.z/CMPLIB32.CCL/RCDATA/TGRIDCOLEDITOR/TGRIDCOLEDITOR.txt

Text File | 1997-01-16 | 9.4 KB | 425 lines

object GridColEditor: TGridColEditor
  Left = 241
  Top = 164
  ActiveControl = ColumnList
  BorderStyle = bsDialog
  Caption = 'DBGrid Columns Editor'
  ClientHeight = 311
  ClientWidth = 416
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  PixelsPerInch = 96
  Position = poScreenCenter
  OnClose = FormClose
  OnCreate = FormCreate
  TextHeight = 13
  object HelpButton: TButton
    Left = 334
    Top = 280
    Width = 75
    Height = 25
    Caption = '&Help'
    TabOrder = 5
    OnClick = HelpButtonClick
  end
  object ApplyButton: TButton
    Left = 254
    Top = 280
    Width = 75
    Height = 25
    Caption = '&Apply'
    Enabled = False
    TabOrder = 4
    OnClick = ApplyButtonClick
  end
  object CancelButton: TButton
    Left = 174
    Top = 280
    Width = 75
    Height = 25
    Cancel = True
    Caption = 'Cancel'
    ModalResult = 2
    TabOrder = 3
  end
  object OkButton: TButton
    Left = 94
    Top = 280
    Width = 75
    Height = 25
    Caption = 'OK'
    Default = True
    ModalResult = 1
    TabOrder = 2
    OnClick = OkButtonClick
  end
  object GB: TGroupBox
    Left = 8
    Top = 4
    Width = 137
    Height = 261
    Caption = 'Co&lumns'
    TabOrder = 0
    object ColumnList: TListBox
      Left = 8
      Top = 16
      Width = 121
      Height = 145
      ItemHeight = 13
      PopupMenu = PM
      TabOrder = 0
      OnClick = ColumnListClick
      OnDragDrop = ColumnListDragDrop
      OnDragOver = ColumnListDragOver
      OnMouseDown = ColumnListMouseDown
    end
    object NewButton: TButton
      Left = 8
      Top = 172
      Width = 57
      Height = 25
      Caption = '&New'
      TabOrder = 1
      OnClick = NewButtonClick
    end
    object DeleteButton: TButton
      Left = 72
      Top = 172
      Width = 57
      Height = 25
      Caption = '&Delete'
      TabOrder = 2
      OnClick = DeleteButtonClick
    end
    object AddAllFields: TButton
      Left = 8
      Top = 200
      Width = 121
      Height = 25
      Caption = 'Add All Fields'
      TabOrder = 3
      OnClick = AddAllFieldsClick
    end
    object DeleteAll: TButton
      Left = 8
      Top = 228
      Width = 121
      Height = 25
      Caption = 'Delete All Columns'
      TabOrder = 4
      OnClick = DeleteAllClick
    end
  end
  object PageControl1: TPageControl
    Left = 152
    Top = 8
    Width = 257
    Height = 257
    ActivePage = ts1
    TabOrder = 1
    object ts1: TTabSheet
      Caption = 'Column Properties'
      object Label1: TLabel
        Left = 12
        Top = 113
        Width = 53
        Height = 13
        Caption = '&FieldName:'
        FocusControl = ColFieldName
      end
      object TLabel
        Left = 12
        Top = 165
        Width = 31
        Height = 13
        Caption = '&Width:'
        FocusControl = ColWidth
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object TLabel
        Left = 12
        Top = 9
        Width = 49
        Height = 13
        Caption = '&Alignment:'
        FocusControl = ColAlignment
      end
      object TLabel
        Left = 12
        Top = 59
        Width = 27
        Height = 13
        Caption = '&Color:'
        FocusControl = ColColor
      end
      object TLabel
        Left = 12
        Top = 33
        Width = 57
        Height = 13
        Caption = '&ButtonStyle:'
        FocusControl = ColButtonStyle
      end
      object TLabel
        Left = 12
        Top = 86
        Width = 81
        Height = 13
        Caption = 'DropDownRo&ws:'
        FocusControl = ColDropDownRows
      end
      object TLabel
        Left = 12
        Top = 140
        Width = 50
        Height = 13
        Caption = '&ReadOnly:'
        FocusControl = ColReadOnly
      end
      object ColFieldName: TComboBox
        Left = 104
        Top = 110
        Width = 137
        Height = 21
        ItemHeight = 13
        TabOrder = 4
        OnChange = EditChange
        OnClick = NonTaggedControlClick
        OnDropDown = ColFieldNameDropDown
        OnExit = ControlExit
      end
      object ColWidth: TEdit
        Left = 104
        Top = 162
        Width = 137
        Height = 21
        TabOrder = 6
        OnChange = TaggedControlChanged
        OnExit = ControlExit
        OnKeyDown = TaggedControlKeyDown
      end
      object ColAlignment: TComboBox
        Left = 104
        Top = 6
        Width = 137
        Height = 21
        Style = csDropDownList
        ItemHeight = 13
        Items.Strings = (
          'taLeftJustify'
          'taRightJustify'
          'taCenter')
        TabOrder = 0
        OnChange = TaggedControlChanged
        OnClick = ComboClick
        OnExit = ControlExit
        OnKeyDown = TaggedControlKeyDown
      end
      object ColColor: TComboBox
        Left = 104
        Top = 58
        Width = 137
        Height = 21
        ItemHeight = 13
        TabOrder = 2
        OnChange = TaggedControlChanged
        OnClick = ComboClick
        OnDblClick = ColorDblClick
        OnDropDown = ColorDropDown
        OnExit = ControlExit
        OnKeyDown = TaggedControlKeyDown
      end
      object ColButtonStyle: TComboBox
        Left = 104
        Top = 32
        Width = 137
        Height = 21
        Style = csDropDownList
        ItemHeight = 13
        Items.Strings = (
          'cbsAuto'
          'cbsEllipsis'
          'cbsNone')
        TabOrder = 1
        OnChange = EditChange
        OnClick = NonTaggedControlClick
        OnExit = ControlExit
      end
      object ColDropDownRows: TEdit
        Left = 104
        Top = 84
        Width = 137
        Height = 21
        TabOrder = 3
        OnChange = EditChange
        OnExit = ControlExit
      end
      object ColReadOnly: TComboBox
        Left = 104
        Top = 136
        Width = 137
        Height = 21
        Style = csDropDownList
        ItemHeight = 13
        Items.Strings = (
          'False'
          'True')
        TabOrder = 5
        OnChange = TaggedControlChanged
        OnClick = ComboClick
        OnExit = ControlExit
        OnKeyDown = TaggedControlKeyDown
      end
      object ColFont: TButton
        Left = 4
        Top = 200
        Width = 61
        Height = 25
        Caption = 'F&ont...'
        TabOrder = 7
        OnClick = ColFontClick
      end
      object ColPickList: TButton
        Left = 74
        Top = 200
        Width = 63
        Height = 25
        Caption = '&PickList...'
        TabOrder = 8
        OnClick = ColPickListClick
      end
      object RestoreDefaults: TButton
        Left = 144
        Top = 200
        Width = 99
        Height = 25
        Caption = 'Re&store Defaults'
        TabOrder = 9
        OnClick = RestoreDefaultsClick
      end
    end
    object TTabSheet
      Caption = 'Title Properties'
      object TLabel
        Left = 8
        Top = 12
        Width = 49
        Height = 13
        Caption = '&Alignment:'
        FocusControl = TitleAlignment
      end
      object TLabel
        Left = 8
        Top = 38
        Width = 39
        Height = 13
        Caption = 'Ca&ption:'
        FocusControl = TitleCaption
      end
      object TLabel
        Left = 8
        Top = 64
        Width = 27
        Height = 13
        Caption = '&Color:'
        FocusControl = TitleColor
      end
      object TitleAlignment: TComboBox
        Left = 104
        Top = 8
        Width = 137
        Height = 21
        Style = csDropDownList
        ItemHeight = 13
        Items.Strings = (
          'taLeftJustify'
          'taRightJustify'
          'taCenter')
        TabOrder = 0
        OnChange = TaggedControlChanged
        OnClick = ComboClick
        OnExit = ControlExit
        OnKeyDown = TaggedControlKeyDown
      end
      object TitleCaption: TEdit
        Left = 104
        Top = 34
        Width = 137
        Height = 21
        TabOrder = 1
        OnChange = TaggedControlChanged
        OnExit = ControlExit
        OnKeyDown = TaggedControlKeyDown
      end
      object TitleColor: TComboBox
        Left = 104
        Top = 60
        Width = 137
        Height = 21
        ItemHeight = 0
        TabOrder = 2
        OnChange = TaggedControlChanged
        OnClick = ComboClick
        OnDblClick = ColorDblClick
        OnDropDown = ColorDropDown
        OnExit = ControlExit
        OnKeyDown = TaggedControlKeyDown
      end
      object TitleFont: TButton
        Left = 103
        Top = 96
        Width = 74
        Height = 25
        Caption = 'F&ont...'
        TabOrder = 3
        OnClick = TitleFontClick
      end
    end
  end
  object ColorDialog1: TColorDialog
    Ctl3D = True
    Left = 24
    Top = 36
  end
  object FontDialog1: TFontDialog
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    MinFontSize = 0
    MaxFontSize = 0
    Left = 64
    Top = 36
  end
  object PM: TPopupMenu
    Left = 24
    Top = 76
    object Newcolumn1: TMenuItem
      Caption = '&New column'
      ShortCut = 0
      OnClick = NewButtonClick
    end
    object Deletecolumn1: TMenuItem
      Caption = '&Delete column'
      ShortCut = 0
      OnClick = DeleteButtonClick
    end
    object Addallfields1: TMenuItem
      Caption = '&Add all fields'
      ShortCut = 0
      OnClick = AddAllFieldsClick
    end
    object Deleteallcolumns1: TMenuItem
      Caption = 'D&elete all columns'
      ShortCut = 0
      OnClick = DeleteAllClick
    end
  end
end