You've already forked lazarus-ccr
356 lines
9.1 KiB
Plaintext
356 lines
9.1 KiB
Plaintext
|
object Form1: TForm1
|
||
|
|
Left = 558
|
||
|
|
Height = 397
|
||
|
|
Top = 319
|
||
|
|
Width = 1043
|
||
|
|
Caption = 'Form1'
|
||
|
|
ClientHeight = 397
|
||
|
|
ClientWidth = 1043
|
||
|
|
OnClose = FormClose
|
||
|
|
OnCreate = FormCreate
|
||
|
|
LCLVersion = '1.7'
|
||
|
|
object Panel1: TPanel
|
||
|
|
Left = 0
|
||
|
|
Height = 50
|
||
|
|
Top = 347
|
||
|
|
Width = 1043
|
||
|
|
Align = alBottom
|
||
|
|
AutoSize = True
|
||
|
|
ClientHeight = 50
|
||
|
|
ClientWidth = 1043
|
||
|
|
TabOrder = 0
|
||
|
|
object Button1: TButton
|
||
|
|
AnchorSideLeft.Control = Panel1
|
||
|
|
AnchorSideLeft.Side = asrCenter
|
||
|
|
AnchorSideTop.Control = Panel1
|
||
|
|
Left = 476
|
||
|
|
Height = 36
|
||
|
|
Top = 7
|
||
|
|
Width = 90
|
||
|
|
AutoSize = True
|
||
|
|
BorderSpacing.Around = 6
|
||
|
|
Caption = 'Create PDF'
|
||
|
|
OnClick = Button1Click
|
||
|
|
TabOrder = 0
|
||
|
|
end
|
||
|
|
object CheckBox1: TCheckBox
|
||
|
|
Left = 1
|
||
|
|
Height = 24
|
||
|
|
Top = 18
|
||
|
|
Width = 99
|
||
|
|
Caption = 'CheckBox1'
|
||
|
|
OnChange = CheckBox1Change
|
||
|
|
TabOrder = 1
|
||
|
|
end
|
||
|
|
object Edit1: TEdit
|
||
|
|
Left = 137
|
||
|
|
Height = 37
|
||
|
|
Top = 7
|
||
|
|
Width = 295
|
||
|
|
TabOrder = 2
|
||
|
|
Text = 'ID=1'
|
||
|
|
end
|
||
|
|
end
|
||
|
|
object PageControl1: TPageControl
|
||
|
|
Left = 0
|
||
|
|
Height = 347
|
||
|
|
Top = 0
|
||
|
|
Width = 1043
|
||
|
|
ActivePage = TabSheet1
|
||
|
|
Align = alClient
|
||
|
|
TabIndex = 0
|
||
|
|
TabOrder = 1
|
||
|
|
object TabSheet1: TTabSheet
|
||
|
|
Caption = 'Test data'
|
||
|
|
ClientHeight = 313
|
||
|
|
ClientWidth = 1033
|
||
|
|
object RxDBGrid1: TRxDBGrid
|
||
|
|
Left = 0
|
||
|
|
Height = 313
|
||
|
|
Top = 0
|
||
|
|
Width = 1033
|
||
|
|
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.EmptyFont.Style = [fsItalic]
|
||
|
|
Filter.ItemIndex = -1
|
||
|
|
Footers = <>
|
||
|
|
end
|
||
|
|
item
|
||
|
|
Color = clCream
|
||
|
|
Font.Color = clPurple
|
||
|
|
Title.Alignment = taCenter
|
||
|
|
Title.Orientation = toHorizontal
|
||
|
|
Title.Caption = 'Наименование продукта'
|
||
|
|
Width = 364
|
||
|
|
FieldName = 'NAME'
|
||
|
|
EditButtons = <>
|
||
|
|
Filter.DropDownRows = 0
|
||
|
|
Filter.EmptyValue = '(Нет)'
|
||
|
|
Filter.EmptyFont.Style = [fsItalic]
|
||
|
|
Filter.ItemIndex = -1
|
||
|
|
Footers = <>
|
||
|
|
end
|
||
|
|
item
|
||
|
|
Color = clYellow
|
||
|
|
Title.Alignment = taCenter
|
||
|
|
Title.Orientation = toHorizontal
|
||
|
|
Title.Caption = 'Дата поставки'
|
||
|
|
Width = 90
|
||
|
|
FieldName = 'PDATE'
|
||
|
|
EditButtons = <>
|
||
|
|
Filter.DropDownRows = 0
|
||
|
|
Filter.EmptyValue = '(Нет)'
|
||
|
|
Filter.EmptyFont.Style = [fsItalic]
|
||
|
|
Filter.ItemIndex = -1
|
||
|
|
Footers = <>
|
||
|
|
end
|
||
|
|
item
|
||
|
|
Title.Alignment = taCenter
|
||
|
|
Title.Orientation = toHorizontal
|
||
|
|
Title.Caption = 'Сумма'
|
||
|
|
Width = 100
|
||
|
|
FieldName = 'SUM'
|
||
|
|
EditButtons = <>
|
||
|
|
Filter.DropDownRows = 0
|
||
|
|
Filter.EmptyValue = '(Нет)'
|
||
|
|
Filter.EmptyFont.Style = [fsItalic]
|
||
|
|
Filter.ItemIndex = -1
|
||
|
|
Footers = <>
|
||
|
|
end
|
||
|
|
item
|
||
|
|
Title.Alignment = taCenter
|
||
|
|
Title.Orientation = toHorizontal
|
||
|
|
Title.Caption = 'Страна'
|
||
|
|
Width = 200
|
||
|
|
FieldName = 'Country'
|
||
|
|
EditButtons = <>
|
||
|
|
Filter.DropDownRows = 0
|
||
|
|
Filter.EmptyValue = '(Нет)'
|
||
|
|
Filter.EmptyFont.Style = [fsItalic]
|
||
|
|
Filter.ItemIndex = -1
|
||
|
|
Footers = <>
|
||
|
|
end
|
||
|
|
item
|
||
|
|
Title.Alignment = taCenter
|
||
|
|
Title.Orientation = toHorizontal
|
||
|
|
Title.Caption = 'Город'
|
||
|
|
Width = 200
|
||
|
|
FieldName = 'Sity'
|
||
|
|
EditButtons = <>
|
||
|
|
Filter.DropDownRows = 0
|
||
|
|
Filter.EmptyValue = '(Нет)'
|
||
|
|
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 = [rdgAllowColumnsForm, rdgAllowDialogFind, rdgAllowQuickFilter, rdgAllowToolMenu]
|
||
|
|
Align = alClient
|
||
|
|
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 = 0
|
||
|
|
end
|
||
|
|
end
|
||
|
|
object TabSheet2: TTabSheet
|
||
|
|
Caption = 'Debug window'
|
||
|
|
ClientHeight = 313
|
||
|
|
ClientWidth = 1033
|
||
|
|
object Memo1: TMemo
|
||
|
|
Left = 0
|
||
|
|
Height = 313
|
||
|
|
Top = 0
|
||
|
|
Width = 1033
|
||
|
|
Align = alClient
|
||
|
|
Lines.Strings = (
|
||
|
|
'Memo1'
|
||
|
|
)
|
||
|
|
TabOrder = 0
|
||
|
|
end
|
||
|
|
end
|
||
|
|
end
|
||
|
|
object RxMemoryData1: TRxMemoryData
|
||
|
|
FieldDefs = <
|
||
|
|
item
|
||
|
|
Name = 'ID'
|
||
|
|
DataType = ftAutoInc
|
||
|
|
end
|
||
|
|
item
|
||
|
|
Name = 'NAME'
|
||
|
|
DataType = ftString
|
||
|
|
Size = 220
|
||
|
|
end
|
||
|
|
item
|
||
|
|
Name = 'PDATE'
|
||
|
|
DataType = ftDate
|
||
|
|
end
|
||
|
|
item
|
||
|
|
Name = 'SUM'
|
||
|
|
DataType = ftCurrency
|
||
|
|
end
|
||
|
|
item
|
||
|
|
Name = 'Country'
|
||
|
|
DataType = ftString
|
||
|
|
Size = 100
|
||
|
|
end
|
||
|
|
item
|
||
|
|
Name = 'Sity'
|
||
|
|
DataType = ftString
|
||
|
|
Size = 100
|
||
|
|
end>
|
||
|
|
PacketRecords = 0
|
||
|
|
left = 136
|
||
|
|
top = 88
|
||
|
|
object RxMemoryData1ID: TAutoIncField
|
||
|
|
FieldKind = fkData
|
||
|
|
FieldName = 'ID'
|
||
|
|
Index = 0
|
||
|
|
LookupCache = False
|
||
|
|
ProviderFlags = [pfInUpdate, pfInWhere]
|
||
|
|
ReadOnly = False
|
||
|
|
Required = False
|
||
|
|
end
|
||
|
|
object RxMemoryData1NAME: TStringField
|
||
|
|
FieldKind = fkData
|
||
|
|
FieldName = 'NAME'
|
||
|
|
Index = 1
|
||
|
|
LookupCache = False
|
||
|
|
ProviderFlags = [pfInUpdate, pfInWhere]
|
||
|
|
ReadOnly = False
|
||
|
|
Required = False
|
||
|
|
Size = 220
|
||
|
|
end
|
||
|
|
object RxMemoryData1PDATE: TDateField
|
||
|
|
FieldKind = fkData
|
||
|
|
FieldName = 'PDATE'
|
||
|
|
Index = 2
|
||
|
|
LookupCache = False
|
||
|
|
ProviderFlags = [pfInUpdate, pfInWhere]
|
||
|
|
ReadOnly = False
|
||
|
|
Required = False
|
||
|
|
end
|
||
|
|
object RxMemoryData1SUM: TCurrencyField
|
||
|
|
FieldKind = fkData
|
||
|
|
FieldName = 'SUM'
|
||
|
|
Index = 3
|
||
|
|
LookupCache = False
|
||
|
|
ProviderFlags = [pfInUpdate, pfInWhere]
|
||
|
|
ReadOnly = False
|
||
|
|
Required = False
|
||
|
|
MaxValue = 0
|
||
|
|
MinValue = 0
|
||
|
|
Precision = 2
|
||
|
|
end
|
||
|
|
object RxMemoryData1Country: TStringField
|
||
|
|
FieldKind = fkData
|
||
|
|
FieldName = 'Country'
|
||
|
|
Index = 4
|
||
|
|
LookupCache = False
|
||
|
|
ProviderFlags = [pfInUpdate, pfInWhere]
|
||
|
|
ReadOnly = False
|
||
|
|
Required = False
|
||
|
|
Size = 100
|
||
|
|
end
|
||
|
|
object RxMemoryData1Sity: TStringField
|
||
|
|
FieldKind = fkData
|
||
|
|
FieldName = 'Sity'
|
||
|
|
Index = 5
|
||
|
|
LookupCache = False
|
||
|
|
ProviderFlags = [pfInUpdate, pfInWhere]
|
||
|
|
ReadOnly = False
|
||
|
|
Required = False
|
||
|
|
Size = 100
|
||
|
|
end
|
||
|
|
end
|
||
|
|
object DataSource1: TDataSource
|
||
|
|
DataSet = RxMemoryData1
|
||
|
|
left = 104
|
||
|
|
top = 88
|
||
|
|
end
|
||
|
|
object RxDBGridExportPDF1: TRxDBGridExportPDF
|
||
|
|
RxDBGrid = RxDBGrid1
|
||
|
|
Caption = 'Export to PDF file'
|
||
|
|
ShowSetupForm = True
|
||
|
|
FileName = 'test111.pdf'
|
||
|
|
Options = [repExportTitle, repExportColors, repExportFooter]
|
||
|
|
PdfOptions.Options = []
|
||
|
|
OpenAfterExport = True
|
||
|
|
AuthorPdf = 'Лагунов А.А.'
|
||
|
|
ProducerPdf = 'alexs'
|
||
|
|
left = 112
|
||
|
|
top = 160
|
||
|
|
end
|
||
|
|
end
|