2015-01-08 17:36:41 +00:00
|
|
|
object Form1: TForm1
|
|
|
|
Left = 354
|
|
|
|
Height = 634
|
|
|
|
Top = 132
|
2015-01-14 15:34:20 +00:00
|
|
|
Width = 877
|
2015-01-08 17:36:41 +00:00
|
|
|
Caption = 'Form1'
|
|
|
|
ClientHeight = 634
|
2015-01-14 15:34:20 +00:00
|
|
|
ClientWidth = 877
|
2015-01-08 17:36:41 +00:00
|
|
|
OnCreate = FormCreate
|
2016-03-18 19:50:40 +00:00
|
|
|
LCLVersion = '1.7'
|
2015-01-08 17:36:41 +00:00
|
|
|
object Panel1: TPanel
|
|
|
|
Left = 0
|
|
|
|
Height = 40
|
|
|
|
Top = 0
|
2015-01-14 15:34:20 +00:00
|
|
|
Width = 877
|
2015-01-08 17:36:41 +00:00
|
|
|
Align = alTop
|
|
|
|
BevelOuter = bvNone
|
|
|
|
ClientHeight = 40
|
2015-01-14 15:34:20 +00:00
|
|
|
ClientWidth = 877
|
2015-01-08 17:36:41 +00:00
|
|
|
TabOrder = 0
|
|
|
|
object Button1: TButton
|
|
|
|
Left = 8
|
|
|
|
Height = 25
|
|
|
|
Top = 7
|
|
|
|
Width = 91
|
|
|
|
Caption = 'Delete sheet'
|
|
|
|
OnClick = Button1Click
|
|
|
|
TabOrder = 0
|
|
|
|
end
|
|
|
|
object Button2: TButton
|
|
|
|
Left = 107
|
|
|
|
Height = 25
|
|
|
|
Top = 7
|
|
|
|
Width = 93
|
|
|
|
Caption = 'Rename sheet'
|
|
|
|
OnClick = Button2Click
|
|
|
|
TabOrder = 1
|
|
|
|
end
|
|
|
|
object Bevel1: TBevel
|
|
|
|
Left = 0
|
|
|
|
Height = 3
|
|
|
|
Top = 37
|
2015-01-14 15:34:20 +00:00
|
|
|
Width = 877
|
2015-01-08 17:36:41 +00:00
|
|
|
Align = alBottom
|
|
|
|
Shape = bsBottomLine
|
|
|
|
end
|
|
|
|
end
|
|
|
|
object Splitter1: TSplitter
|
2015-01-14 15:34:20 +00:00
|
|
|
Left = 872
|
2015-01-08 17:36:41 +00:00
|
|
|
Height = 594
|
|
|
|
Top = 40
|
|
|
|
Width = 5
|
|
|
|
Align = alRight
|
|
|
|
ResizeAnchor = akRight
|
|
|
|
end
|
|
|
|
object sWorkbookTabControl1: TsWorkbookTabControl
|
|
|
|
Left = 6
|
|
|
|
Height = 582
|
|
|
|
Top = 46
|
2015-01-14 15:34:20 +00:00
|
|
|
Width = 390
|
2015-01-08 17:36:41 +00:00
|
|
|
TabIndex = 0
|
|
|
|
Tabs.Strings = (
|
|
|
|
'Sheet1'
|
|
|
|
)
|
|
|
|
Align = alClient
|
|
|
|
BorderSpacing.Around = 6
|
|
|
|
TabOrder = 2
|
|
|
|
WorkbookSource = sWorkbookSource1
|
|
|
|
object sWorksheetGrid1: TsWorksheetGrid
|
|
|
|
Left = 2
|
|
|
|
Height = 557
|
|
|
|
Top = 23
|
2015-01-14 15:34:20 +00:00
|
|
|
Width = 386
|
2015-01-08 17:36:41 +00:00
|
|
|
FrozenCols = 0
|
|
|
|
FrozenRows = 0
|
|
|
|
ReadFormulas = False
|
|
|
|
WorkbookSource = sWorkbookSource1
|
|
|
|
Align = alClient
|
|
|
|
AutoAdvance = aaDown
|
|
|
|
ColCount = 27
|
2016-03-18 19:50:40 +00:00
|
|
|
DefaultColWidth = 64
|
|
|
|
DefaultRowHeight = 22
|
2015-01-08 17:36:41 +00:00
|
|
|
Font.Color = clBlack
|
|
|
|
Font.Height = -15
|
|
|
|
Font.Name = 'Calibri'
|
2015-01-09 22:25:20 +00:00
|
|
|
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goEditing, goThumbTracking]
|
2015-01-08 17:36:41 +00:00
|
|
|
ParentFont = False
|
|
|
|
RowCount = 101
|
|
|
|
TabOrder = 1
|
|
|
|
TitleFont.Color = clBlack
|
|
|
|
TitleFont.Height = -15
|
|
|
|
TitleFont.Name = 'Calibri'
|
|
|
|
end
|
|
|
|
end
|
|
|
|
object Panel2: TPanel
|
2015-01-14 15:34:20 +00:00
|
|
|
Left = 402
|
2015-01-08 17:36:41 +00:00
|
|
|
Height = 594
|
|
|
|
Top = 40
|
2015-01-11 15:52:30 +00:00
|
|
|
Width = 470
|
2015-01-08 17:36:41 +00:00
|
|
|
Align = alRight
|
|
|
|
BevelOuter = bvNone
|
|
|
|
Caption = 'Panel2'
|
|
|
|
ClientHeight = 594
|
2015-01-11 15:52:30 +00:00
|
|
|
ClientWidth = 470
|
2015-01-08 17:36:41 +00:00
|
|
|
TabOrder = 3
|
|
|
|
object Chart1: TChart
|
|
|
|
Left = 0
|
|
|
|
Height = 183
|
|
|
|
Top = 0
|
2015-01-11 15:52:30 +00:00
|
|
|
Width = 470
|
2015-01-08 17:36:41 +00:00
|
|
|
AxisList = <
|
|
|
|
item
|
|
|
|
Minors = <>
|
|
|
|
Title.LabelFont.Orientation = 900
|
|
|
|
end
|
|
|
|
item
|
|
|
|
Alignment = calBottom
|
|
|
|
Minors = <>
|
|
|
|
end>
|
|
|
|
BackColor = clWhite
|
|
|
|
Foot.Brush.Color = clBtnFace
|
|
|
|
Foot.Font.Color = clBlue
|
|
|
|
Title.Brush.Color = clBtnFace
|
|
|
|
Title.Font.Color = clBlue
|
|
|
|
Title.Text.Strings = (
|
|
|
|
'Chart from 1st sheet'
|
|
|
|
)
|
|
|
|
Title.Visible = True
|
|
|
|
Align = alTop
|
|
|
|
object Chart1AreaSeries1: TAreaSeries
|
|
|
|
AreaBrush.Color = clSkyBlue
|
|
|
|
AreaLinesPen.Style = psClear
|
|
|
|
Source = sWorkbookChartSource1
|
|
|
|
UseZeroLevel = True
|
|
|
|
end
|
|
|
|
end
|
|
|
|
object Chart2: TChart
|
|
|
|
Left = 0
|
|
|
|
Height = 218
|
|
|
|
Top = 183
|
2015-01-11 15:52:30 +00:00
|
|
|
Width = 470
|
2015-01-08 17:36:41 +00:00
|
|
|
AxisList = <
|
|
|
|
item
|
|
|
|
Minors = <>
|
|
|
|
Title.LabelFont.Orientation = 900
|
|
|
|
end
|
|
|
|
item
|
|
|
|
Alignment = calBottom
|
|
|
|
Minors = <>
|
|
|
|
end>
|
|
|
|
BackColor = clWhite
|
|
|
|
Depth = 10
|
|
|
|
Foot.Brush.Color = clBtnFace
|
|
|
|
Foot.Font.Color = clBlue
|
|
|
|
Title.Brush.Color = clBtnFace
|
|
|
|
Title.Font.Color = clBlue
|
|
|
|
Title.Text.Strings = (
|
|
|
|
'Chart from 2nd sheet'
|
|
|
|
)
|
|
|
|
Title.Visible = True
|
|
|
|
Align = alClient
|
|
|
|
object Chart2BarSeries1: TBarSeries
|
|
|
|
Marks.Distance = 15
|
|
|
|
Marks.Format = '%0:.2f'
|
|
|
|
Marks.Frame.Color = clOlive
|
|
|
|
Marks.LabelBrush.Color = clCream
|
|
|
|
Marks.LinkPen.Visible = False
|
|
|
|
Marks.Style = smsCustom
|
|
|
|
BarBrush.Color = 9934847
|
|
|
|
Depth = 10
|
|
|
|
Source = sWorkbookChartSource2
|
|
|
|
end
|
|
|
|
end
|
|
|
|
object Chart3: TChart
|
|
|
|
Left = 0
|
|
|
|
Height = 193
|
|
|
|
Top = 401
|
2015-01-11 15:52:30 +00:00
|
|
|
Width = 470
|
2015-01-08 17:36:41 +00:00
|
|
|
AxisList = <
|
|
|
|
item
|
|
|
|
Visible = False
|
|
|
|
Minors = <>
|
|
|
|
Title.LabelFont.Orientation = 900
|
|
|
|
end
|
|
|
|
item
|
|
|
|
Visible = False
|
|
|
|
Alignment = calBottom
|
|
|
|
Minors = <>
|
|
|
|
end>
|
|
|
|
Foot.Brush.Color = clBtnFace
|
|
|
|
Foot.Font.Color = clBlue
|
|
|
|
Frame.Visible = False
|
|
|
|
Legend.Alignment = laCenterRight
|
|
|
|
Legend.Visible = True
|
|
|
|
Title.Brush.Color = clBtnFace
|
|
|
|
Title.Font.Color = clBlue
|
|
|
|
Title.Text.Strings = (
|
|
|
|
'Chart from 3rd sheet'
|
|
|
|
)
|
|
|
|
Title.Visible = True
|
|
|
|
Align = alBottom
|
|
|
|
object Chart3PieSeries1: TPieSeries
|
|
|
|
Legend.Multiplicity = lmPoint
|
|
|
|
Marks.Distance = 8
|
|
|
|
Marks.Format = '%2:s'
|
|
|
|
Marks.Style = smsLabel
|
|
|
|
Source = sWorkbookChartSource3
|
|
|
|
end
|
|
|
|
end
|
|
|
|
end
|
|
|
|
object sWorkbookSource1: TsWorkbookSource
|
|
|
|
AutoDetectFormat = False
|
|
|
|
FileFormat = sfOOXML
|
|
|
|
Options = []
|
|
|
|
left = 184
|
|
|
|
top = 320
|
|
|
|
end
|
|
|
|
object sWorkbookChartSource1: TsWorkbookChartSource
|
|
|
|
WorkbookSource = sWorkbookSource1
|
|
|
|
left = 640
|
|
|
|
top = 112
|
|
|
|
end
|
|
|
|
object sWorkbookChartSource2: TsWorkbookChartSource
|
|
|
|
WorkbookSource = sWorkbookSource1
|
|
|
|
left = 640
|
|
|
|
top = 320
|
|
|
|
end
|
|
|
|
object sWorkbookChartSource3: TsWorkbookChartSource
|
|
|
|
WorkbookSource = sWorkbookSource1
|
|
|
|
left = 640
|
|
|
|
top = 512
|
|
|
|
end
|
|
|
|
end
|