2020-09-28 16:24:38 +00:00
|
|
|
inherited CrossTabFrm: TCrossTabFrm
|
2020-03-30 18:01:44 +00:00
|
|
|
Left = 459
|
2020-09-28 16:24:38 +00:00
|
|
|
Height = 358
|
2020-03-30 18:01:44 +00:00
|
|
|
Top = 230
|
2020-09-28 16:24:38 +00:00
|
|
|
Width = 879
|
2020-05-02 20:01:14 +00:00
|
|
|
HelpType = htKeyword
|
2020-08-17 13:55:43 +00:00
|
|
|
HelpKeyword = 'html/Cross-tabulation.htm'
|
2020-03-30 18:01:44 +00:00
|
|
|
Caption = 'Cross Tabulation'
|
2020-09-28 16:24:38 +00:00
|
|
|
ClientHeight = 358
|
|
|
|
ClientWidth = 879
|
2020-03-30 18:01:44 +00:00
|
|
|
OnActivate = FormActivate
|
|
|
|
OnCreate = FormCreate
|
|
|
|
Position = poMainFormCenter
|
2020-09-28 16:24:38 +00:00
|
|
|
object ParamsPanel: TPanel[0]
|
2020-03-30 18:01:44 +00:00
|
|
|
Left = 8
|
2020-09-28 16:24:38 +00:00
|
|
|
Height = 342
|
2020-03-30 18:01:44 +00:00
|
|
|
Top = 8
|
2020-09-28 16:24:38 +00:00
|
|
|
Width = 320
|
|
|
|
Align = alLeft
|
2020-03-30 18:01:44 +00:00
|
|
|
BorderSpacing.Left = 8
|
|
|
|
BorderSpacing.Top = 8
|
2020-09-28 16:24:38 +00:00
|
|
|
BorderSpacing.Right = 4
|
|
|
|
BorderSpacing.Bottom = 8
|
2020-03-30 18:01:44 +00:00
|
|
|
BevelOuter = bvNone
|
2020-09-28 16:24:38 +00:00
|
|
|
ClientHeight = 342
|
|
|
|
ClientWidth = 320
|
2020-03-30 18:01:44 +00:00
|
|
|
TabOrder = 0
|
2020-09-28 16:24:38 +00:00
|
|
|
object Bevel2: TBevel
|
|
|
|
AnchorSideLeft.Control = ParamsPanel
|
|
|
|
AnchorSideRight.Control = ParamsPanel
|
|
|
|
AnchorSideRight.Side = asrBottom
|
|
|
|
AnchorSideBottom.Control = CloseBtn
|
|
|
|
Left = 0
|
|
|
|
Height = 8
|
|
|
|
Top = 301
|
|
|
|
Width = 320
|
|
|
|
Anchors = [akLeft, akRight, akBottom]
|
|
|
|
Shape = bsBottomLine
|
|
|
|
end
|
|
|
|
object CloseBtn: TButton
|
|
|
|
AnchorSideTop.Side = asrBottom
|
|
|
|
AnchorSideRight.Control = ParamsPanel
|
|
|
|
AnchorSideRight.Side = asrBottom
|
|
|
|
AnchorSideBottom.Control = ParamsPanel
|
|
|
|
AnchorSideBottom.Side = asrBottom
|
|
|
|
Left = 265
|
|
|
|
Height = 25
|
|
|
|
Top = 317
|
|
|
|
Width = 55
|
|
|
|
Anchors = [akRight, akBottom]
|
|
|
|
AutoSize = True
|
|
|
|
BorderSpacing.Top = 8
|
|
|
|
Caption = 'Close'
|
|
|
|
ModalResult = 11
|
|
|
|
OnClick = CloseBtnClick
|
|
|
|
TabOrder = 0
|
|
|
|
end
|
|
|
|
object ResetBtn: TButton
|
|
|
|
AnchorSideTop.Control = CloseBtn
|
|
|
|
AnchorSideRight.Control = ComputeBtn
|
|
|
|
Left = 119
|
|
|
|
Height = 25
|
|
|
|
Top = 317
|
|
|
|
Width = 54
|
|
|
|
Anchors = [akTop, akRight]
|
|
|
|
AutoSize = True
|
|
|
|
BorderSpacing.Right = 8
|
|
|
|
Caption = 'Reset'
|
|
|
|
OnClick = ResetBtnClick
|
|
|
|
TabOrder = 1
|
|
|
|
end
|
|
|
|
object HelpBtn: TButton
|
|
|
|
AnchorSideTop.Control = CloseBtn
|
|
|
|
AnchorSideRight.Control = ResetBtn
|
|
|
|
Left = 60
|
|
|
|
Height = 25
|
|
|
|
Top = 317
|
|
|
|
Width = 51
|
|
|
|
Anchors = [akTop, akRight]
|
|
|
|
AutoSize = True
|
|
|
|
BorderSpacing.Right = 8
|
|
|
|
Caption = 'Help'
|
|
|
|
OnClick = HelpBtnClick
|
|
|
|
TabOrder = 2
|
|
|
|
end
|
|
|
|
object ComputeBtn: TButton
|
|
|
|
AnchorSideTop.Control = CloseBtn
|
|
|
|
AnchorSideRight.Control = CloseBtn
|
|
|
|
AnchorSideBottom.Control = Owner
|
|
|
|
AnchorSideBottom.Side = asrBottom
|
|
|
|
Left = 181
|
|
|
|
Height = 25
|
|
|
|
Top = 317
|
|
|
|
Width = 76
|
|
|
|
Anchors = [akTop, akRight]
|
|
|
|
AutoSize = True
|
|
|
|
BorderSpacing.Left = 8
|
|
|
|
BorderSpacing.Right = 8
|
|
|
|
Caption = 'Compute'
|
|
|
|
OnClick = ComputeBtnClick
|
|
|
|
TabOrder = 3
|
|
|
|
end
|
2020-03-30 18:01:44 +00:00
|
|
|
object Label1: TLabel
|
2020-09-28 16:24:38 +00:00
|
|
|
AnchorSideLeft.Control = ParamsPanel
|
|
|
|
AnchorSideTop.Control = ParamsPanel
|
2020-03-30 18:01:44 +00:00
|
|
|
Left = 0
|
|
|
|
Height = 15
|
|
|
|
Top = 0
|
|
|
|
Width = 97
|
|
|
|
Caption = 'Available Variables'
|
|
|
|
ParentColor = False
|
|
|
|
end
|
|
|
|
object Label2: TLabel
|
|
|
|
AnchorSideLeft.Control = SelList
|
2020-09-28 16:24:38 +00:00
|
|
|
Left = 182
|
2020-03-30 18:01:44 +00:00
|
|
|
Height = 15
|
|
|
|
Top = 0
|
|
|
|
Width = 104
|
|
|
|
Caption = 'Variables to Analyze'
|
|
|
|
ParentColor = False
|
|
|
|
end
|
|
|
|
object VarList: TListBox
|
2020-09-28 16:24:38 +00:00
|
|
|
AnchorSideLeft.Control = ParamsPanel
|
2020-03-30 18:01:44 +00:00
|
|
|
AnchorSideTop.Control = Label1
|
|
|
|
AnchorSideTop.Side = asrBottom
|
|
|
|
AnchorSideRight.Control = InBtn
|
2020-09-28 16:24:38 +00:00
|
|
|
AnchorSideBottom.Control = Bevel2
|
2020-03-30 18:01:44 +00:00
|
|
|
Left = 0
|
2020-09-28 16:24:38 +00:00
|
|
|
Height = 284
|
2020-03-30 18:01:44 +00:00
|
|
|
Top = 17
|
2020-09-28 16:24:38 +00:00
|
|
|
Width = 138
|
2020-03-30 18:01:44 +00:00
|
|
|
Anchors = [akTop, akLeft, akRight, akBottom]
|
|
|
|
BorderSpacing.Top = 2
|
|
|
|
BorderSpacing.Right = 8
|
|
|
|
ItemHeight = 0
|
|
|
|
MultiSelect = True
|
|
|
|
OnSelectionChange = VarListSelectionChange
|
2020-09-28 16:24:38 +00:00
|
|
|
TabOrder = 4
|
2020-03-30 18:01:44 +00:00
|
|
|
end
|
|
|
|
object SelList: TListBox
|
|
|
|
AnchorSideLeft.Control = InBtn
|
|
|
|
AnchorSideLeft.Side = asrBottom
|
|
|
|
AnchorSideTop.Control = Label2
|
|
|
|
AnchorSideTop.Side = asrBottom
|
2020-09-28 16:24:38 +00:00
|
|
|
AnchorSideRight.Control = ParamsPanel
|
2020-03-30 18:01:44 +00:00
|
|
|
AnchorSideRight.Side = asrBottom
|
|
|
|
AnchorSideBottom.Side = asrBottom
|
2020-09-28 16:24:38 +00:00
|
|
|
Left = 182
|
|
|
|
Height = 281
|
2020-03-30 18:01:44 +00:00
|
|
|
Top = 17
|
2020-09-28 16:24:38 +00:00
|
|
|
Width = 138
|
2020-03-30 18:01:44 +00:00
|
|
|
Anchors = [akTop, akLeft, akRight, akBottom]
|
|
|
|
BorderSpacing.Left = 8
|
|
|
|
BorderSpacing.Top = 2
|
|
|
|
ItemHeight = 0
|
|
|
|
MultiSelect = True
|
|
|
|
OnSelectionChange = VarListSelectionChange
|
2020-09-28 16:24:38 +00:00
|
|
|
TabOrder = 5
|
2020-03-30 18:01:44 +00:00
|
|
|
end
|
|
|
|
object InBtn: TBitBtn
|
2020-09-28 16:24:38 +00:00
|
|
|
AnchorSideLeft.Control = ParamsPanel
|
2020-03-30 18:01:44 +00:00
|
|
|
AnchorSideLeft.Side = asrCenter
|
|
|
|
AnchorSideBottom.Control = VertCenterBevel
|
2020-09-28 16:24:38 +00:00
|
|
|
Left = 146
|
2020-03-30 18:01:44 +00:00
|
|
|
Height = 28
|
2020-09-28 16:24:38 +00:00
|
|
|
Top = 125
|
2020-03-30 18:01:44 +00:00
|
|
|
Width = 28
|
|
|
|
Anchors = [akLeft, akBottom]
|
|
|
|
Images = MainDataModule.ImageList
|
|
|
|
ImageIndex = 1
|
|
|
|
OnClick = InBtnClick
|
|
|
|
Spacing = 0
|
2020-09-28 16:24:38 +00:00
|
|
|
TabOrder = 6
|
2020-03-30 18:01:44 +00:00
|
|
|
end
|
|
|
|
object OutBtn: TBitBtn
|
2020-09-28 16:24:38 +00:00
|
|
|
AnchorSideLeft.Control = ParamsPanel
|
2020-03-30 18:01:44 +00:00
|
|
|
AnchorSideLeft.Side = asrCenter
|
|
|
|
AnchorSideTop.Control = VertCenterBevel
|
|
|
|
AnchorSideTop.Side = asrBottom
|
|
|
|
AnchorSideBottom.Control = VertCenterBevel
|
|
|
|
AnchorSideBottom.Side = asrBottom
|
2020-09-28 16:24:38 +00:00
|
|
|
Left = 146
|
2020-03-30 18:01:44 +00:00
|
|
|
Height = 28
|
2020-09-28 16:24:38 +00:00
|
|
|
Top = 165
|
2020-03-30 18:01:44 +00:00
|
|
|
Width = 28
|
|
|
|
Images = MainDataModule.ImageList
|
|
|
|
ImageIndex = 0
|
|
|
|
OnClick = OutBtnClick
|
|
|
|
Spacing = 0
|
2020-09-28 16:24:38 +00:00
|
|
|
TabOrder = 7
|
2020-03-30 18:01:44 +00:00
|
|
|
end
|
|
|
|
object VertCenterBevel: TBevel
|
|
|
|
AnchorSideLeft.Control = InBtn
|
|
|
|
AnchorSideTop.Control = VarList
|
|
|
|
AnchorSideTop.Side = asrCenter
|
|
|
|
AnchorSideRight.Control = OutBtn
|
|
|
|
AnchorSideRight.Side = asrBottom
|
2020-09-28 16:24:38 +00:00
|
|
|
Left = 146
|
2020-03-30 18:01:44 +00:00
|
|
|
Height = 12
|
2020-09-28 16:24:38 +00:00
|
|
|
Top = 153
|
2020-03-30 18:01:44 +00:00
|
|
|
Width = 28
|
|
|
|
Anchors = [akTop, akLeft, akRight]
|
|
|
|
Shape = bsSpacer
|
|
|
|
end
|
|
|
|
end
|
2020-09-28 16:24:38 +00:00
|
|
|
object ParamsSplitter: TSplitter[1]
|
|
|
|
Left = 332
|
|
|
|
Height = 358
|
|
|
|
Top = 0
|
|
|
|
Width = 5
|
|
|
|
ResizeStyle = rsPattern
|
2020-03-30 18:01:44 +00:00
|
|
|
end
|
2020-09-28 16:24:38 +00:00
|
|
|
object PageControl: TPageControl[2]
|
|
|
|
Left = 341
|
|
|
|
Height = 342
|
|
|
|
Top = 8
|
|
|
|
Width = 530
|
|
|
|
ActivePage = ReportPage
|
|
|
|
Align = alClient
|
|
|
|
BorderSpacing.Left = 4
|
2020-03-30 18:01:44 +00:00
|
|
|
BorderSpacing.Top = 8
|
2020-09-28 16:24:38 +00:00
|
|
|
BorderSpacing.Right = 8
|
2020-03-30 18:01:44 +00:00
|
|
|
BorderSpacing.Bottom = 8
|
2020-09-28 16:24:38 +00:00
|
|
|
TabIndex = 0
|
2020-03-30 18:01:44 +00:00
|
|
|
TabOrder = 2
|
2020-09-28 16:24:38 +00:00
|
|
|
object ReportPage: TTabSheet
|
|
|
|
Caption = 'Report'
|
|
|
|
end
|
2020-03-30 18:01:44 +00:00
|
|
|
end
|
|
|
|
end
|