unit1.~dfm

一个含有农历的Delphi 源码

object Form1: TForm1
  Left = 126
  Top = 80
  Width = 544
  Height = 426
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  DesignSize = (
    536
    399)
  PixelsPerInch = 96
  TextHeight = 13
  object btnNextYear: TSpeedButton
    Left = 271
    Top = 15
    Width = 20
    Height = 20
    Hint = #19979#19968#24180
    Glyph.Data = {
      DE000000424DDE0000000000000076000000280000000D0000000D0000000100
      0400000000006800000000000000000000001000000010000000000000000000
      BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777077777
      7000777770607777700077770666077770007770660660777000770660606607
      7000700006660000700077706666607770007706666666077000700006660000
      7000777706660777700077770666077770007777066607777000777700000777
      7000}
    ParentShowHint = False
    ShowHint = True
    OnClick = btnNextYearClick
  end
  object SpeedButton3: TSpeedButton
    Left = 251
    Top = 15
    Width = 20
    Height = 20
    Hint = #19979#19968#26376
    Glyph.Data = {
      DE000000424DDE0000000000000076000000280000000D0000000D0000000100
      0400000000006800000000000000000000001000000010000000000000000000
      BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
      7000777777777777700077777707777770007777706077777000777706660777
      7000777066666077700077066666660770007000066600007000777706660777
      7000777706660777700077770666077770007777000007777000777777777777
      7000}
    ParentShowHint = False
    ShowHint = True
    OnClick = SpeedButton3Click
  end
  object btnPrevMonth: TSpeedButton
    Left = 71
    Top = 15
    Width = 20
    Height = 20
    Hint = #19978#19968#26376
    Glyph.Data = {
      DE000000424DDE0000000000000076000000280000000D0000000D0000000100
      0400000000006800000000000000000000001000000010000000000000000000
      BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
      7000777777777777700077770000077770007777066607777000777706660777
      7000777706660777700070000666000070007706666666077000777066666077
      7000777706660777700077777060777770007777770777777000777777777777
      7000}
    ParentShowHint = False
    ShowHint = True
    OnClick = btnPrevMonthClick
  end
  object btnPrevYear: TSpeedButton
    Left = 51
    Top = 15
    Width = 20
    Height = 20
    Hint = #19978#19968#24180
    Glyph.Data = {
      DE000000424DDE0000000000000076000000280000000D0000000D0000000100
      0400000000006800000000000000000000001000000010000000000000000000
      BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777700000777
      7000777706660777700077770666077770007777066607777000700006660000
      7000770666666607700077706666607770007000066600007000770660606607
      7000777066066077700077770666077770007777706077777000777777077777
      7000}
    ParentShowHint = False
    ShowHint = True
    OnClick = btnPrevYearClick
  end
  object TitleLabel: TLabel
    Left = 16
    Top = 338
    Width = 209
    Height = 23
    Alignment = taCenter
    AutoSize = False
    Caption = 'dingk'
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlue
    Font.Height = -14
    Font.Name = #23435#20307
    Font.Style = [fsBold]
    ParentFont = False
    Transparent = True
  end
  object TitleLabel2: TLabel
    Left = 0
    Top = 365
    Width = 209
    Height = 23
    Alignment = taCenter
    AutoSize = False
    Caption = 'February, 1995'
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlue
    Font.Height = -14
    Font.Name = #23435#20307
    Font.Style = [fsBold]
    ParentFont = False
    Transparent = True
  end
  object Calendar1: ThxCalendar
    Left = 16
    Top = 48
    Width = 489
    Height = 281
    StartOfWeek = 0
    TabOrder = 0
  end
  object StaticText3: TStaticText
    Left = 223
    Top = 22
    Width = 23
    Height = 23
    Anchors = [akLeft]
    Caption = #26376
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -19
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 1
  end
  object SpinEdit2: TSpinEdit
    Left = 179
    Top = 12
    Width = 41
    Height = 26
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    MaxLength = 2
    MaxValue = 12
    MinValue = 1
    ParentFont = False
    TabOrder = 2
    Value = 10
    OnChange = SpinEdit2Change
  end
  object SpinEdit1: TSpinEdit
    Left = 99
    Top = 12
    Width = 57
    Height = 26
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    MaxLength = 4
    MaxValue = 2099
    MinValue = 1
    ParentFont = False
    TabOrder = 3
    Value = 2002
    OnChange = SpinEdit1Change
  end
  object BitBtn1: TBitBtn
    Left = 296
    Top = 357
    Width = 81
    Height = 23
    Caption = #36820#22238#24403#26085
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clRed
    Font.Height = -15
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 4
    OnClick = BitBtn1Click
  end
end