📄 main.~dfm
字号:
Height = 41
Align = alTop
BorderStyle = bsSingle
TabOrder = 3
Visible = False
object AddButton: TSpeedButton
Left = 3
Top = 3
Width = 84
Height = 31
Caption = #28155#21152#32771#39064
Flat = True
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
OnClick = AddButtonClick
end
object DelButton: TSpeedButton
Left = 96
Top = 3
Width = 84
Height = 31
Caption = #21024#38500#32771#39064
Flat = True
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
OnClick = DelButtonClick
end
object AddZGButton: TSpeedButton
Left = 286
Top = 3
Width = 126
Height = 31
Caption = #28155#21152#20027#35266#39064#31572#26696
Flat = True
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
OnClick = AddZGButtonClick
end
object EditButton: TSpeedButton
Left = 190
Top = 3
Width = 84
Height = 31
Caption = #26356#25913#39064#30446
Flat = True
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
OnClick = EditButtonClick
end
end
object ST1: TStaticText
Left = 0
Top = 41
Width = 581
Height = 20
Align = alTop
Alignment = taCenter
BevelKind = bkFlat
BevelOuter = bvRaised
BorderStyle = sbsSunken
Caption = #20027#35266#39064#31572#26696
Color = clWhite
Constraints.MinHeight = 20
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
ParentColor = False
ParentFont = False
TabOrder = 4
end
object TStaticText
Left = 0
Top = 109
Width = 581
Height = 20
Align = alTop
Alignment = taCenter
BevelKind = bkFlat
BevelOuter = bvRaised
BorderStyle = sbsSunken
Caption = #39064#30446
Color = clWhite
Constraints.MinHeight = 20
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
ParentColor = False
ParentFont = False
TabOrder = 5
end
end
object TabSheet3: TTabSheet
Caption = #25277#21367#25805#20316
ImageIndex = 5
object OkButton: TSpeedButton
Left = 248
Top = 56
Width = 153
Height = 41
Caption = #30830#23450#25277#39064
Flat = True
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
555555555555555555555555555555555555555555FF55555555555559055555
55555555577FF5555555555599905555555555557777F5555555555599905555
555555557777FF5555555559999905555555555777777F555555559999990555
5555557777777FF5555557990599905555555777757777F55555790555599055
55557775555777FF5555555555599905555555555557777F5555555555559905
555555555555777FF5555555555559905555555555555777FF55555555555579
05555555555555777FF5555555555557905555555555555777FF555555555555
5990555555555555577755555555555555555555555555555555}
NumGlyphs = 2
ParentFont = False
OnClick = OkButtonClick
end
object GR1: TGroupBox
Left = 16
Top = 40
Width = 157
Height = 64
Caption = #21367#23376#25968#30446
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 0
object StuCountEdit: TSpinEdit
Left = 8
Top = 25
Width = 140
Height = 33
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -23
Font.Name = #23435#20307
Font.Style = []
MaxValue = 100
MinValue = 1
ParentFont = False
TabOrder = 0
Value = 10
end
end
object Panel2: TPanel
Left = 14
Top = 112
Width = 411
Height = 99
AutoSize = True
BevelOuter = bvNone
Ctl3D = True
ParentCtl3D = False
TabOrder = 1
object LeftTopL: TLabel
Left = 0
Top = 0
Width = 49
Height = 96
Caption = 'L'
Font.Charset = GB2312_CHARSET
Font.Color = clWhite
Font.Height = -96
Font.Name = #40657#20307
Font.Style = [fsBold]
ParentFont = False
Transparent = True
end
object RightBottomL: TLabel
Left = 3
Top = 3
Width = 49
Height = 96
Caption = 'L'
Font.Charset = GB2312_CHARSET
Font.Color = clGray
Font.Height = -96
Font.Name = #40657#20307
Font.Style = [fsBold]
ParentFont = False
Transparent = True
end
object PB1: TProgressBar
Left = 1
Top = 1
Width = 410
Height = 89
Min = 0
Max = 100
Smooth = True
Step = 1
TabOrder = 0
end
end
end
object RateSheet: TTabSheet
Caption = #35797#39064#36873#25321#27604#20363
ImageIndex = 1
object SelRateShow: TGauge
Left = 0
Top = 104
Width = 581
Height = 115
Align = alClient
BorderStyle = bsNone
ForeColor = clBlue
Font.Charset = GB2312_CHARSET
Font.Color = clFuchsia
Font.Height = -21
Font.Name = #23435#20307
Font.Style = [fsBold]
Kind = gkPie
ParentFont = False
Progress = 0
end
object TPanel
Left = 0
Top = 0
Width = 581
Height = 104
Align = alTop
BevelInner = bvLowered
TabOrder = 0
object RateLabel: TLabel
Left = 2
Top = 2
Width = 32
Height = 29
Align = alTop
Alignment = taCenter
Caption = '%0'
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -29
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object SB1: TSpeedButton
Left = 185
Top = 70
Width = 145
Height = 28
Caption = #30830' '#23450
Flat = True
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
555555555555555555555555555555555555555555FF55555555555559055555
55555555577FF5555555555599905555555555557777F5555555555599905555
555555557777FF5555555559999905555555555777777F555555559999990555
5555557777777FF5555557990599905555555777757777F55555790555599055
55557775555777FF5555555555599905555555555557777F5555555555559905
555555555555777FF5555555555559905555555555555777FF55555555555579
05555555555555777FF5555555555557905555555555555777FF555555555555
5990555555555555577755555555555555555555555555555555}
NumGlyphs = 2
OnClick = SB1Click
end
object RateTB: TTrackBar
Left = 2
Top = 31
Width = 577
Height = 35
Align = alTop
LineSize = 3
Max = 100
Orientation = trHorizontal
PageSize = 1
Frequency = 1
Position = 0
SelEnd = 0
SelStart = 0
TabOrder = 0
ThumbLength = 30
TickMarks = tmBottomRight
TickStyle = tsNone
OnChange = RateTBChange
end
end
end
end
end
end
object TabSheet2: TTabSheet
Caption = #23398#29983#31649#29702
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -