1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
|
object ReportDataPreviewForm: TReportDataPreviewForm
Left = 386
Height = 254
Top = 256
Width = 476
Caption = 'Preview data'
ClientHeight = 254
ClientWidth = 476
OnClose = FormClose
OnShow = FormShow
LCLVersion = '1.9.0.0'
object ButtonPanel1: TButtonPanel
Left = 6
Height = 42
Top = 206
Width = 464
OKButton.Name = 'OKButton'
OKButton.DefaultCaption = True
HelpButton.Name = 'HelpButton'
HelpButton.DefaultCaption = True
CloseButton.Name = 'CloseButton'
CloseButton.DefaultCaption = True
CancelButton.Name = 'CancelButton'
CancelButton.DefaultCaption = True
TabOrder = 0
ShowButtons = [pbClose]
end
object NPreview: TDBNavigator
Left = 8
Height = 25
Top = 8
Width = 120
BevelOuter = bvNone
ChildSizing.EnlargeHorizontal = crsScaleChilds
ChildSizing.EnlargeVertical = crsScaleChilds
ChildSizing.ShrinkHorizontal = crsScaleChilds
ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 100
ClientHeight = 25
ClientWidth = 120
DataSource = DSPreview
Options = []
TabOrder = 1
VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast]
end
object GPreview: TDBGrid
Left = 8
Height = 162
Top = 40
Width = 461
Anchors = [akTop, akLeft, akRight, akBottom]
Color = clWindow
Columns = <>
DataSource = DSPreview
Options = [dgTitles, dgIndicator, dgColumnResize, dgColumnMove, dgColLines, dgRowLines, dgTabs, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
ReadOnly = True
TabOrder = 2
end
object DSPreview: TDataSource
left = 136
top = 47
end
end
|
