333 lines
8.3 KiB
Plaintext
333 lines
8.3 KiB
Plaintext
object Form1: TForm1
|
||
Left = 570
|
||
Height = 556
|
||
Top = 275
|
||
Width = 796
|
||
Caption = 'Form1'
|
||
ClientHeight = 556
|
||
ClientWidth = 796
|
||
OnCreate = FormCreate
|
||
LCLVersion = '1.9.0.0'
|
||
object RxDBGrid1: TRxDBGrid
|
||
Left = 0
|
||
Height = 493
|
||
Top = 63
|
||
Width = 796
|
||
ColumnDefValues.BlobText = '(данные)'
|
||
TitleButtons = False
|
||
AutoSort = True
|
||
Columns = <
|
||
item
|
||
Title.Alignment = taCenter
|
||
Title.Orientation = toHorizontal
|
||
Title.Caption = 'ID'
|
||
Width = 50
|
||
FieldName = 'ID'
|
||
EditButtons = <>
|
||
Filter.DropDownRows = 0
|
||
Filter.EmptyValue = '(Пусто)'
|
||
Filter.AllValue = '(Все значения)'
|
||
Filter.EmptyFont.Style = [fsItalic]
|
||
Filter.ItemIndex = -1
|
||
Footers = <>
|
||
end
|
||
item
|
||
Title.Alignment = taCenter
|
||
Title.Orientation = toHorizontal
|
||
Title.Caption = 'GROUP'
|
||
Width = 60
|
||
FieldName = 'GROUP_ID'
|
||
EditButtons = <>
|
||
Filter.DropDownRows = 0
|
||
Filter.EmptyValue = '(Пусто)'
|
||
Filter.AllValue = '(Все значения)'
|
||
Filter.EmptyFont.Style = [fsItalic]
|
||
Filter.ItemIndex = -1
|
||
Footers = <>
|
||
end
|
||
item
|
||
Title.Alignment = taCenter
|
||
Title.Orientation = toHorizontal
|
||
Title.Caption = 'SUM'
|
||
Width = 90
|
||
FieldName = 'SUM'
|
||
EditButtons = <>
|
||
Filter.DropDownRows = 0
|
||
Filter.EmptyValue = '(Пусто)'
|
||
Filter.AllValue = '(Все значения)'
|
||
Filter.EmptyFont.Style = [fsItalic]
|
||
Filter.ItemIndex = -1
|
||
Footer.Alignment = taRightJustify
|
||
Footer.FieldName = 'SUM'
|
||
Footer.ValueType = fvtSum
|
||
Footers = <>
|
||
end
|
||
item
|
||
Title.Alignment = taCenter
|
||
Title.Orientation = toHorizontal
|
||
Title.Caption = 'TEXT'
|
||
Width = 264
|
||
FieldName = 'TEXT'
|
||
EditButtons = <>
|
||
Filter.DropDownRows = 0
|
||
Filter.EmptyValue = '(Пусто)'
|
||
Filter.AllValue = '(Все значения)'
|
||
Filter.EmptyFont.Style = [fsItalic]
|
||
Filter.ItemIndex = -1
|
||
Footers = <>
|
||
WordWrap = True
|
||
end
|
||
item
|
||
Title.Alignment = taCenter
|
||
Title.Orientation = toHorizontal
|
||
Title.Caption = 'AAA'
|
||
Width = 250
|
||
FieldName = 'AAA'
|
||
EditButtons = <>
|
||
Filter.DropDownRows = 0
|
||
Filter.EmptyValue = '(Пусто)'
|
||
Filter.AllValue = '(Все значения)'
|
||
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.Active = True
|
||
FooterOptions.Color = clYellow
|
||
FooterOptions.RowCount = 1
|
||
FooterOptions.DrawFullLine = False
|
||
SearchOptions.QuickSearchOptions = [loCaseInsensitive, loPartialKey]
|
||
SearchOptions.FromStart = False
|
||
OptionsRx = [rdgAllowColumnsForm, rdgAllowDialogFind, rdgFooterRows, rdgAllowQuickFilter]
|
||
FooterColor = clYellow
|
||
FooterRowCount = 1
|
||
Align = alBottom
|
||
Anchors = [akTop, akLeft, akRight, akBottom]
|
||
Color = clWindow
|
||
DrawFullLine = False
|
||
FocusColor = clRed
|
||
SelectedColor = clHighlight
|
||
GridLineStyle = psSolid
|
||
DataSource = dsData
|
||
Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColumnMove, dgColLines, dgRowLines, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
|
||
TabOrder = 0
|
||
end
|
||
object CheckBox1: TCheckBox
|
||
AnchorSideLeft.Control = Owner
|
||
AnchorSideTop.Control = Owner
|
||
Left = 6
|
||
Height = 24
|
||
Top = 6
|
||
Width = 113
|
||
BorderSpacing.Around = 6
|
||
Caption = 'Groups active'
|
||
Checked = True
|
||
OnChange = CheckBox1Change
|
||
State = cbChecked
|
||
TabOrder = 1
|
||
end
|
||
object CheckBox2: TCheckBox
|
||
AnchorSideLeft.Control = CheckBox1
|
||
AnchorSideLeft.Side = asrBottom
|
||
AnchorSideTop.Control = Owner
|
||
Left = 125
|
||
Height = 24
|
||
Top = 6
|
||
Width = 96
|
||
BorderSpacing.Around = 6
|
||
Caption = 'Footer row'
|
||
Checked = True
|
||
OnChange = CheckBox1Change
|
||
State = cbChecked
|
||
TabOrder = 2
|
||
end
|
||
object CheckBox3: TCheckBox
|
||
AnchorSideLeft.Control = CheckBox2
|
||
AnchorSideLeft.Side = asrBottom
|
||
AnchorSideTop.Control = Owner
|
||
Left = 227
|
||
Height = 24
|
||
Top = 6
|
||
Width = 88
|
||
BorderSpacing.Around = 6
|
||
Caption = 'ReadOnly'
|
||
Checked = True
|
||
OnChange = CheckBox1Change
|
||
State = cbChecked
|
||
TabOrder = 3
|
||
end
|
||
object Button1: TButton
|
||
AnchorSideTop.Control = Owner
|
||
AnchorSideRight.Control = Owner
|
||
AnchorSideRight.Side = asrBottom
|
||
Left = 682
|
||
Height = 36
|
||
Top = 6
|
||
Width = 108
|
||
Anchors = [akTop, akRight]
|
||
AutoSize = True
|
||
BorderSpacing.Around = 6
|
||
Caption = 'Export to ODS'
|
||
OnClick = Button1Click
|
||
TabOrder = 4
|
||
end
|
||
object Label1: TLabel
|
||
Left = 552
|
||
Height = 20
|
||
Top = 24
|
||
Width = 42
|
||
Caption = 'Label1'
|
||
ParentColor = False
|
||
end
|
||
object rxData: TRxMemoryData
|
||
FieldDefs = <
|
||
item
|
||
Name = 'ID'
|
||
DataType = ftInteger
|
||
end
|
||
item
|
||
Name = 'GROUP_ID'
|
||
DataType = ftInteger
|
||
end
|
||
item
|
||
Name = 'SUM'
|
||
DataType = ftCurrency
|
||
end
|
||
item
|
||
Name = 'TEXT'
|
||
DataType = ftString
|
||
Size = 500
|
||
end
|
||
item
|
||
Name = 'AAA'
|
||
DataType = ftString
|
||
Size = 50
|
||
end>
|
||
AfterScroll = rxDataAfterScroll
|
||
PacketRecords = 0
|
||
Left = 432
|
||
Top = 16
|
||
object rxDataID: TLongintField
|
||
FieldKind = fkData
|
||
FieldName = 'ID'
|
||
Index = 0
|
||
LookupCache = False
|
||
ProviderFlags = [pfInUpdate, pfInWhere]
|
||
ReadOnly = False
|
||
Required = False
|
||
end
|
||
object rxDataGROUP_ID: TLongintField
|
||
FieldKind = fkData
|
||
FieldName = 'GROUP_ID'
|
||
Index = 1
|
||
LookupCache = False
|
||
ProviderFlags = [pfInUpdate, pfInWhere]
|
||
ReadOnly = False
|
||
Required = False
|
||
end
|
||
object rxDataSUM: TCurrencyField
|
||
FieldKind = fkData
|
||
FieldName = 'SUM'
|
||
Index = 2
|
||
LookupCache = False
|
||
ProviderFlags = [pfInUpdate, pfInWhere]
|
||
ReadOnly = False
|
||
Required = False
|
||
MaxValue = 0
|
||
MinValue = 0
|
||
Precision = 2
|
||
end
|
||
object rxDataTEXT: TStringField
|
||
FieldKind = fkData
|
||
FieldName = 'TEXT'
|
||
Index = 3
|
||
LookupCache = False
|
||
ProviderFlags = [pfInUpdate, pfInWhere]
|
||
ReadOnly = False
|
||
Required = False
|
||
Size = 500
|
||
end
|
||
object rxDataAAA: TStringField
|
||
FieldKind = fkData
|
||
FieldName = 'AAA'
|
||
Index = 4
|
||
LookupCache = False
|
||
ProviderFlags = [pfInUpdate, pfInWhere]
|
||
ReadOnly = False
|
||
Required = False
|
||
Size = 50
|
||
end
|
||
end
|
||
object dsData: TDataSource
|
||
DataSet = rxData
|
||
Left = 392
|
||
Top = 16
|
||
end
|
||
object RxDBGridExportSpreadSheet1: TRxDBGridExportSpreadSheet
|
||
RxDBGrid = RxDBGrid1
|
||
Caption = 'Экспорт в электронную таблицу'
|
||
ShowSetupForm = True
|
||
FileName = 'test.ods'
|
||
PageName = 'test'
|
||
Options = [ressExportTitle, ressExportColors, ressExportFooter, ressExportFormula, ressOverwriteExisting, ressExportSelectedRows, ressHideZeroValues, ressColSpanning]
|
||
OpenAfterExport = True
|
||
Left = 392
|
||
Top = 168
|
||
end
|
||
end
|