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