object EditBioLife: TEditBioLife OldCreateOrder = False PageProducer = AdapterPageProducer Left = 254 Top = 107 Height = 150 Width = 215 object AdapterPageProducer: TAdapterPageProducer HTMLDoc.Strings = ( '' '' '' '' '<#STYLES><#WARNINGS><#SERVERSCRIPT>' '' '') Left = 48 Top = 8 object AdapterForm1: TAdapterForm object AdapterErrorList1: TAdapterErrorList Adapter = BiolifeData.DataSetAdapter1 end object AdapterFieldGroup1: TAdapterFieldGroup Adapter = BiolifeData.DataSetAdapter1 object FldSpeciesNo: TAdapterDisplayField Caption = 'Species No' DisplayWidth = 10 FieldName = 'SpeciesNo' end object FldCategory: TAdapterDisplayField DisplayWidth = 15 FieldName = 'Category' end object FldCommon_Name: TAdapterDisplayField DisplayWidth = 30 FieldName = 'Common_Name' end object FldSpeciesName: TAdapterDisplayField Caption = 'Species Name' DisplayWidth = 40 FieldName = 'SpeciesName' end object FldLengthcm: TAdapterDisplayField Caption = 'Length (cm)' DisplayWidth = 10 FieldName = 'Lengthcm' end object FldLength_In: TAdapterDisplayField DisplayWidth = 10 FieldName = 'Length_In' end object FldNotes: TAdapterDisplayField DisplayWidth = 75 FieldName = 'Notes' TextAreaWrap = wrVirtual DisplayRows = 5 end object FldGraphic: TAdapterDisplayField DisplayWidth = 10 FieldName = 'Graphic' end end object AdapterCommandGroup1: TAdapterCommandGroup DisplayComponent = AdapterFieldGroup1 object CmdDeleteRow: TAdapterActionButton ActionName = 'DeleteRow' end object CmdFirstRow: TAdapterActionButton ActionName = 'FirstRow' end object CmdPrevRow: TAdapterActionButton ActionName = 'PrevRow' end object CmdNextRow: TAdapterActionButton ActionName = 'NextRow' end object CmdLastRow: TAdapterActionButton ActionName = 'LastRow' end object CmdEditRow: TAdapterActionButton ActionName = 'EditRow' end object CmdBrowseRow: TAdapterActionButton ActionName = 'BrowseRow' end object CmdNewRow: TAdapterActionButton ActionName = 'NewRow' end object CmdCancel: TAdapterActionButton ActionName = 'Cancel' end object CmdApply: TAdapterActionButton ActionName = 'Apply' end object CmdRefreshRow: TAdapterActionButton ActionName = 'RefreshRow' end end end end end