⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 calendf.dfm

📁 农历公历转换组件,可以进行公历转农历,支干历,农历转公历的转换
💻 DFM
📖 第 1 页 / 共 2 页
字号:
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentCtl3D = False
    ParentFont = False
    TabOrder = 1
    DesignSize = (
      277
      171)
    object Label4: TLabel
      Left = 5
      Top = 66
      Width = 70
      Height = 16
      AutoSize = False
      Caption = #20844'        '#21382':'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clMaroon
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label5: TLabel
      Left = 5
      Top = 39
      Width = 70
      Height = 16
      AutoSize = False
      Caption = #20892'        '#21382':'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clMaroon
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label6: TLabel
      Left = 5
      Top = 91
      Width = 70
      Height = 16
      AutoSize = False
      Caption = #24178'  '#25903'  '#21382':'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clMaroon
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label8: TLabel
      Left = 5
      Top = 116
      Width = 70
      Height = 16
      AutoSize = False
      Caption = #20844#21382#33410#26085':'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clMaroon
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label10: TLabel
      Left = 5
      Top = 143
      Width = 70
      Height = 16
      AutoSize = False
      Caption = #20892#21382#33410#26085':'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clMaroon
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object SpinEdit4: TSpinEdit
      Left = 81
      Top = 36
      Width = 57
      Height = 22
      Anchors = []
      AutoSize = False
      Ctl3D = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clMaroon
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      MaxValue = 2500
      MinValue = 1900
      ParentColor = True
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 0
      Value = 2004
      OnKeyDown = SpinEdit4KeyDown
    end
    object SpinEdit5: TSpinEdit
      Left = 138
      Top = 36
      Width = 39
      Height = 22
      AutoSize = False
      Ctl3D = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clMaroon
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      MaxValue = 12
      MinValue = 1
      ParentColor = True
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 1
      Value = 9
      OnKeyDown = SpinEdit4KeyDown
    end
    object SpinEdit6: TSpinEdit
      Left = 177
      Top = 36
      Width = 39
      Height = 22
      AutoSize = False
      Ctl3D = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clMaroon
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      MaxValue = 32
      MinValue = 1
      ParentColor = True
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 2
      Value = 10
      OnKeyDown = SpinEdit4KeyDown
    end
    object Edit3: TEdit
      Left = 81
      Top = 65
      Width = 136
      Height = 19
      AutoSelect = False
      AutoSize = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clMaroon
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentColor = True
      ParentFont = False
      ReadOnly = True
      TabOrder = 4
    end
    object Edit7: TEdit
      Left = 81
      Top = 91
      Width = 136
      Height = 19
      AutoSelect = False
      AutoSize = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clMaroon
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentColor = True
      ParentFont = False
      ReadOnly = True
      TabOrder = 5
    end
    object Edit8: TEdit
      Left = 221
      Top = 64
      Width = 46
      Height = 19
      AutoSelect = False
      AutoSize = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clMaroon
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentColor = True
      ParentFont = False
      ReadOnly = True
      TabOrder = 6
    end
    object Edit9: TEdit
      Left = 221
      Top = 91
      Width = 46
      Height = 19
      AutoSelect = False
      AutoSize = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clMaroon
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentColor = True
      ParentFont = False
      ReadOnly = True
      TabOrder = 7
    end
    object Edit10: TEdit
      Left = 221
      Top = 35
      Width = 46
      Height = 22
      AutoSelect = False
      AutoSize = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clMaroon
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentColor = True
      ParentFont = False
      ReadOnly = True
      TabOrder = 3
    end
    object CheckBox1: TCheckBox
      Left = 219
      Top = 15
      Width = 46
      Height = 19
      Caption = #38384#26376
      Ctl3D = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clMaroon
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 8
      OnClick = CheckBox1Click
    end
    object Edit13: TEdit
      Left = 81
      Top = 116
      Width = 186
      Height = 19
      AutoSelect = False
      AutoSize = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clMaroon
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentColor = True
      ParentFont = False
      ReadOnly = True
      TabOrder = 9
    end
    object Edit14: TEdit
      Left = 81
      Top = 142
      Width = 187
      Height = 19
      AutoSelect = False
      AutoSize = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clMaroon
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentColor = True
      ParentFont = False
      ReadOnly = True
      TabOrder = 10
    end
  end
  object CheckBox2: TCheckBox
    Left = 48
    Top = 344
    Width = 193
    Height = 17
    Caption = #24178#25903#21382#20197#20892#21382#24180#26376#20026#22522#20934
    Font.Charset = CHINESEBIG5_CHARSET
    Font.Color = clBlue
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    OnClick = CheckBox2Click
  end
  object TransDate1: TTransDate
    BookOfChanges = False
    MaxMonthDays = 30
    LunarDate.MaxMonthDays = 29
    LunarDate.lYear = 2004
    LunarDate.lMonth = 9
    LunarDate.lDay = 21
    LunarDate.FlagLeapMonth = False
    ISO8601 = False
    Date = 38294.000000000000000000
    LeapMonth = False
    Left = 145
    Top = 82
  end
  object TransDate2: TTransDate
    BookOfChanges = False
    MaxMonthDays = 30
    LunarDate.MaxMonthDays = 29
    LunarDate.lYear = 2004
    LunarDate.lMonth = 9
    LunarDate.lDay = 21
    LunarDate.FlagLeapMonth = False
    ISO8601 = False
    Date = 38294.000000000000000000
    LeapMonth = False
    OnChange = TransDate2Change
    Left = 146
    Top = 264
  end
end

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -