📄 mycalendar.dfm
字号:
Flat = True
Font.Charset = GB2312_CHARSET
Font.Color = clGray
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
OnClick = SBclick
OnDblClick = SBDlclick
end
object sb22: TSpeedButton
Left = 26
Top = 78
Width = 23
Height = 16
GroupIndex = 1
Flat = True
Font.Charset = GB2312_CHARSET
Font.Color = clGray
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
OnClick = SBclick
OnDblClick = SBDlclick
end
object sb23: TSpeedButton
Left = 50
Top = 78
Width = 23
Height = 16
GroupIndex = 1
Flat = True
Font.Charset = GB2312_CHARSET
Font.Color = clGray
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
OnClick = SBclick
OnDblClick = SBDlclick
end
object sb24: TSpeedButton
Left = 74
Top = 78
Width = 23
Height = 16
GroupIndex = 1
Flat = True
Font.Charset = GB2312_CHARSET
Font.Color = clGray
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
OnClick = SBclick
OnDblClick = SBDlclick
end
object sb25: TSpeedButton
Left = 98
Top = 78
Width = 23
Height = 16
GroupIndex = 1
Flat = True
Font.Charset = GB2312_CHARSET
Font.Color = clGray
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
OnClick = SBclick
OnDblClick = SBDlclick
end
object sb26: TSpeedButton
Left = 122
Top = 78
Width = 23
Height = 16
GroupIndex = 1
Flat = True
Font.Charset = GB2312_CHARSET
Font.Color = clGray
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
OnClick = SBclick
OnDblClick = SBDlclick
end
object sb27: TSpeedButton
Left = 146
Top = 78
Width = 23
Height = 16
GroupIndex = 1
Flat = True
Font.Charset = GB2312_CHARSET
Font.Color = clGray
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
OnClick = SBclick
OnDblClick = SBDlclick
end
object sb28: TSpeedButton
Left = 2
Top = 95
Width = 23
Height = 16
GroupIndex = 1
Flat = True
Font.Charset = GB2312_CHARSET
Font.Color = clGray
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
OnClick = SBclick
OnDblClick = SBDlclick
end
object sb29: TSpeedButton
Left = 26
Top = 95
Width = 23
Height = 16
GroupIndex = 1
Flat = True
Font.Charset = GB2312_CHARSET
Font.Color = clGray
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
OnClick = SBclick
OnDblClick = SBDlclick
end
object sb30: TSpeedButton
Left = 50
Top = 95
Width = 23
Height = 16
GroupIndex = 1
Flat = True
Font.Charset = GB2312_CHARSET
Font.Color = clGray
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
OnClick = SBclick
OnDblClick = SBDlclick
end
object sb31: TSpeedButton
Left = 74
Top = 95
Width = 23
Height = 16
GroupIndex = 1
Flat = True
Font.Charset = GB2312_CHARSET
Font.Color = clGray
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
OnClick = SBclick
OnDblClick = SBDlclick
end
object sb32: TSpeedButton
Left = 98
Top = 95
Width = 23
Height = 16
GroupIndex = 1
Flat = True
Font.Charset = GB2312_CHARSET
Font.Color = clGray
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
OnClick = SBclick
OnDblClick = SBDlclick
end
object sb33: TSpeedButton
Left = 122
Top = 95
Width = 23
Height = 16
GroupIndex = 1
Flat = True
Font.Charset = GB2312_CHARSET
Font.Color = clGray
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
OnClick = SBclick
OnDblClick = SBDlclick
end
object sb34: TSpeedButton
Left = 146
Top = 95
Width = 23
Height = 16
GroupIndex = 1
Flat = True
Font.Charset = GB2312_CHARSET
Font.Color = clGray
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
OnClick = SBclick
OnDblClick = SBDlclick
end
object sb35: TSpeedButton
Left = 2
Top = 112
Width = 23
Height = 16
GroupIndex = 1
Flat = True
Font.Charset = GB2312_CHARSET
Font.Color = clGray
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
OnClick = SBclick
OnDblClick = SBDlclick
end
object sb36: TSpeedButton
Left = 26
Top = 112
Width = 23
Height = 16
GroupIndex = 1
Flat = True
Font.Charset = GB2312_CHARSET
Font.Color = clGray
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
OnClick = SBclick
OnDblClick = SBDlclick
end
object sb37: TSpeedButton
Left = 50
Top = 112
Width = 23
Height = 16
GroupIndex = 1
Flat = True
Font.Charset = GB2312_CHARSET
Font.Color = clGray
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
OnClick = SBclick
OnDblClick = SBDlclick
end
object sb38: TSpeedButton
Left = 74
Top = 112
Width = 23
Height = 16
GroupIndex = 1
Flat = True
Font.Charset = GB2312_CHARSET
Font.Color = clGray
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
OnClick = SBclick
OnDblClick = SBDlclick
end
object sb39: TSpeedButton
Left = 98
Top = 112
Width = 23
Height = 16
GroupIndex = 1
Flat = True
Font.Charset = GB2312_CHARSET
Font.Color = clGray
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
OnClick = SBclick
OnDblClick = SBDlclick
end
object sb40: TSpeedButton
Left = 122
Top = 112
Width = 23
Height = 16
GroupIndex = 1
Flat = True
Font.Charset = GB2312_CHARSET
Font.Color = clGray
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
OnClick = SBclick
OnDblClick = SBDlclick
end
object sb41: TSpeedButton
Left = 146
Top = 112
Width = 23
Height = 16
GroupIndex = 1
Flat = True
Font.Charset = GB2312_CHARSET
Font.Color = clGray
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
OnClick = SBclick
OnDblClick = SBDlclick
end
end
object BitBtn1: TBitBtn
Left = 9
Top = 158
Width = 47
Height = 20
Caption = #20170#22825
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 1
OnClick = BitBtn1Click
end
object BitBtn2: TBitBtn
Left = 118
Top = 158
Width = 47
Height = 20
Caption = #30830#23450
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 2
OnClick = BitBtn2Click
end
object BitBtn3: TBitBtn
Left = 63
Top = 158
Width = 47
Height = 20
Caption = #28165#38500
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 3
Visible = False
OnClick = BitBtn3Click
end
object Panel1: TPanel
Left = 0
Top = 0
Width = 172
Height = 24
Align = alTop
AutoSize = True
BevelOuter = bvNone
TabOrder = 4
object SpeedButton1: TSpeedButton
Left = 1
Top = 1
Width = 23
Height = 22
Hint = #19978#19968#24180
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
0400000000000001000000000000000000001000000000000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333333333333333333333333333333333333333333333333333333333
3333333333333FF3333333333333003333333333333F77F33333333333008033
333333333F7737F333333333008880333333333F773337FFFFFF330088888000
00003F773333377777770088888888888880773FF33333FFFFF7330088888000
000033773FF33777777733330088803333333333773FF7F33333333333008033
33333333337737F3333333333333003333333333333377333333333333333333
3333333333333333333333333333333333333333333333333333333333333333
3333333333333333333333333333333333333333333333333333}
NumGlyphs = 2
ParentShowHint = False
ShowHint = True
OnClick = SpeedButton1Click
end
object SpeedButton2: TSpeedButton
Left = 147
Top = 1
Width = 23
Height = 22
Hint = #19979#19968#24180
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
0400000000000001000000000000000000001000000000000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333333333333333333333333333333333333333333333333333333333
3333333333333333333333333333333333333333333FF3333333333333003333
3333333333773FF3333333333308003333333333337F773FF333333333088800
33333FFFFF7F33773FF30000000888880033777777733333773F088888888888
88007FFFFFFF33333F7700000008888800337777777F333F7733333333088800
33333333337F3F77333333333308003333333333337F77333333333333003333
3333333333773333333333333333333333333333333333333333333333333333
3333333333333333333333333333333333333333333333333333}
NumGlyphs = 2
ParentShowHint = False
ShowHint = True
OnClick = SpeedButton2Click
end
object cmbMonth: TComboBox
Left = 23
Top = 1
Width = 83
Height = 22
Style = csOwnerDrawFixed
ItemHeight = 16
TabOrder = 0
OnChange = cmbMonthChange
Items.Strings = (
#19968#26376
#20108#26376
#19977#26376
#22235#26376
#20116#26376
#20845#26376
#19971#26376
#20843#26376
#20061#26376
#21313#26376
#21313#19968#26376
#21313#20108#26376)
end
object edtYear: TEdit
Left = 106
Top = 0
Width = 41
Height = 24
MaxLength = 4
TabOrder = 1
Text = '2004'
OnChange = edtYearChange
OnKeyPress = edtYearKeyPress
end
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -