📄 main.dfm
字号:
object frmMain: TfrmMain
Left = 518
Top = 106
BorderStyle = bsDialog
Caption = 'Create Chart Sample'
ClientHeight = 409
ClientWidth = 447
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
Position = poScreenCenter
OnCreate = FormCreate
OnDestroy = FormDestroy
PixelsPerInch = 96
TextHeight = 13
object Label1: TLabel
Left = 8
Top = 12
Width = 42
Height = 13
Caption = 'Filename'
end
object Button1: TButton
Left = 364
Top = 380
Width = 75
Height = 25
Caption = 'Close'
TabOrder = 0
OnClick = Button1Click
end
object edFilename: TEdit
Left = 56
Top = 8
Width = 345
Height = 21
TabOrder = 1
end
object Button3: TButton
Left = 404
Top = 8
Width = 21
Height = 21
Caption = '...'
TabOrder = 2
OnClick = Button3Click
end
object Button4: TButton
Left = 364
Top = 344
Width = 75
Height = 25
Caption = 'Save'
TabOrder = 3
OnClick = Button4Click
end
object PageControl1: TPageControl
Left = 4
Top = 36
Width = 325
Height = 369
ActivePage = TabSheet1
TabIndex = 0
TabOrder = 4
object TabSheet1: TTabSheet
Caption = 'Basic'
object Label2: TLabel
Left = 8
Top = 12
Width = 49
Height = 13
Caption = 'Chart style'
end
object Title: TLabel
Left = 160
Top = 76
Width = 20
Height = 13
Caption = 'Title'
end
object Label6: TLabel
Left = 80
Top = 204
Width = 38
Height = 13
Caption = 'Markers'
end
object Label3: TLabel
Left = 176
Top = 0
Width = 36
Height = 13
Caption = 'Options'
end
object Button2: TButton
Left = 0
Top = 116
Width = 75
Height = 25
Caption = 'Column'
TabOrder = 6
OnClick = Button2Click
end
object cbLegend: TCheckBox
Left = 160
Top = 24
Width = 81
Height = 17
Caption = 'Has legend'
Checked = True
State = cbChecked
TabOrder = 0
end
object cb3D: TCheckBox
Left = 160
Top = 48
Width = 85
Height = 17
Caption = '3D'
TabOrder = 1
end
object edTitle: TEdit
Left = 188
Top = 72
Width = 121
Height = 21
TabOrder = 2
end
object Button5: TButton
Left = 0
Top = 60
Width = 75
Height = 25
Caption = 'Bar'
TabOrder = 4
OnClick = Button5Click
end
object Button6: TButton
Left = 0
Top = 32
Width = 75
Height = 25
Caption = 'Area'
TabOrder = 3
OnClick = Button6Click
end
object Button7: TButton
Left = 0
Top = 88
Width = 75
Height = 25
Caption = 'Bubble'
TabOrder = 5
OnClick = Button7Click
end
object Button8: TButton
Left = 0
Top = 144
Width = 75
Height = 25
Caption = 'Cylinder'
TabOrder = 7
OnClick = Button8Click
end
object Button9: TButton
Left = 0
Top = 172
Width = 75
Height = 25
Caption = 'Doughnut'
TabOrder = 8
OnClick = Button9Click
end
object Button10: TButton
Left = 0
Top = 200
Width = 75
Height = 25
Caption = 'Line'
TabOrder = 9
OnClick = Button10Click
end
object Button11: TButton
Left = 0
Top = 228
Width = 75
Height = 25
Caption = 'Pie'
TabOrder = 10
OnClick = Button11Click
end
object Button12: TButton
Left = 0
Top = 256
Width = 75
Height = 25
Caption = 'Radar'
TabOrder = 11
OnClick = Button12Click
end
object Button13: TButton
Left = 0
Top = 284
Width = 75
Height = 25
Caption = 'Scatter (XY)'
TabOrder = 12
OnClick = Button13Click
end
object Button14: TButton
Left = 0
Top = 312
Width = 75
Height = 25
Caption = 'Surface'
TabOrder = 14
OnClick = Button14Click
end
object Button22: TButton
Left = 80
Top = 284
Width = 157
Height = 25
Caption = 'Scatter (XY), multiple series'
TabOrder = 13
OnClick = Button22Click
end
object Button23: TButton
Left = 160
Top = 100
Width = 75
Height = 25
Caption = 'Font A...'
TabOrder = 15
OnClick = Button23Click
end
object Button24: TButton
Left = 160
Top = 132
Width = 75
Height = 25
Caption = 'Font B...'
TabOrder = 16
OnClick = Button24Click
end
object cbLineMarkers: TComboBox
Left = 124
Top = 200
Width = 105
Height = 21
Style = csDropDownList
ItemHeight = 13
TabOrder = 17
Items.Strings = (
'None'
'Square'
'Diamond'
'Triangle'
'X'
'Star'
'Dow Jones'
'Standard Deviation'
'Circle'
'Plus')
end
end
object TabSheet2: TTabSheet
Caption = 'Picture'
ImageIndex = 1
object Label4: TLabel
Left = 4
Top = 8
Width = 49
Height = 13
Caption = 'Picture file'
end
object Button15: TButton
Left = 4
Top = 52
Width = 75
Height = 25
Caption = 'Add chart'
TabOrder = 0
OnClick = Button15Click
end
object edPictFile: TEdit
Left = 4
Top = 24
Width = 281
Height = 21
TabOrder = 1
Text = 'Pig.jpg'
end
object Button16: TButton
Left = 288
Top = 24
Width = 25
Height = 21
Caption = '...'
TabOrder = 2
OnClick = Button16Click
end
object Memo1: TMemo
Left = 4
Top = 84
Width = 309
Height = 89
BorderStyle = bsNone
Color = clBtnFace
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Courier New'
Font.Style = []
Lines.Strings = (
'Creates a chart with the picture file as '
'background in the chart and legend area.')
ParentFont = False
ReadOnly = True
TabOrder = 3
end
end
object TabSheet3: TTabSheet
Caption = 'Gradient'
ImageIndex = 2
object shpColor1: TShape
Left = 84
Top = 12
Width = 49
Height = 17
end
object shpColor2: TShape
Left = 84
Top = 40
Width = 49
Height = 17
end
object Label5: TLabel
Left = 64
Top = 72
Width = 64
Height = 13
Caption = 'Gradient style'
end
object Button17: TButton
Left = 4
Top = 100
Width = 75
Height = 25
Caption = 'Add chart'
TabOrder = 0
OnClick = Button17Click
end
object Button18: TButton
Left = 136
Top = 8
Width = 75
Height = 25
Caption = 'Color 1'
TabOrder = 1
OnClick = Button18Click
end
object Button19: TButton
Left = 136
Top = 36
Width = 75
Height = 25
Caption = 'Color 2'
TabOrder = 2
OnClick = Button19Click
end
object cbGradientStyle: TComboBox
Left = 136
Top = 68
Width = 145
Height = 21
Style = csDropDownList
ItemHeight = 13
TabOrder = 3
Items.Strings = (
'Horizontal'
'Vertical'
'Diagonal up'
'Diagonal down'
'From corner'
'From center')
end
object Memo2: TMemo
Left = 0
Top = 136
Width = 309
Height = 89
BorderStyle = bsNone
Color = clBtnFace
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Courier New'
Font.Style = []
Lines.Strings = (
'Creates a chart with gradient fill style in '
'the chart and legend area.')
ParentFont = False
ReadOnly = True
TabOrder = 4
end
end
object TabSheet4: TTabSheet
Caption = 'Color bar'
ImageIndex = 3
object Button20: TButton
Left = 8
Top = 8
Width = 75
Height = 25
Caption = 'Add chart'
TabOrder = 0
OnClick = Button20Click
end
object Memo3: TMemo
Left = 4
Top = 84
Width = 309
Height = 89
BorderStyle = bsNone
Color = clBtnFace
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Courier New'
Font.Style = []
Lines.Strings = (
'Creates a chart with randomly colored bars.')
ParentFont = False
ReadOnly = True
TabOrder = 1
end
end
object TabSheet5: TTabSheet
Caption = 'Labels'
ImageIndex = 4
object Button21: TButton
Left = 8
Top = 8
Width = 75
Height = 25
Caption = 'Add chart'
TabOrder = 0
OnClick = Button21Click
end
object Memo4: TMemo
Left = 4
Top = 84
Width = 309
Height = 89
BorderStyle = bsNone
Color = clBtnFace
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Courier New'
Font.Style = []
Lines.Strings = (
'Creates a chart with labels (month names) '
'attached to the bars.')
ParentFont = False
ReadOnly = True
TabOrder = 1
end
end
end
object dlgSave: TSaveDialog
Filter = 'Excel files (*.xls)|*.xls|All files (*.*)|*.*'
Left = 404
Top = 36
end
object dlgOpen: TOpenDialog
Filter =
'Picture files (*.bmp;*.jpg;*.png;*.wmf)|*.bmp;*.jpg;*.png;*.wmf|' +
'All files (*.*)|*.*'
Left = 404
Top = 68
end
object dlgFont: TFontDialog
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
MinFontSize = 0
MaxFontSize = 0
Left = 404
Top = 140
end
object XLS: TXLSReadWriteII2
Version = xvExcel97
Sheets = <
item
Name = 'Sheet1'
DefaultColWidth = 8
DefaultRowHeight = 255
PrintSettings.Copies = 0
PrintSettings.FooterMargin = 0.5
PrintSettings.HeaderMargin = 0.5
PrintSettings.MarginBottom = -1
PrintSettings.MarginLeft = -1
PrintSettings.MarginRight = -1
PrintSettings.MarginTop = -1
PrintSettings.MarginBottomCm = -2.54
PrintSettings.MarginLeftCm = -2.54
PrintSettings.MarginRightCm = -2.54
PrintSettings.MarginTopCm = -2.54
PrintSettings.Options = [psoPortrait]
PrintSettings.PaperSize = psA4
PrintSettings.ScalingFactor = 100
PrintSettings.StartingPage = 1
PrintSettings.HorizPagebreaks = <>
PrintSettings.VertPagebreaks = <>
PrintSettings.Resolution = 0
MergedCells = <>
Options = [soGridlines, soRowColHeadings, soShowZeros]
WorkspaceOptions = [woShowAutoBreaks, woRowSumsBelow, woColSumsRight, woOutlineSymbols]
Zoom = 0
ZoomPreview = 0
RecalcFormulas = True
FixedRows = 0
FixedCols = 0
Validations = <>
DrawingObjects.Texts = <>
DrawingObjects.Notes = <>
DrawingObjects.Basics = <>
DrawingObjects.AutoShapes = <>
DrawingObjects.Pictures = <>
ControlsObjects.ListBoxes = <>
ControlsObjects.ComboBoxes = <>
ControlsObjects.Buttons = <>
Hyperlinks = <>
ConditionalFormats = <>
end>
Workbook.Left = 100
Workbook.Top = 100
Workbook.Width = 10000
Workbook.Height = 7000
Workbook.SelectedTab = 0
Workbook.Options = [woHScroll, woVScroll, woTabs]
OptionsDialog.SaveExtLinkVal = False
OptionsDialog.CalcCount = 0
OptionsDialog.CalcMode = cmAutomatic
OptionsDialog.ShowObjects = soShowAll
OptionsDialog.Iteration = False
OptionsDialog.PrecisionAsDisplayed = True
OptionsDialog.R1C1Mode = False
OptionsDialog.RecalcBeforeSave = False
OptionsDialog.Uncalced = False
OptionsDialog.SaveRecalc = False
BookProtected = False
Backup = False
RefreshAll = False
StrTRUE = 'TRUE'
StrFALSE = 'FALSE'
ShowFormulas = False
IsMac = False
PreserveMacros = True
ComponentVersion = '2.00.05'
MSOPictures = <>
Left = 404
Top = 100
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -