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

Text File | 1997-01-16 | 20.7 KB | 865 lines

object FormExpert: TFormExpert
  Left = 215
  Top = 114
  BorderStyle = bsDialog
  Caption = 'Database Form Wizard'
  ClientHeight = 288
  ClientWidth = 480
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  PixelsPerInch = 96
  Position = poScreenCenter
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnPaint = FormPaint
  TextHeight = 13
  object Image1: TImage
    Left = 102
    Top = 4
    Width = 17
    Height = 25
    IsControl = True
  end
  object Notebook1: TNotebook
    Left = 126
    Top = 1
    Width = 354
    Height = 254
    PageIndex = 4
    TabOrder = 0
    IsControl = True
    object TPage
      Left = 0
      Top = 0
      Caption = 'QueryType'
      IsControl = True
      object Label1: TLabel
        Left = 10
        Top = 7
        Width = 250
        Height = 13
        Caption = 'Choose the type of form that the Wizard will create'
        IsControl = True
      end
      object Label2: TLabel
        Left = 10
        Top = 22
        Width = 109
        Height = 13
        Caption = 'from the options below.'
        IsControl = True
      end
      object GroupBox2: TGroupBox
        Left = 20
        Top = 53
        Width = 310
        Height = 65
        TabOrder = 0
        IsControl = True
        object Label19: TLabel
          Left = 7
          Top = 1
          Width = 62
          Height = 13
          Caption = 'Form Options'
          FocusControl = CreateSingle
        end
        object CreateSingle: TRadioButton
          Left = 8
          Top = 17
          Width = 142
          Height = 17
          Caption = 'Create a &simple form'
          Checked = True
          TabOrder = 0
          TabStop = True
          OnClick = CreateOptionClick
          IsControl = True
        end
        object CreateMulti: TRadioButton
          Left = 8
          Top = 39
          Width = 185
          Height = 17
          Caption = 'Create a &master/detail form'
          TabOrder = 1
          OnClick = CreateOptionClick
          IsControl = True
        end
      end
      object GroupBox1: TGroupBox
        Left = 20
        Top = 126
        Width = 310
        Height = 65
        TabOrder = 1
        object Label20: TLabel
          Left = 11
          Top = 2
          Width = 78
          Height = 13
          Caption = 'DataSet Options'
          FocusControl = CreateTable
        end
        object CreateTable: TRadioButton
          Left = 8
          Top = 17
          Width = 280
          Height = 17
          Caption = 'Create a form using &TTable objects'
          Checked = True
          TabOrder = 0
          TabStop = True
          OnClick = CreateTableClick
        end
        object CreateQuery: TRadioButton
          Left = 8
          Top = 39
          Width = 251
          Height = 17
          Caption = 'Create a Form using T&Query objects'
          TabOrder = 1
          OnClick = CreateQueryClick
        end
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'Table'
      IsControl = True
      object TableLine: TLabel
        Left = 10
        Top = 7
        Width = 133
        Height = 13
        Caption = 'Choose a table for the query'
        IsControl = True
      end
      object Label25: TLabel
        Left = 185
        Top = 187
        Width = 94
        Height = 13
        Caption = 'Dri&ve or Alias name:'
        FocusControl = AliasDriveList
        IsControl = True
      end
      object Label26: TLabel
        Left = 20
        Top = 186
        Width = 82
        Height = 13
        Caption = 'List Files of &Type:'
        FocusControl = FilterList
        IsControl = True
      end
      object Label27: TLabel
        Left = 19
        Top = 39
        Width = 61
        Height = 13
        Caption = 'T&able Name:'
        FocusControl = FileEdit
        IsControl = True
      end
      object DirPath: TLabel
        Left = 185
        Top = 40
        Width = 53
        Height = 13
        Caption = '&Directories:'
        FocusControl = AliasPathList
        IsControl = True
      end
      object PathText: TLabel
        Left = 187
        Top = 62
        Width = 144
        Height = 13
        AutoSize = False
        Caption = 'Current Path'
        IsControl = True
      end
      object FilterList: TFilterComboBox
        Left = 20
        Top = 201
        Width = 157
        Height = 21
        FileList = AliasFileList
        TabOrder = 3
        OnChange = FilterListChange
        IsControl = True
      end
      object FileEdit: TEdit
        Left = 20
        Top = 55
        Width = 157
        Height = 21
        TabOrder = 0
        OnChange = FileEditChange
        OnKeyPress = FileEditKeyPress
        IsControl = True
      end
      object AliasDriveList: TAliasDrive
        Left = 185
        Top = 202
        Width = 145
        Height = 19
        TabOrder = 4
        OnChange = AliasDriveListChange
        IsControl = True
      end
      object AliasPathList: TAliasListBox
        Left = 184
        Top = 82
        Width = 145
        Height = 98
        ItemHeight = 16
        TabOrder = 2
        OnChange = AliasPathListChange
        OnClick = AliasPathListChange
        IsControl = True
      end
      object AliasFileList: TAliasFileListBox
        Left = 20
        Top = 82
        Width = 157
        Height = 98
        ItemHeight = 16
        ShowGlyphs = True
        TabOrder = 1
        OnClick = AliasFileListClick
        OnDblClick = AliasFileListDblClick
        IsControl = True
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'PickFields'
      IsControl = True
      object Label3: TLabel
        Left = 10
        Top = 21
        Width = 231
        Height = 13
        Caption = 'Available Fields list and then click the ">" button.'
        IsControl = True
      end
      object Label14: TLabel
        Left = 10
        Top = 35
        Width = 198
        Height = 13
        Caption = 'To choose all fields, click the ">>" button.'
        IsControl = True
      end
      object Label15: TLabel
        Left = 10
        Top = 7
        Width = 219
        Height = 13
        Caption = 'To add fields to the form, click each one in the'
        IsControl = True
      end
      object GroupBox3: TGroupBox
        Left = 10
        Top = 61
        Width = 331
        Height = 161
        TabOrder = 0
        IsControl = True
        object Label22: TLabel
          Left = 18
          Top = 12
          Width = 76
          Height = 13
          Caption = '&Available Fields:'
          FocusControl = AvailableList
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          IsControl = True
        end
        object Label24: TLabel
          Left = 192
          Top = 12
          Width = 116
          Height = 13
          Caption = '&Ordered Selected Fields:'
          FocusControl = ChosenList
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          IsControl = True
        end
        object AvailableList: TListBox
          Left = 18
          Top = 29
          Width = 121
          Height = 93
          DragMode = dmAutomatic
          ItemHeight = 13
          MultiSelect = True
          TabOrder = 0
          OnDblClick = ListDblClick
          OnDragDrop = ListDragDrop
          OnDragOver = ListDragOver
        end
        object ChosenList: TListBox
          Left = 192
          Top = 29
          Width = 121
          Height = 93
          DragMode = dmAutomatic
          ItemHeight = 13
          MultiSelect = True
          TabOrder = 1
          OnDblClick = ListDblClick
          OnDragDrop = ListDragDrop
          OnDragOver = ListDragOver
        end
        object UpButton: TBitBtn
          Left = 217
          Top = 130
          Width = 28
          Height = 22
          TabOrder = 2
          OnClick = UpButtonClick
          Glyph.Data = {
            F6000000424DF600000000000000760000002800000010000000100000000100
            0400000000008000000000000000000000001000000000000000000000000000
            BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
            333333333333333333333333338888833333333334444483333333333CCCC483
            333333333CCCC483333333333CCCC483333333333CCCC483333333333CCCC488
            8333333CCCCCCCCC33333333CCCCCCC3333333333CCCCC333333333333CCC333
            33333333333C3333333333333333333333333333333333333333}
        end
        object DownButton: TBitBtn
          Left = 254
          Top = 130
          Width = 28
          Height = 22
          TabOrder = 3
          OnClick = DownButtonClick
          Glyph.Data = {
            F6000000424DF600000000000000760000002800000010000000100000000100
            0400000000008000000000000000000000001000000000000000000000000000
            BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
            333333333333833333333333333488333333333333CC4883333333333CCCC488
            33333333CCCCCC488333333CCCCCC444333333333CCCC483333333333CCCC483
            333333333CCCC483333333333CCCC483333333333CCCC483333333333CCCC433
            3333333333333333333333333333333333333333333333333333}
        end
        object BitBtn3: TBitBtn
          Left = 151
          Top = 34
          Width = 27
          Height = 20
          Caption = '>'
          TabOrder = 4
          OnClick = Button1Click
        end
        object BitBtn4: TBitBtn
          Left = 151
          Top = 56
          Width = 27
          Height = 20
          Caption = '>>'
          TabOrder = 5
          OnClick = Button2Click
        end
        object BitBtn5: TBitBtn
          Left = 152
          Top = 79
          Width = 27
          Height = 20
          Caption = '<'
          TabOrder = 6
          OnClick = Button3Click
        end
        object BitBtn6: TBitBtn
          Left = 152
          Top = 101
          Width = 27
          Height = 20
          Caption = '<<'
          TabOrder = 7
          OnClick = Button4Click
        end
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'Layout'
      IsControl = True
      object LayoutLine1: TLabel
        Left = 10
        Top = 7
        Width = 230
        Height = 13
        Caption = 'Choose the way you want the Wizard to layout'
        IsControl = True
      end
      object Label7: TLabel
        Left = 10
        Top = 21
        Width = 221
        Height = 13
        Caption = 'fields on the form by clicking one of the options'
        IsControl = True
      end
      object Label8: TLabel
        Left = 40
        Top = 65
        Width = 251
        Height = 13
        Caption = 'Place each field side-by-side starting at the left corner'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        IsControl = True
      end
      object Label9: TLabel
        Left = 41
        Top = 80
        Width = 156
        Height = 13
        Caption = 'working towards the bottom right.'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        IsControl = True
      end
      object Label10: TLabel
        Left = 40
        Top = 113
        Width = 225
        Height = 13
        Caption = 'Place each field directly below the previous one'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        IsControl = True
      end
      object Label11: TLabel
        Left = 40
        Top = 129
        Width = 193
        Height = 13
        Caption = 'working from the top down to the bottom.'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        IsControl = True
      end
      object Label12: TLabel
        Left = 38
        Top = 167
        Width = 270
        Height = 13
        Caption = 'Place each field within its own column inside a grid object'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        IsControl = True
      end
      object Label13: TLabel
        Left = 37
        Top = 180
        Width = 115
        Height = 13
        Caption = 'working from left to right.'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        IsControl = True
      end
      object HorzButton: TRadioButton
        Left = 21
        Top = 48
        Width = 121
        Height = 17
        Caption = 'Hori&zontal'
        Checked = True
        TabOrder = 0
        TabStop = True
        OnClick = LayoutButtonClick
        IsControl = True
      end
      object VertButton: TRadioButton
        Left = 21
        Top = 97
        Width = 74
        Height = 17
        Caption = '&Vertical'
        TabOrder = 1
        OnClick = LayoutButtonClick
        IsControl = True
      end
      object GridButton: TRadioButton
        Left = 20
        Top = 150
        Width = 65
        Height = 17
        Caption = '&Grid'
        TabOrder = 2
        OnClick = LayoutButtonClick
        IsControl = True
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'Labels'
      IsControl = True
      object Label5: TLabel
        Left = 10
        Top = 7
        Width = 222
        Height = 13
        Caption = 'For the vertical layout, choose where the labels'
        IsControl = True
      end
      object Label23: TLabel
        Left = 10
        Top = 21
        Width = 77
        Height = 13
        Caption = 'are to be placed'
        IsControl = True
      end
      object Label28: TLabel
        Left = 50
        Top = 66
        Width = 205
        Height = 13
        Caption = 'Display the labels to the left of the data field'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        IsControl = True
      end
      object Label29: TLabel
        Left = 50
        Top = 105
        Width = 179
        Height = 13
        Caption = 'Display the labels above the data field'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        IsControl = True
      end
      object LeftButton: TRadioButton
        Left = 20
        Top = 49
        Width = 121
        Height = 17
        Caption = '&Left'
        Checked = True
        TabOrder = 0
        TabStop = True
        OnClick = PosButtonClick
        IsControl = True
      end
      object TopButton: TRadioButton
        Left = 20
        Top = 87
        Width = 121
        Height = 17
        Caption = '&Top'
        TabOrder = 1
        OnClick = PosButtonClick
        IsControl = True
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'Binding'
      IsControl = True
      object Bevel1: TBevel
        Left = 4
        Top = 79
        Width = 342
        Height = 169
        Shape = bsFrame
      end
      object Label30: TLabel
        Left = 12
        Top = 82
        Width = 57
        Height = 13
        Caption = 'D&etail Fields'
        FocusControl = DetailList
        IsControl = True
      end
      object Label31: TLabel
        Left = 222
        Top = 84
        Width = 62
        Height = 13
        Caption = '&Master Fields'
        FocusControl = MasterList
        IsControl = True
      end
      object Label32: TLabel
        Left = 10
        Top = 7
        Width = 252
        Height = 13
        Caption = 'Select pairs of fields from the field lists that will join the'
        IsControl = True
      end
      object Label33: TLabel
        Left = 10
        Top = 21
        Width = 268
        Height = 13
        Caption = 'two queries.  Use the add button to add the selected pair'
        IsControl = True
      end
      object IndexLabel: TLabel
        Left = 8
        Top = 56
        Width = 83
        Height = 13
        Caption = 'A&vailable Indexes'
        FocusControl = IndexList
      end
      object Label17: TLabel
        Left = 10
        Top = 35
        Width = 45
        Height = 13
        Caption = 'to the list.'
      end
      object Label18: TLabel
        Left = 12
        Top = 171
        Width = 61
        Height = 13
        Caption = '&Joined Fields'
        FocusControl = BindList
      end
      object DetailList: TListBox
        Left = 12
        Top = 98
        Width = 117
        Height = 56
        IntegralHeight = True
        ItemHeight = 13
        TabOrder = 0
        OnClick = BindingListClick
        IsControl = True
      end
      object MasterList: TListBox
        Left = 222
        Top = 99
        Width = 117
        Height = 56
        IntegralHeight = True
        ItemHeight = 13
        TabOrder = 1
        OnClick = BindingListClick
        IsControl = True
      end
      object AddButton: TButton
        Left = 136
        Top = 120
        Width = 77
        Height = 27
        Caption = '&Add'
        TabOrder = 2
        OnClick = AddButtonClick
        IsControl = True
      end
      object DeleteButton: TButton
        Left = 262
        Top = 186
        Width = 77
        Height = 27
        Caption = '&Delete'
        TabOrder = 3
        OnClick = DeleteButtonClick
        IsControl = True
      end
      object ClearButton: TButton
        Left = 262
        Top = 215
        Width = 77
        Height = 27
        Caption = '&Clear'
        TabOrder = 4
        OnClick = ClearButtonClick
        IsControl = True
      end
      object BindList: TListBox
        Left = 12
        Top = 187
        Width = 243
        Height = 54
        ItemHeight = 13
        MultiSelect = True
        TabOrder = 5
        OnClick = BindListClick
        IsControl = True
      end
      object IndexList: TComboBox
        Left = 123
        Top = 54
        Width = 207
        Height = 21
        Style = csDropDownList
        ItemHeight = 13
        TabOrder = 6
        OnChange = IndexListChange
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'FormName'
      IsControl = True
      object Label6: TLabel
        Left = 10
        Top = 21
        Width = 170
        Height = 13
        Caption = 'on Create to generate the new form.'
        IsControl = True
      end
      object Label4: TLabel
        Left = 10
        Top = 7
        Width = 225
        Height = 13
        Caption = 'You have now completed the form design. Click'
        IsControl = True
      end
      object GenMainForm: TCheckBox
        Left = 22
        Top = 52
        Width = 144
        Height = 17
        Caption = '&Generate a main form'
        State = cbChecked
        TabOrder = 0
      end
      object FormChoices: TGroupBox
        Left = 20
        Top = 84
        Width = 189
        Height = 69
        Caption = 'Form Generation'
        TabOrder = 1
        object FormAndModule: TRadioButton
          Left = 11
          Top = 42
          Width = 156
          Height = 17
          Caption = 'Fo&rm and DataModule'
          TabOrder = 1
          OnClick = FormAndModuleClick
        end
        object Form: TRadioButton
          Left = 11
          Top = 20
          Width = 113
          Height = 17
          Caption = 'Form &Only'
          Checked = True
          TabOrder = 0
          TabStop = True
          OnClick = FormClick
        end
      end
    end
  end
  object CancelButton: TButton
    Left = 398
    Top = 258
    Width = 75
    Height = 25
    Cancel = True
    Caption = 'Cancel'
    ModalResult = 2
    TabOrder = 5
    OnClick = BitBtn1Click
  end
  object HelpButton: TButton
    Left = 131
    Top = 258
    Width = 75
    Height = 25
    Caption = '&Help'
    TabOrder = 1
    OnClick = HelpButtonClick
  end
  object PrevButton: TButton
    Left = 226
    Top = 258
    Width = 75
    Height = 25
    Caption = '< &Back'
    Enabled = False
    TabOrder = 2
    OnClick = PrevButtonClick
  end
  object NextButton: TButton
    Left = 301
    Top = 258
    Width = 75
    Height = 25
    Caption = '&Next >'
    Default = True
    TabOrder = 3
    OnClick = NextButtonClick
  end
  object CreateButton: TButton
    Left = 301
    Top = 258
    Width = 75
    Height = 25
    Caption = '&Finish'
    Default = True
    ModalResult = 1
    TabOrder = 4
    Visible = False
  end
  object Table1: TTable
    Left = 66
    Top = 256
  end
  object Table2: TTable
    Left = 95
    Top = 257
  end
end