📄 unit12.dfm
字号:
object Day_curve: TDay_curve
Left = 13
Top = -6
Width = 799
Height = 599
Caption = 'Day_curve'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Menu = MainMenu1
OldCreateOrder = False
WindowState = wsMaximized
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object Label2: TLabel
Left = 368
Top = 8
Width = 66
Height = 19
Caption = 'Label2'
Font.Charset = GB2312_CHARSET
Font.Color = clNavy
Font.Height = -19
Font.Name = #40657#20307
Font.Style = [fsBold]
ParentFont = False
end
object BitBtn1: TBitBtn
Left = 512
Top = 0
Width = 121
Height = 33
TabOrder = 0
Kind = bkClose
end
object BitBtn2: TBitBtn
Left = 672
Top = 0
Width = 113
Height = 33
TabOrder = 1
Kind = bkHelp
end
object StatusBar1: TStatusBar
Left = 0
Top = 520
Width = 791
Height = 33
Panels = <
item
Text = #28165#21326#21160#25511' '
Width = 50
end
item
Width = 50
end>
SimplePanel = False
end
object Panel1: TPanel
Left = -8
Top = 40
Width = 793
Height = 478
TabOrder = 3
object DBChart1: TDBChart
Left = 24
Top = 8
Width = 361
Height = 233
BackWall.Brush.Color = clWhite
BackWall.Brush.Style = bsClear
Gradient.Visible = True
Title.Text.Strings = (
#27700#20301'(m)')
TabOrder = 0
object Series1: TLineSeries
Marks.ArrowLength = 8
Marks.Style = smsValue
Marks.Visible = False
DataSource = Day_data.Query1
SeriesColor = clRed
ShowInLegend = False
Pointer.InflateMargins = True
Pointer.Style = psRectangle
Pointer.Visible = False
XValues.DateTime = True
XValues.Name = 'X'
XValues.Multiplier = 1
XValues.Order = loAscending
XValues.ValueSource = #36816#34892#26102#38388
YValues.DateTime = False
YValues.Name = 'Y'
YValues.Multiplier = 1
YValues.Order = loNone
YValues.ValueSource = #27700#20301
end
end
object DBChart2: TDBChart
Left = 24
Top = 248
Width = 361
Height = 233
BackWall.Brush.Color = clWhite
BackWall.Brush.Style = bsClear
Gradient.Visible = True
Title.Text.Strings = (
#27969#36895'(m/s)')
TabOrder = 1
object Series2: TLineSeries
Marks.ArrowLength = 8
Marks.Visible = False
DataSource = Day_data.Query1
SeriesColor = clRed
ShowInLegend = False
Pointer.InflateMargins = True
Pointer.Style = psRectangle
Pointer.Visible = False
XValues.DateTime = True
XValues.Name = 'X'
XValues.Multiplier = 1
XValues.Order = loAscending
XValues.ValueSource = #36816#34892#26102#38388
YValues.DateTime = False
YValues.Name = 'Y'
YValues.Multiplier = 1
YValues.Order = loNone
YValues.ValueSource = #27969#36895
end
end
object DBChart3: TDBChart
Left = 400
Top = 8
Width = 361
Height = 233
BackWall.Brush.Color = clWhite
BackWall.Brush.Style = bsClear
Gradient.Visible = True
Title.Text.Strings = (
#30636#26102#27969#37327'(t/h)')
TabOrder = 2
object Series3: TLineSeries
Marks.ArrowLength = 8
Marks.Visible = False
DataSource = Day_data.Query1
SeriesColor = clRed
ShowInLegend = False
Pointer.InflateMargins = True
Pointer.Style = psRectangle
Pointer.Visible = False
XValues.DateTime = True
XValues.Name = 'X'
XValues.Multiplier = 1
XValues.Order = loAscending
XValues.ValueSource = #36816#34892#26102#38388
YValues.DateTime = False
YValues.Name = 'Y'
YValues.Multiplier = 1
YValues.Order = loNone
YValues.ValueSource = #30636#26102#27969#37327
end
end
object DBChart4: TDBChart
Left = 400
Top = 248
Width = 361
Height = 233
BackWall.Brush.Color = clWhite
BackWall.Brush.Style = bsClear
Gradient.Visible = True
Title.Text.Strings = (
#32047#31215#27969#37327'(t)')
TabOrder = 3
object Series4: TLineSeries
Marks.ArrowLength = 8
Marks.Visible = False
DataSource = Day_data.Query1
SeriesColor = clRed
ShowInLegend = False
Pointer.InflateMargins = True
Pointer.Style = psRectangle
Pointer.Visible = False
XValues.DateTime = True
XValues.Name = 'X'
XValues.Multiplier = 1
XValues.Order = loAscending
XValues.ValueSource = #36816#34892#26102#38388
YValues.DateTime = False
YValues.Name = 'Y'
YValues.Multiplier = 1
YValues.Order = loNone
YValues.ValueSource = #32047#35745#27969#37327
end
end
end
object MainMenu1: TMainMenu
Left = 272
Top = 112
object N1: TMenuItem
Caption = #26354#32447#36873#25321
object N2S1: TMenuItem
Caption = '2D'
OnClick = N2S1Click
end
object N3D1: TMenuItem
Caption = '3D'
OnClick = N3D1Click
end
end
object N2: TMenuItem
Caption = #36864#20986
object N4: TMenuItem
Caption = #36864#20986
OnClick = N4Click
end
end
object N3: TMenuItem
Caption = #24110#21161
end
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -