203 lines
4.7 KiB
Plaintext
203 lines
4.7 KiB
Plaintext
object Form1: TForm1
|
|
Left = 369
|
|
Height = 500
|
|
Top = 228
|
|
Width = 536
|
|
ActiveControl = RadioGroup1.RadioButton4
|
|
Caption = 'Form1'
|
|
ClientHeight = 500
|
|
ClientWidth = 536
|
|
OnCreate = FormCreate
|
|
SessionProperties = 'Edit1.Text'
|
|
LCLVersion = '1.7'
|
|
object PaintBox1: TPaintBox
|
|
Left = 16
|
|
Height = 129
|
|
Top = 16
|
|
Width = 184
|
|
OnPaint = PaintBox1Paint
|
|
end
|
|
object Edit1: TEdit
|
|
Left = 8
|
|
Height = 37
|
|
Top = 152
|
|
Width = 192
|
|
OnChange = Edit1Change
|
|
TabOrder = 0
|
|
Text = 'Edit1'
|
|
end
|
|
object RadioGroup1: TRadioGroup
|
|
Left = 208
|
|
Height = 153
|
|
Top = 8
|
|
Width = 78
|
|
AutoFill = True
|
|
AutoSize = True
|
|
Caption = 'Direction'
|
|
ChildSizing.LeftRightSpacing = 6
|
|
ChildSizing.TopBottomSpacing = 6
|
|
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
|
|
ChildSizing.EnlargeVertical = crsHomogenousChildResize
|
|
ChildSizing.ShrinkHorizontal = crsScaleChilds
|
|
ChildSizing.ShrinkVertical = crsScaleChilds
|
|
ChildSizing.Layout = cclLeftToRightThenTopToBottom
|
|
ChildSizing.ControlsPerLine = 1
|
|
ClientHeight = 132
|
|
ClientWidth = 76
|
|
ItemIndex = 4
|
|
Items.Strings = (
|
|
'0 %'
|
|
'90 %'
|
|
'180 %'
|
|
'270 %'
|
|
'360 %'
|
|
)
|
|
OnClick = CheckBox1Change
|
|
TabOrder = 1
|
|
end
|
|
object RxDBGrid1: TRxDBGrid
|
|
Left = 0
|
|
Height = 308
|
|
Top = 192
|
|
Width = 536
|
|
ColumnDefValues.BlobText = '(данные)'
|
|
TitleButtons = False
|
|
AutoSort = False
|
|
Columns = <
|
|
item
|
|
Title.Alignment = taCenter
|
|
Title.Orientation = toHorizontal
|
|
Title.Caption = 'DEMO_1'
|
|
FieldName = 'DEMO_1'
|
|
EditButtons = <>
|
|
Filter.IsNull = False
|
|
Filter.IsAll = True
|
|
Filter.DropDownRows = 0
|
|
Filter.EmptyValue = '(Пусто)'
|
|
Filter.AllValue = '(All values)'
|
|
Filter.EmptyFont.Style = [fsItalic]
|
|
Filter.ItemIndex = -1
|
|
Footers = <>
|
|
end>
|
|
KeyStrokes = <
|
|
item
|
|
Command = rxgcShowFindDlg
|
|
ShortCut = 16454
|
|
Enabled = True
|
|
end
|
|
item
|
|
Command = rxgcShowColumnsDlg
|
|
ShortCut = 16471
|
|
Enabled = True
|
|
end
|
|
item
|
|
Command = rxgcShowFilterDlg
|
|
ShortCut = 16468
|
|
Enabled = True
|
|
end
|
|
item
|
|
Command = rxgcShowSortDlg
|
|
ShortCut = 16467
|
|
Enabled = True
|
|
end
|
|
item
|
|
Command = rxgcShowQuickFilter
|
|
ShortCut = 16465
|
|
Enabled = True
|
|
end
|
|
item
|
|
Command = rxgcHideQuickFilter
|
|
ShortCut = 16456
|
|
Enabled = True
|
|
end
|
|
item
|
|
Command = rxgcSelectAll
|
|
ShortCut = 16449
|
|
Enabled = True
|
|
end
|
|
item
|
|
Command = rxgcDeSelectAll
|
|
ShortCut = 16429
|
|
Enabled = True
|
|
end
|
|
item
|
|
Command = rxgcInvertSelection
|
|
ShortCut = 16426
|
|
Enabled = True
|
|
end
|
|
item
|
|
Command = rxgcOptimizeColumnsWidth
|
|
ShortCut = 16427
|
|
Enabled = True
|
|
end
|
|
item
|
|
Command = rxgcCopyCellValue
|
|
ShortCut = 16451
|
|
Enabled = True
|
|
end>
|
|
FooterOptions.DrawFullLine = False
|
|
OptionsRx = []
|
|
Align = alBottom
|
|
Anchors = [akTop, akLeft, akRight, akBottom]
|
|
Color = clWindow
|
|
DrawFullLine = False
|
|
FocusColor = clRed
|
|
SelectedColor = clHighlight
|
|
GridLineStyle = psSolid
|
|
DataSource = Datasource1
|
|
Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColumnMove, dgColLines, dgRowLines, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
|
|
ParentColor = False
|
|
TabOrder = 2
|
|
TitleStyle = tsNative
|
|
end
|
|
object RxMemoryData1: TRxMemoryData
|
|
AutoCalcFields = False
|
|
FieldDefs = <
|
|
item
|
|
Name = 'DEMO_1'
|
|
DataType = ftInteger
|
|
Precision = -1
|
|
end
|
|
item
|
|
Name = 'Demo2'
|
|
DataType = ftString
|
|
Precision = -1
|
|
Size = 40
|
|
end>
|
|
PacketRecords = 0
|
|
left = 312
|
|
top = 64
|
|
object RxMemoryData1DEMO_11: TLongintField
|
|
DisplayWidth = 10
|
|
FieldKind = fkData
|
|
FieldName = 'DEMO_1'
|
|
Index = 0
|
|
LookupCache = False
|
|
ProviderFlags = [pfInUpdate, pfInWhere]
|
|
ReadOnly = False
|
|
Required = False
|
|
end
|
|
object RxMemoryData1Demo21: TStringField
|
|
DisplayWidth = 40
|
|
FieldKind = fkData
|
|
FieldName = 'Demo2'
|
|
Index = 1
|
|
LookupCache = False
|
|
ProviderFlags = [pfInUpdate, pfInWhere]
|
|
ReadOnly = False
|
|
Required = False
|
|
Size = 40
|
|
end
|
|
end
|
|
object Datasource1: TDataSource
|
|
DataSet = RxMemoryData1
|
|
left = 312
|
|
top = 32
|
|
end
|
|
object IniPropStorage1: TIniPropStorage
|
|
StoredValues = <>
|
|
left = 447
|
|
top = 19
|
|
end
|
|
end
|