?? unit1.dfm
字號:
object frmMain: TfrmMain
Left = 190
Top = 134
Width = 753
Height = 561
Caption = '溫度記錄儀數據管理系統(2.0)'
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 StatusBar: TStatusBar
Left = 0
Top = 471
Width = 1018
Height = 26
Panels = <
item
Width = 50
end
item
Width = 200
end
item
Width = 600
end>
SimplePanel = False
end
object Panel1: TPanel
Left = 0
Top = 33
Width = 785
Height = 438
Align = alLeft
Alignment = taLeftJustify
TabOrder = 1
object MSComm1: TMSComm
Left = 304
Top = 8
Width = 32
Height = 32
ControlData = {
2143341208000000ED030000ED03000001568A640000060000000100DC050000
00020000802500000000080000000000000000003F00000011000000}
end
object Chart1: TChart
Left = 1
Top = 1
Width = 783
Height = 436
BackWall.Brush.Color = clWhite
BackWall.Color = 64
Foot.Alignment = taRightJustify
Foot.Font.Charset = DEFAULT_CHARSET
Foot.Font.Color = clBlack
Foot.Font.Height = -15
Foot.Font.Name = 'Arial'
Foot.Font.Style = [fsItalic]
Foot.Text.Strings = (
'日 小時:分鐘')
LeftWall.Color = clWhite
Title.Font.Charset = DEFAULT_CHARSET
Title.Font.Color = clBlue
Title.Font.Height = -16
Title.Font.Name = 'Arial'
Title.Font.Style = []
Title.Text.Strings = (
'溫度曲線')
BackColor = 64
BottomAxis.Grid.Color = 4227072
BottomAxis.Grid.Style = psSolid
LeftAxis.Grid.Color = 4227072
LeftAxis.Grid.Style = psSolid
LeftAxis.Title.Caption = '溫度值(℃)'
LeftAxis.Title.Font.Charset = DEFAULT_CHARSET
LeftAxis.Title.Font.Color = clBlack
LeftAxis.Title.Font.Height = -13
LeftAxis.Title.Font.Name = 'Arial'
LeftAxis.Title.Font.Style = []
Legend.Visible = False
Align = alClient
ParentShowHint = False
ShowHint = False
TabOrder = 1
object Series1: TFastLineSeries
Marks.ArrowLength = 8
Marks.BackColor = 16384
Marks.Visible = False
SeriesColor = clYellow
LinePen.Color = clYellow
LinePen.Width = 2
XValues.DateTime = False
XValues.Name = 'X'
XValues.Multiplier = 1
XValues.Order = loAscending
YValues.DateTime = False
YValues.Name = 'Y'
YValues.Multiplier = 1
YValues.Order = loNone
end
object Series2: TFastLineSeries
Marks.ArrowLength = 8
Marks.Visible = False
SeriesColor = clRed
LinePen.Color = clRed
LinePen.Width = 2
XValues.DateTime = False
XValues.Name = 'X'
XValues.Multiplier = 1
XValues.Order = loAscending
YValues.DateTime = False
YValues.Name = 'Y'
YValues.Multiplier = 1
YValues.Order = loNone
end
object Series3: TFastLineSeries
Marks.ArrowLength = 8
Marks.Visible = False
SeriesColor = clWhite
LinePen.Color = clWhite
XValues.DateTime = False
XValues.Name = 'X'
XValues.Multiplier = 1
XValues.Order = loAscending
YValues.DateTime = False
YValues.Name = 'Y'
YValues.Multiplier = 1
YValues.Order = loNone
end
end
end
object Panel2: TPanel
Left = 785
Top = 33
Width = 233
Height = 438
Align = alRight
BevelInner = bvRaised
TabOrder = 2
object Panel3: TPanel
Left = 2
Top = 267
Width = 229
Height = 169
Align = alBottom
BevelInner = bvLowered
TabOrder = 0
object Label1: TLabel
Left = 16
Top = 5
Width = 16
Height = 20
Caption = '年'
Font.Charset = DEFAULT_CHARSET
Font.Color = clPurple
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label2: TLabel
Left = 64
Top = 5
Width = 16
Height = 20
Caption = '月'
Font.Charset = DEFAULT_CHARSET
Font.Color = clPurple
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label3: TLabel
Left = 112
Top = 5
Width = 16
Height = 20
Caption = '日'
Font.Charset = DEFAULT_CHARSET
Font.Color = clPurple
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label4: TLabel
Left = 152
Top = 4
Width = 32
Height = 20
Caption = '小時'
Font.Charset = DEFAULT_CHARSET
Font.Color = clPurple
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label5: TLabel
Left = 7
Top = 83
Width = 64
Height = 20
Caption = '用戶名稱'
Font.Charset = DEFAULT_CHARSET
Font.Color = clPurple
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label6: TLabel
Left = 132
Top = 83
Width = 64
Height = 20
Caption = '標準室溫'
Font.Charset = DEFAULT_CHARSET
Font.Color = clPurple
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object lblDay: TLabel
Left = 100
Top = 139
Width = 32
Height = 20
Caption = '天數'
Font.Charset = DEFAULT_CHARSET
Font.Color = clPurple
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object cmdRefresh: TButton
Left = 8
Top = 135
Width = 75
Height = 25
Caption = '刷 新'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
OnClick = cmdRefreshClick
end
object UDHour2: TUpDown
Left = 181
Top = 49
Width = 17
Height = 28
Associate = tToHour
Min = 0
Max = 23
Position = 0
TabOrder = 1
Wrap = False
end
object UDDay2: TUpDown
Left = 133
Top = 49
Width = 17
Height = 28
Associate = tToDay
Min = 1
Max = 31
Position = 1
TabOrder = 2
Wrap = False
end
object UDMonth2: TUpDown
Left = 85
Top = 49
Width = 17
Height = 28
Associate = tToMonth
Min = 1
Max = 12
Position = 1
TabOrder = 3
Wrap = False
end
object UDHour1: TUpDown
Left = 181
Top = 21
Width = 17
Height = 28
Associate = tFromHour
Min = 0
Max = 23
Position = 0
TabOrder = 4
Wrap = False
end
object UDMonth1: TUpDown
Left = 85
Top = 21
Width = 17
Height = 28
Associate = tFromMonth
Min = 1
Max = 12
Position = 1
TabOrder = 5
Wrap = False
end
object UDDay1: TUpDown
Left = 133
Top = 21
Width = 17
Height = 28
Associate = tFromDay
Min = 1
Max = 31
Position = 1
TabOrder = 6
Wrap = False
end
object UDYear1: TUpDown
Left = 37
Top = 21
Width = 17
Height = 28
Associate = tFromYear
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -