home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC World Komputer 1997 May
/
Pcwk0597.iso
/
borland
/
cb
/
setup
/
cbuilder
/
data.z
/
FRMEXPRT.DFM
/
FRMEXPRT.txt
Wrap
Text File
|
1997-02-28
|
21KB
|
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
