You've already forked lazarus-ccr
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@232 8e941d3f-bd1b-0410-a28a-d453659cc2b4
100 lines
2.1 KiB
Plaintext
100 lines
2.1 KiB
Plaintext
object Form1: TForm1
|
|
ActiveControl = Edit1
|
|
Caption = 'Form1'
|
|
ClientHeight = 463
|
|
ClientWidth = 518
|
|
OnCreate = FormCreate
|
|
PixelsPerInch = 96
|
|
HorzScrollBar.Page = 517
|
|
VertScrollBar.Page = 462
|
|
Left = 470
|
|
Height = 463
|
|
Top = 247
|
|
Width = 518
|
|
object PaintBox1: TPaintBox
|
|
OnPaint = PaintBox1Paint
|
|
Left = 16
|
|
Height = 129
|
|
Top = 16
|
|
Width = 184
|
|
end
|
|
object Edit1: TEdit
|
|
OnChange = Edit1Change
|
|
TabOrder = 0
|
|
Text = 'Edit1'
|
|
Left = 16
|
|
Height = 23
|
|
Top = 160
|
|
Width = 184
|
|
end
|
|
object RadioGroup1: TRadioGroup
|
|
Caption = 'RadioGroup1'
|
|
ItemIndex = 4
|
|
Items.Strings = (
|
|
'0 %'
|
|
'90 %'
|
|
'180 %'
|
|
'270 %'
|
|
'360 %'
|
|
)
|
|
OnClick = CheckBox1Change
|
|
TabOrder = 1
|
|
Left = 216
|
|
Height = 119
|
|
Top = 56
|
|
Width = 296
|
|
end
|
|
object RxDBGrid1: TRxDBGrid
|
|
Columns = <
|
|
item
|
|
FieldName = 'DEMO_1'
|
|
end>
|
|
Align = alBottom
|
|
Anchors = [akTop, akLeft, akRight, akBottom]
|
|
BorderStyle = bsSingle
|
|
DataSource = Datasource1
|
|
FixedColor = clBtnFace
|
|
Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColumnMove, dgColLines, dgRowLines, dgTabs, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
|
|
OptionsExtra = [dgeAutoColumns, dgeCheckboxColumn]
|
|
ParentColor = False
|
|
Scrollbars = ssBoth
|
|
Height = 271
|
|
Top = 192
|
|
Width = 518
|
|
end
|
|
object RxMemoryData1: TRxMemoryData
|
|
FieldDefs = <
|
|
item
|
|
Name = 'DEMO_1'
|
|
DisplayName = 'DEMO_1'
|
|
DataType = ftInteger
|
|
Precision = -1
|
|
end
|
|
item
|
|
Name = 'Demo2'
|
|
DisplayName = 'Demo2'
|
|
DataType = ftString
|
|
Precision = -1
|
|
Size = 40
|
|
end>
|
|
left = 312
|
|
top = 64
|
|
object RxMemoryData1DEMO_11: TLongintField
|
|
AlignMent = taRightJustify
|
|
DisplayWidth = 10
|
|
FieldName = 'DEMO_1'
|
|
end
|
|
object RxMemoryData1Demo21: TStringField
|
|
Size = 40
|
|
DisplayWidth = 40
|
|
FieldName = 'Demo2'
|
|
Index = 1
|
|
end
|
|
end
|
|
object Datasource1: TDatasource
|
|
DataSet = RxMemoryData1
|
|
left = 312
|
|
top = 32
|
|
end
|
|
end
|