object Form1: TForm1 Left = 2386 Height = 432 Top = 305 Width = 994 Caption = '2D Array Example' ClientHeight = 432 ClientWidth = 994 DefaultMonitor = dmPrimary OnCreate = FormCreate OnShow = FormShow Position = poDefaultSizeOnly LCLVersion = '2.2.0.2' object IBArrayGrid1: TIBArrayGrid Left = 24 Height = 335 Top = 56 Width = 945 DataField = 'MYARRAY' DataSource = DataSource1 ColumnLabels.Strings = ( 'Col1' 'Col2' 'Col3' 'Col4' 'Col5' 'Col6' 'Col7' 'Col8' ) ColumnLabelFont.Height = -13 ColumnLabelFont.Style = [fsBold] RowLabels.Strings = ( 'Row 1' 'Row 2' 'Row 3' ) RowLabelAlignment = taRightJustify RowLabelFont.Height = -13 RowLabelFont.Name = 'Sans' RowLabelFont.Style = [fsBold] RowLabelColumnWidth = 80 TextAlignment = taRightJustify Anchors = [akTop, akLeft, akRight, akBottom] AutoFillColumns = True DefaultColWidth = 40 Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goEditing, goSmoothScroll] TabOrder = 0 ColCount = 30 RowCount = 22 ColWidths = ( 80 29 29 29 29 29 29 29 29 29 29 29 29 29 29 29 29 29 29 29 29 29 29 29 29 29 29 29 29 37 ) end object DBEdit1: TDBEdit Left = 24 Height = 24 Top = 16 Width = 232 DataField = 'TITLE' DataSource = DataSource1 MaxLength = 0 TabOrder = 1 end object DBNavigator1: TDBNavigator Left = 24 Height = 25 Top = 400 Width = 241 Anchors = [akLeft, akBottom] BevelOuter = bvNone ChildSizing.EnlargeHorizontal = crsScaleChilds ChildSizing.EnlargeVertical = crsScaleChilds ChildSizing.ShrinkHorizontal = crsScaleChilds ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.ControlsPerLine = 100 ClientHeight = 25 ClientWidth = 241 DataSource = DataSource1 Options = [] TabOrder = 2 end object IBDatabase1: TIBDatabase Connected = False AfterConnect = IBDatabase1AfterConnect CreateIfNotExists = True AllowStreamedConnected = False DatabaseName = '$DATADIR$2Dtest.fdb' Params.Strings = ( 'lc_ctype=UTF8' 'user_name=SYSDBA' ) DefaultTransaction = IBTransaction1 IdleTimer = 0 TraceFlags = [] UseDefaultSystemCodePage = False OnCreateDatabase = IBDatabase1CreateDatabase Left = 624 Top = 24 end object IBTransaction1: TIBTransaction TransactionName = '{1B583E8A-EB53-4806-A83F-D07393B2B542}' Active = False DefaultDatabase = IBDatabase1 Params.Strings = ( 'read_committed' 'rec_version' 'nowait' ) Left = 624 Top = 86 end object DataSource1: TDataSource DataSet = IBDataSet1 Left = 624 Top = 184 end object IBDataSet1: TIBDataSet AllowAutoActivateTransaction = True Database = IBDatabase1 Transaction = IBTransaction1 BufferChunks = 1000 BufferChunksInFirstBlock = 50 CachedUpdates = False CaseSensitiveParameterNames = False EnableStatistics = False DeleteSQL.Strings = ( 'Delete From TESTDATA A' 'Where A.ROWID = :ROWID' ) InsertSQL.Strings = ( 'Insert Into TESTDATA(ROWID, TITLE, MYARRAY)' 'Values(:ROWID, :TITLE, :MYARRAY)' ) RefreshSQL.Strings = ( 'Select A.ROWID, A.TITLE, A.MYARRAY From TESTDATA A' 'Where A.ROWID = :ROWID' ) SelectSQL.Strings = ( 'Select A.ROWID, A.TITLE, A.MYARRAY From TESTDATA A' 'order by 1 asc' ) ModifySQL.Strings = ( 'Update TESTDATA A Set ' ' A.ROWID = :ROWID,' ' A.TITLE = :TITLE,' ' A.MYARRAY = :MYARRAY' 'Where A.ROWID = :OLD_ROWID' ) GeneratorField.Generator = 'ROWNUMBER' GeneratorField.Field = 'ROWID' GeneratorField.ApplyOnEvent = gaeOnNewRecord GenerateParamNames = False MasterDetailDelay = 0 DataSetCloseAction = dcSaveChanges TZTextOption = tzOffset DefaultTZDate = 43831 SQLFiltered = False Left = 624 Top = 144 end end