arrays/2Darray/Unit1.lfm

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
Revision:	410
Committed:	Thu Jun 22 13:52:39 2023 UTC (17 months ago) by tony
File size:	4329 byte(s)
Log Message:	Release 2.6.0 beta
#	User	Rev	Content
1	tony	45	object Form1: TForm1
2	tony	410	Left = 2386
3	tony	45	Height = 432
4	tony	410	Top = 305
5	tony	45	Width = 994
6			Caption = '2D Array Example'
7			ClientHeight = 432
8			ClientWidth = 994
9	tony	68	DefaultMonitor = dmPrimary
10	tony	45	OnCreate = FormCreate
11			OnShow = FormShow
12	tony	68	Position = poDefaultSizeOnly
13	tony	410	LCLVersion = '2.2.0.2'
14	tony	45	object IBArrayGrid1: TIBArrayGrid
15			Left = 24
16			Height = 335
17			Top = 56
18			Width = 945
19			DataField = 'MYARRAY'
20			DataSource = DataSource1
21			ColumnLabels.Strings = (
22			'Col1'
23			'Col2'
24			'Col3'
25			'Col4'
26			'Col5'
27			'Col6'
28			'Col7'
29			'Col8'
30			)
31			ColumnLabelFont.Height = -13
32			ColumnLabelFont.Style = [fsBold]
33			RowLabels.Strings = (
34			'Row 1'
35			'Row 2'
36			'Row 3'
37			)
38			RowLabelAlignment = taRightJustify
39			RowLabelFont.Height = -13
40			RowLabelFont.Name = 'Sans'
41			RowLabelFont.Style = [fsBold]
42			RowLabelColumnWidth = 80
43			TextAlignment = taRightJustify
44			Anchors = [akTop, akLeft, akRight, akBottom]
45			AutoFillColumns = True
46			DefaultColWidth = 40
47			Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goEditing, goSmoothScroll]
48			TabOrder = 0
49	tony	410	ColCount = 30
50			RowCount = 22
51	tony	45	ColWidths = (
52			80
53	tony	410	29
54			29
55			29
56			29
57			29
58			29
59			29
60			29
61			29
62			29
63			29
64			29
65			29
66			29
67			29
68			29
69			29
70			29
71			29
72			29
73			29
74			29
75			29
76			29
77			29
78			29
79			29
80			29
81			37
82	tony	45	)
83			end
84			object DBEdit1: TDBEdit
85			Left = 24
86	tony	68	Height = 24
87	tony	45	Top = 16
88			Width = 232
89			DataField = 'TITLE'
90			DataSource = DataSource1
91			MaxLength = 0
92			TabOrder = 1
93			end
94			object DBNavigator1: TDBNavigator
95			Left = 24
96			Height = 25
97			Top = 400
98			Width = 241
99			Anchors = [akLeft, akBottom]
100			BevelOuter = bvNone
101			ChildSizing.EnlargeHorizontal = crsScaleChilds
102			ChildSizing.EnlargeVertical = crsScaleChilds
103			ChildSizing.ShrinkHorizontal = crsScaleChilds
104			ChildSizing.ShrinkVertical = crsScaleChilds
105			ChildSizing.Layout = cclLeftToRightThenTopToBottom
106			ChildSizing.ControlsPerLine = 100
107			ClientHeight = 25
108			ClientWidth = 241
109			DataSource = DataSource1
110			Options = []
111			TabOrder = 2
112			end
113			object IBDatabase1: TIBDatabase
114			Connected = False
115			AfterConnect = IBDatabase1AfterConnect
116			CreateIfNotExists = True
117			AllowStreamedConnected = False
118	tony	143	DatabaseName = '$DATADIR$2Dtest.fdb'
119	tony	45	Params.Strings = (
120			'lc_ctype=UTF8'
121			'user_name=SYSDBA'
122			)
123			DefaultTransaction = IBTransaction1
124			IdleTimer = 0
125			TraceFlags = []
126			UseDefaultSystemCodePage = False
127			OnCreateDatabase = IBDatabase1CreateDatabase
128	tony	410	Left = 624
129			Top = 24
130	tony	45	end
131			object IBTransaction1: TIBTransaction
132	tony	410	TransactionName = '{1B583E8A-EB53-4806-A83F-D07393B2B542}'
133	tony	45	Active = False
134			DefaultDatabase = IBDatabase1
135			Params.Strings = (
136			'read_committed'
137			'rec_version'
138			'nowait'
139			)
140	tony	410	Left = 624
141			Top = 86
142	tony	45	end
143			object DataSource1: TDataSource
144			DataSet = IBDataSet1
145	tony	410	Left = 624
146			Top = 184
147	tony	45	end
148			object IBDataSet1: TIBDataSet
149			AllowAutoActivateTransaction = True
150			Database = IBDatabase1
151			Transaction = IBTransaction1
152			BufferChunks = 1000
153	tony	410	BufferChunksInFirstBlock = 50
154	tony	45	CachedUpdates = False
155	tony	410	CaseSensitiveParameterNames = False
156			EnableStatistics = False
157	tony	45	DeleteSQL.Strings = (
158			'Delete From TESTDATA A'
159			'Where A.ROWID = :ROWID'
160			)
161			InsertSQL.Strings = (
162			'Insert Into TESTDATA(ROWID, TITLE, MYARRAY)'
163			'Values(:ROWID, :TITLE, :MYARRAY)'
164			)
165			RefreshSQL.Strings = (
166			'Select A.ROWID, A.TITLE, A.MYARRAY From TESTDATA A'
167			'Where A.ROWID = :ROWID'
168			)
169			SelectSQL.Strings = (
170			'Select A.ROWID, A.TITLE, A.MYARRAY From TESTDATA A'
171			'order by 1 asc'
172			)
173			ModifySQL.Strings = (
174			'Update TESTDATA A Set '
175			' A.ROWID = :ROWID,'
176			' A.TITLE = :TITLE,'
177			' A.MYARRAY = :MYARRAY'
178			'Where A.ROWID = :OLD_ROWID'
179			)
180			GeneratorField.Generator = 'ROWNUMBER'
181			GeneratorField.Field = 'ROWID'
182			GeneratorField.ApplyOnEvent = gaeOnNewRecord
183			GenerateParamNames = False
184	tony	410	MasterDetailDelay = 0
185	tony	45	DataSetCloseAction = dcSaveChanges
186	tony	410	TZTextOption = tzOffset
187			DefaultTZDate = 43831
188			SQLFiltered = False
189			Left = 624
190			Top = 144
191	tony	45	end
192			end