lazarus/components/tachart/demo/charteditor/ceseriesdlg.lfm
2019-04-04 22:17:59 +00:00

826 lines
25 KiB
Plaintext

object SeriesEditor: TSeriesEditor
Left = 509
Height = 450
Top = 284
Width = 600
ActiveControl = cbShowSeries
Caption = 'SeriesEditor'
ClientHeight = 450
ClientWidth = 600
Constraints.MinHeight = 450
Constraints.MinWidth = 600
OnCloseQuery = FormCloseQuery
OnCreate = FormCreate
OnDestroy = FormDestroy
OnShow = FormShow
Position = poScreenCenter
LCLVersion = '2.1.0.0'
object ButtonPanel: TButtonPanel
Left = 6
Height = 34
Top = 410
Width = 588
OKButton.Name = 'OKButton'
OKButton.DefaultCaption = True
OKButton.OnClick = OKButtonClick
HelpButton.Name = 'HelpButton'
HelpButton.DefaultCaption = True
CloseButton.Name = 'CloseButton'
CloseButton.DefaultCaption = True
CancelButton.Name = 'CancelButton'
CancelButton.DefaultCaption = True
TabOrder = 2
ShowButtons = [pbOK, pbCancel]
end
object nbSeriesTypes: TNotebook
Left = 0
Height = 254
Top = 150
Width = 600
PageIndex = 0
Align = alClient
TabOrder = 1
object pgLineSeries: TPage
object gbLineSeriesLineStyle: TGroupBox
AnchorSideLeft.Control = pgLineSeries
AnchorSideTop.Control = pgLineSeries
AnchorSideRight.Control = Bevel1
Left = 8
Height = 113
Top = 8
Width = 284
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Left = 8
BorderSpacing.Top = 8
Caption = 'Connecting lines'
ClientHeight = 93
ClientWidth = 280
TabOrder = 0
inline LineSeriesPenFrame: TPenFrame
AnchorSideTop.Control = cbLineSeriesShowLines
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = gbLineSeriesLineStyle
AnchorSideRight.Side = asrBottom
Left = 8
Height = 52
Top = 33
Width = 264
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 8
BorderSpacing.Top = 8
BorderSpacing.Right = 8
BorderSpacing.Bottom = 8
ClientHeight = 52
ClientWidth = 264
TabOrder = 1
inherited cbPenStyle: TChartComboBox
AnchorSideTop.Control = LineSeriesPenFrame
Width = 180
end
inherited lblPenStyle: TLabel
AnchorSideLeft.Control = LineSeriesPenFrame
end
inherited cbPenWidth: TChartComboBox
Width = 180
end
inherited cbPenColor: TColorButton
AnchorSideRight.Control = LineSeriesPenFrame
Left = 233
end
inherited Bevel1: TBevel
Left = 228
end
end
object cbLineSeriesShowLines: TCheckBox
AnchorSideLeft.Control = gbLineSeriesLineStyle
AnchorSideTop.Control = gbLineSeriesLineStyle
Left = 8
Height = 19
Top = 6
Width = 54
BorderSpacing.Left = 8
BorderSpacing.Top = 6
Caption = 'Visible'
OnChange = cbLineSeriesShowLinesChange
TabOrder = 0
end
end
object gbLineSeriesPointer: TGroupBox
AnchorSideLeft.Control = Bevel1
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = gbLineSeriesLineStyle
AnchorSideRight.Control = pgLineSeries
AnchorSideRight.Side = asrBottom
Left = 308
Height = 231
Top = 8
Width = 284
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Right = 8
Caption = 'Series pointer'
ClientHeight = 211
ClientWidth = 280
TabOrder = 1
object cbLineSeriesShowPoints: TCheckBox
AnchorSideLeft.Control = gbLineSeriesPointer
AnchorSideTop.Control = gbLineSeriesPointer
Left = 8
Height = 19
Top = 6
Width = 54
BorderSpacing.Left = 8
BorderSpacing.Top = 6
Caption = 'Visible'
OnChange = cbLineSeriesShowPointsChange
TabOrder = 0
end
inline LineSeriesPointerFrame: TPointerFrame
AnchorSideLeft.Control = gbLineSeriesPointer
AnchorSideTop.Control = cbLineSeriesShowPoints
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = gbLineSeriesPointer
AnchorSideRight.Side = asrBottom
Left = 8
Height = 170
Top = 33
Width = 264
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 8
BorderSpacing.Top = 8
BorderSpacing.Right = 8
BorderSpacing.Bottom = 8
ClientHeight = 170
ClientWidth = 264
TabOrder = 1
inherited Bevel1: TBevel
AnchorSideLeft.Control = LineSeriesPointerFrame
AnchorSideRight.Control = LineSeriesPointerFrame
Width = 264
end
inherited PointerBrushFrame: TBrushFrame
AnchorSideLeft.Control = LineSeriesPointerFrame
AnchorSideTop.Control = LineSeriesPointerFrame.Label2
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = LineSeriesPointerFrame
AnchorSideRight.Side = asrBottom
Top = 69
Width = 264
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 2
BorderSpacing.Bottom = 8
ClientWidth = 264
TabOrder = 2
inherited cbBrushStyle: TChartComboBox
AnchorSideTop.Control = LineSeriesPointerFrame.PointerBrushFrame
Width = 180
end
inherited lblBrushStyle: TLabel
AnchorSideLeft.Control = LineSeriesPointerFrame.PointerBrushFrame
end
inherited cbBrushColor: TColorButton
AnchorSideRight.Control = LineSeriesPointerFrame.PointerBrushFrame
Left = 233
end
end
inherited cbPointerStyle: TChartComboBox
AnchorSideLeft.Control = LineSeriesPointerFrame
Width = 178
end
inherited Label2: TLabel
AnchorSideLeft.Control = LineSeriesPointerFrame
end
inherited Bevel2: TBevel
AnchorSideLeft.Control = LineSeriesPointerFrame
AnchorSideRight.Control = LineSeriesPointerFrame
Width = 264
end
inherited Label3: TLabel
AnchorSideLeft.Control = LineSeriesPointerFrame
end
inherited PointerPenFrame: TPenFrame
AnchorSideLeft.Control = LineSeriesPointerFrame
AnchorSideTop.Control = LineSeriesPointerFrame.Label3
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = LineSeriesPointerFrame
AnchorSideRight.Side = asrBottom
Height = 52
Top = 118
Width = 264
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 2
ClientHeight = 52
ClientWidth = 264
TabOrder = 3
inherited cbPenStyle: TChartComboBox
AnchorSideTop.Control = LineSeriesPointerFrame.PointerPenFrame
Width = 180
end
inherited lblPenStyle: TLabel
AnchorSideLeft.Control = LineSeriesPointerFrame.PointerPenFrame
end
inherited cbPenWidth: TChartComboBox
Width = 180
end
inherited cbPenColor: TColorButton
AnchorSideRight.Control = LineSeriesPointerFrame.PointerPenFrame
Left = 233
end
inherited Bevel1: TBevel
Left = 228
end
end
inherited Bevel3: TBevel
AnchorSideLeft.Control = LineSeriesPointerFrame
AnchorSideTop.Control = LineSeriesPointerFrame
AnchorSideRight.Control = LineSeriesPointerFrame
Width = 264
end
inherited Label1: TLabel
AnchorSideLeft.Control = LineSeriesPointerFrame
AnchorSideTop.Control = LineSeriesPointerFrame
end
inherited lblPointerSize: TLabel
Left = 186
end
inherited sePointerSize: TSpinEdit
AnchorSideRight.Control = LineSeriesPointerFrame
Left = 214
end
end
end
object Bevel1: TBevel
AnchorSideLeft.Control = pgLineSeries
AnchorSideLeft.Side = asrCenter
Left = 292
Height = 104
Top = 152
Width = 16
Shape = bsSpacer
end
end
object pgBarSeries: TPage
object gbBarSeriesBorder: TGroupBox
AnchorSideLeft.Control = pgBarSeries
AnchorSideTop.Control = gbBarSeriesBrush
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Bevel2
Left = 8
Height = 92
Top = 60
Width = 267
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Left = 8
BorderSpacing.Top = 8
Caption = 'Border'
ClientHeight = 72
ClientWidth = 263
TabOrder = 2
inline BarSeriesPenFrame: TPenFrame
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = gbBarSeriesBorder
AnchorSideRight.Side = asrBottom
Left = 8
Height = 52
Top = 8
Width = 247
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 8
BorderSpacing.Top = 8
BorderSpacing.Right = 8
BorderSpacing.Bottom = 12
ClientHeight = 52
ClientWidth = 247
inherited cbPenStyle: TChartComboBox
AnchorSideTop.Control = BarSeriesPenFrame
Width = 163
end
inherited lblPenStyle: TLabel
AnchorSideLeft.Control = BarSeriesPenFrame
end
inherited cbPenWidth: TChartComboBox
Width = 163
end
inherited cbPenColor: TColorButton
AnchorSideRight.Control = BarSeriesPenFrame
Left = 216
end
inherited Bevel1: TBevel
Left = 211
end
end
end
object gbBarSeriesBrush: TGroupBox
AnchorSideLeft.Control = pgBarSeries
AnchorSideTop.Control = pgBarSeries
AnchorSideRight.Control = Bevel2
Left = 8
Height = 52
Top = 0
Width = 267
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Left = 8
Caption = 'Bar brush'
ClientHeight = 32
ClientWidth = 263
TabOrder = 0
inline BarSeriesBrushFrame: TBrushFrame
AnchorSideLeft.Control = gbBarSeriesBrush
AnchorSideTop.Control = gbBarSeriesBrush
AnchorSideRight.Control = gbBarSeriesBrush
AnchorSideRight.Side = asrBottom
Left = 8
Width = 247
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 8
BorderSpacing.Right = 8
BorderSpacing.Bottom = 8
ClientWidth = 247
inherited cbBrushStyle: TChartComboBox
AnchorSideTop.Control = BarSeriesBrushFrame
Width = 163
end
inherited lblBrushStyle: TLabel
AnchorSideLeft.Control = BarSeriesBrushFrame
end
inherited cbBrushColor: TColorButton
AnchorSideRight.Control = BarSeriesBrushFrame
Left = 216
end
end
end
object gbBarShape: TGroupBox
AnchorSideLeft.Control = Bevel2
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = gbBarSeriesBrush
AnchorSideRight.Control = pgBarSeries
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = gbBarSeriesBrush
AnchorSideBottom.Side = asrBottom
Left = 291
Height = 52
Top = 0
Width = 268
Anchors = [akTop, akLeft, akRight, akBottom]
AutoSize = True
BorderSpacing.Right = 8
Caption = 'Bar shape'
ClientHeight = 32
ClientWidth = 264
TabOrder = 1
object cbBarShape: TComboBox
AnchorSideLeft.Control = gbBarShape
AnchorSideTop.Control = gbBarShape
AnchorSideRight.Control = gbBarShape
AnchorSideRight.Side = asrBottom
Left = 8
Height = 23
Top = 0
Width = 248
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 8
BorderSpacing.Right = 8
BorderSpacing.Bottom = 8
ItemHeight = 15
ItemIndex = 0
Items.Strings = (
'Rectangular'
'Cylindrical'
'Hexagonal prism'
'Pyramid'
'Conical'
)
OnChange = cbBarShapeChange
Style = csDropDownList
TabOrder = 0
Text = 'Rectangular'
end
end
object Bevel2: TBevel
AnchorSideLeft.Control = pgBarSeries
AnchorSideLeft.Side = asrCenter
Left = 275
Height = 11
Top = 208
Width = 16
Shape = bsSpacer
end
end
object pgAreaSeries: TPage
object gbAreaSeriesBrush: TGroupBox
AnchorSideLeft.Control = pgAreaSeries
AnchorSideTop.Control = pgAreaSeries
AnchorSideRight.Control = Bevel3
Left = 8
Height = 57
Top = 0
Width = 267
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 8
Caption = 'Area fill'
ClientHeight = 37
ClientWidth = 263
TabOrder = 0
inline AreaSeriesBrushFrame: TBrushFrame
AnchorSideLeft.Control = gbAreaSeriesBrush
AnchorSideTop.Control = gbAreaSeriesBrush
AnchorSideRight.Control = gbAreaSeriesBrush
AnchorSideRight.Side = asrBottom
Left = 8
Width = 247
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 8
BorderSpacing.Right = 8
BorderSpacing.Bottom = 8
ClientWidth = 247
inherited cbBrushStyle: TChartComboBox
AnchorSideTop.Control = AreaSeriesBrushFrame
Width = 163
end
inherited lblBrushStyle: TLabel
AnchorSideLeft.Control = AreaSeriesBrushFrame
end
inherited cbBrushColor: TColorButton
AnchorSideRight.Control = AreaSeriesBrushFrame
Left = 216
end
end
end
object gbAreaContourPen: TGroupBox
AnchorSideLeft.Control = gbAreaSeriesBrush
AnchorSideTop.Control = gbAreaSeriesBrush
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Bevel3
Left = 8
Height = 115
Top = 65
Width = 267
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Top = 8
Caption = 'Border'
ClientHeight = 95
ClientWidth = 263
TabOrder = 1
object cbAreaShowContourLines: TCheckBox
AnchorSideLeft.Control = gbAreaContourPen
AnchorSideTop.Control = gbAreaContourPen
Left = 8
Height = 19
Top = 8
Width = 54
BorderSpacing.Left = 8
BorderSpacing.Top = 8
Caption = 'Visible'
OnChange = cbAreaShowContourLinesChange
TabOrder = 0
end
inline AreaSeriesContourPenFrame: TPenFrame
AnchorSideLeft.Control = gbAreaContourPen
AnchorSideTop.Control = cbAreaShowContourLines
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = gbAreaContourPen
AnchorSideRight.Side = asrBottom
Left = 8
Height = 52
Top = 35
Width = 247
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 8
BorderSpacing.Top = 8
BorderSpacing.Right = 8
BorderSpacing.Bottom = 8
ClientHeight = 52
ClientWidth = 247
TabOrder = 1
inherited cbPenStyle: TChartComboBox
AnchorSideTop.Control = AreaSeriesContourPenFrame
Width = 163
end
inherited lblPenStyle: TLabel
AnchorSideLeft.Control = AreaSeriesContourPenFrame
end
inherited cbPenWidth: TChartComboBox
Width = 163
end
inherited cbPenColor: TColorButton
AnchorSideRight.Control = AreaSeriesContourPenFrame
Left = 216
end
inherited Bevel1: TBevel
Left = 211
end
end
end
object Bevel3: TBevel
AnchorSideLeft.Control = pgAreaSeries
AnchorSideLeft.Side = asrCenter
Left = 275
Height = 104
Top = 72
Width = 16
Shape = bsSpacer
end
object gbAreaDropLinePen: TGroupBox
AnchorSideLeft.Control = Bevel3
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = gbAreaSeriesBrush
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = pgAreaSeries
AnchorSideRight.Side = asrBottom
Left = 291
Height = 115
Top = 65
Width = 268
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Top = 8
BorderSpacing.Right = 8
Caption = 'Drop lines'
ClientHeight = 95
ClientWidth = 264
TabOrder = 2
object cbAreaShowDropLines: TCheckBox
AnchorSideLeft.Control = gbAreaDropLinePen
AnchorSideTop.Control = gbAreaDropLinePen
Left = 8
Height = 19
Top = 8
Width = 54
BorderSpacing.Left = 8
BorderSpacing.Top = 8
Caption = 'Visible'
OnChange = cbAreaShowDropLinesChange
TabOrder = 0
end
inline AreaSeriesDropLinesPenFrame: TPenFrame
AnchorSideLeft.Control = gbAreaDropLinePen
AnchorSideTop.Control = cbAreaShowDropLines
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = gbAreaDropLinePen
AnchorSideRight.Side = asrBottom
Left = 8
Height = 52
Top = 35
Width = 248
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 8
BorderSpacing.Top = 8
BorderSpacing.Right = 8
BorderSpacing.Bottom = 8
ClientHeight = 52
ClientWidth = 248
TabOrder = 1
inherited cbPenStyle: TChartComboBox
AnchorSideTop.Control = AreaSeriesDropLinesPenFrame
Width = 164
end
inherited lblPenStyle: TLabel
AnchorSideLeft.Control = AreaSeriesDropLinesPenFrame
end
inherited cbPenWidth: TChartComboBox
Width = 164
end
inherited cbPenColor: TColorButton
AnchorSideRight.Control = AreaSeriesDropLinesPenFrame
Left = 217
end
inherited Bevel1: TBevel
Left = 212
end
end
end
end
end
object PanelTop: TPanel
Left = 0
Height = 150
Top = 0
Width = 600
Align = alTop
AutoSize = True
BevelOuter = bvNone
ClientHeight = 150
ClientWidth = 600
TabOrder = 0
object cbShowSeries: TCheckBox
Left = 8
Height = 19
Top = 8
Width = 49
BorderSpacing.Left = 8
BorderSpacing.Top = 8
BorderSpacing.Bottom = 6
Caption = 'Show'
Checked = True
OnChange = cbShowSeriesChange
State = cbChecked
TabOrder = 0
end
object gbLegendText: TGroupBox
AnchorSideLeft.Control = PanelTop
AnchorSideTop.Control = cbShowSeries
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Bevel4
Left = 8
Height = 109
Top = 33
Width = 284
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Left = 8
BorderSpacing.Bottom = 8
Caption = 'Legend text'
ClientHeight = 89
ClientWidth = 280
TabOrder = 1
object edSeriesTitle: TEdit
AnchorSideLeft.Control = gbLegendText
AnchorSideTop.Control = gbLegendText
AnchorSideRight.Control = gbLegendText
AnchorSideRight.Side = asrBottom
Left = 8
Height = 23
Top = 4
Width = 264
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 8
BorderSpacing.Top = 4
BorderSpacing.Right = 8
OnChange = edSeriesTitleChange
TabOrder = 0
Text = 'edSeriesTitle'
end
object cbShowInLegend: TCheckBox
AnchorSideLeft.Control = edSeriesTitle
AnchorSideTop.Control = edSeriesTitle
AnchorSideTop.Side = asrBottom
Left = 8
Height = 19
Top = 33
Width = 101
BorderSpacing.Top = 6
Caption = 'Show in legend'
OnChange = cbShowInLegendChange
TabOrder = 1
end
object cbLegendMultiplicity: TComboBox
AnchorSideLeft.Control = Label1
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = cbShowInLegend
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = edSeriesTitle
AnchorSideRight.Side = asrBottom
Left = 87
Height = 23
Top = 58
Width = 185
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 8
BorderSpacing.Top = 6
BorderSpacing.Bottom = 8
ItemHeight = 15
ItemIndex = 0
Items.Strings = (
'single item per series'
'marks text per data point'
)
OnChange = cbLegendMultiplicityChange
Style = csDropDownList
TabOrder = 2
Text = 'single item per series'
end
object Label1: TLabel
AnchorSideLeft.Control = edSeriesTitle
AnchorSideTop.Control = cbLegendMultiplicity
AnchorSideTop.Side = asrCenter
Left = 8
Height = 15
Top = 62
Width = 71
Caption = 'Legend items'
ParentColor = False
end
end
object gbMarks: TGroupBox
AnchorSideLeft.Control = Bevel4
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = gbLegendText
AnchorSideRight.Control = PanelTop
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = gbLegendText
AnchorSideBottom.Side = asrBottom
Left = 308
Height = 109
Top = 33
Width = 284
Anchors = [akTop, akLeft, akRight, akBottom]
AutoSize = True
BorderSpacing.Right = 8
Caption = 'Marks'
ClientHeight = 89
ClientWidth = 280
TabOrder = 2
object lblSeriesMarksStyle: TLabel
AnchorSideLeft.Control = gbMarks
AnchorSideTop.Control = cbMarksStyle
AnchorSideTop.Side = asrCenter
Left = 8
Height = 15
Top = 8
Width = 25
BorderSpacing.Left = 8
Caption = 'Style'
ParentColor = False
end
object cbMarksStyle: TComboBox
AnchorSideLeft.Control = edMarksFormat
AnchorSideTop.Control = gbMarks
AnchorSideRight.Control = gbMarks
AnchorSideRight.Side = asrBottom
Left = 54
Height = 23
Top = 4
Width = 218
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 4
BorderSpacing.Right = 8
ItemHeight = 15
ItemIndex = 1
Items.Strings = (
'User-defined'
'No labels'
'Value'
'Percent'
'Label'
'Label and percent'
'Label and value'
'Legend'
'Percent and total'
'Label, percent, and total'
'X value'
)
OnChange = cbMarksStyleChange
Style = csDropDownList
TabOrder = 0
Text = 'No labels'
end
object Label2: TLabel
AnchorSideLeft.Control = lblSeriesMarksStyle
AnchorSideTop.Control = edMarksFormat
AnchorSideTop.Side = asrCenter
Left = 8
Height = 15
Top = 37
Width = 38
Caption = 'Format'
ParentColor = False
end
object edMarksFormat: TEdit
AnchorSideLeft.Control = Label2
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = cbMarksStyle
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = gbMarks
AnchorSideRight.Side = asrBottom
Left = 54
Height = 23
Top = 33
Width = 218
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 8
BorderSpacing.Top = 6
BorderSpacing.Right = 8
OnEditingDone = edMarksFormatEditingDone
TabOrder = 1
Text = 'edMarksFormat'
end
object cbShowMarks: TCheckBox
AnchorSideLeft.Control = edMarksFormat
AnchorSideTop.Control = edMarksFormat
AnchorSideTop.Side = asrBottom
Left = 54
Height = 19
Top = 62
Width = 156
BorderSpacing.Top = 6
Caption = 'Show at series data points'
OnChange = cbShowMarksChange
TabOrder = 2
end
end
object Bevel4: TBevel
AnchorSideLeft.Control = PanelTop
AnchorSideLeft.Side = asrCenter
Left = 292
Height = 94
Top = 48
Width = 16
Shape = bsSpacer
end
end
end