datewin.dfm

具有农历功能的Delphi Builder日历控件

object FRM_Date: TFRM_Date
  Left = 568
  Top = 125
  BorderStyle = bsNone
  Caption = 'FRM_Date'
  ClientHeight = 274
  ClientWidth = 313
  Color = clWhite
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  OnCreate = FormCreate
  OnDeactivate = FormDeactivate
  OnPaint = FormPaint
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object Shape1: TShape
    Left = 0
    Top = 0
    Width = 313
    Height = 274
    Align = alClient
  end
  object Image1: TImage
    Left = 9
    Top = 56
    Width = 297
    Height = 191
  end
  object Label20: TLabel
    Left = 0
    Top = 56
    Width = 313
    Height = 72
    Alignment = taCenter
    AutoSize = False
    Caption = '2002'
    Font.Charset = ANSI_CHARSET
    Font.Color = 14543103
    Font.Height = -64
    Font.Name = 'Arial Black'
    Font.Style = []
    ParentFont = False
    Transparent = True
    Layout = tlCenter
  end
  object Label16: TLabel
    Left = 0
    Top = 98
    Width = 313
    Height = 134
    Alignment = taCenter
    AutoSize = False
    Caption = '6'
    Font.Charset = ANSI_CHARSET
    Font.Color = 15461355
    Font.Height = -120
    Font.Name = 'Arial Black'
    Font.Style = []
    ParentFont = False
    Transparent = True
    Layout = tlCenter
  end
  object Bevel2: TBevel
    Left = 9
    Top = 46
    Width = 297
    Height = 10
    Shape = bsBottomLine
  end
  object Shape2: TShape
    Left = 12
    Top = 56
    Width = 38
    Height = 30
    Brush.Color = 8512126
  end
  object Label1: TLabel
    Left = 120
    Top = 0
    Width = 76
    Height = 41
    Cursor = crHandPoint
    Hint = #21333#20987#25913#21464#24180#20221
    Alignment = taCenter
    Caption = '2002'
    Color = 15268607
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlue
    Font.Height = -29
    Font.Name = 'Arial Black'
    Font.Style = []
    ParentColor = False
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    Transparent = True
    Layout = tlCenter
    OnClick = Label1Click
  end
  object Label2: TLabel
    Left = 19
    Top = 40
    Width = 36
    Height = 12
    Alignment = taCenter
    Caption = #26143#26399#26085
    Font.Charset = GB2312_CHARSET
    Font.Color = clRed
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    Layout = tlCenter
    OnClick = Label5Click
  end
  object Label3: TLabel
    Left = 59
    Top = 40
    Width = 36
    Height = 12
    Alignment = taCenter
    Caption = #26143#26399#19968
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlack
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    Layout = tlCenter
    OnClick = Label5Click
  end
  object Label4: TLabel
    Left = 99
    Top = 40
    Width = 36
    Height = 12
    Alignment = taCenter
    Caption = #26143#26399#20108
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlack
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    Layout = tlCenter
    OnClick = Label5Click
  end
  object Label5: TLabel
    Left = 179
    Top = 40
    Width = 36
    Height = 12
    Alignment = taCenter
    Caption = #26143#26399#22235
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlack
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    Layout = tlCenter
    OnClick = Label5Click
  end
  object Label6: TLabel
    Left = 139
    Top = 40
    Width = 36
    Height = 12
    Alignment = taCenter
    Caption = #26143#26399#19977
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlack
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    Layout = tlCenter
    OnClick = Label5Click
  end
  object Label7: TLabel
    Left = 259
    Top = 40
    Width = 36
    Height = 12
    Alignment = taCenter
    Caption = #26143#26399#20845
    Font.Charset = GB2312_CHARSET
    Font.Color = clRed
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    Layout = tlCenter
    OnClick = Label5Click
  end
  object Label8: TLabel
    Left = 219
    Top = 40
    Width = 36
    Height = 12
    Alignment = taCenter
    Caption = #26143#26399#20116
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlack
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    Layout = tlCenter
    OnClick = Label5Click
  end
  object day1: TLabel
    Left = 14
    Top = 56
    Width = 36
    Height = 16
    Alignment = taCenter
    AutoSize = False
    Caption = '22'
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlack
    Font.Height = -14
    Font.Name = 'Arial Black'
    Font.Style = []
    ParentFont = False
    Transparent = True
    Layout = tlCenter
    Visible = False
  end
  object Cnday: TLabel
    Left = 13
    Top = 73
    Width = 36
    Height = 12
    Alignment = taCenter
    AutoSize = False
    Caption = #21021#19968
    Font.Charset = GB2312_CHARSET
    Font.Color = 16384
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    Transparent = True
    Layout = tlCenter
    Visible = False
  end
  object Label9: TLabel
    Left = 20
    Top = 253
    Width = 36
    Height = 12
    Alignment = taCenter
    Caption = #26143#26399#26085
    Font.Charset = GB2312_CHARSET
    Font.Color = clRed
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    Layout = tlCenter
  end
  object Label10: TLabel
    Left = 60
    Top = 253
    Width = 36
    Height = 12
    Alignment = taCenter
    Caption = #26143#26399#19968
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlack
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    Layout = tlCenter
  end
  object Label11: TLabel
    Left = 100
    Top = 253
    Width = 36
    Height = 12
    Alignment = taCenter
    Caption = #26143#26399#20108
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlack
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    Layout = tlCenter
  end
  object Label12: TLabel
    Left = 140
    Top = 253
    Width = 36
    Height = 12
    Alignment = taCenter
    Caption = #26143#26399#19977
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlack
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    Layout = tlCenter
  end
  object Label13: TLabel
    Left = 180
    Top = 253
    Width = 36
    Height = 12
    Alignment = taCenter
    Caption = #26143#26399#22235
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlack
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    Layout = tlCenter
  end
  object Label14: TLabel
    Left = 220
    Top = 253
    Width = 36
    Height = 12
    Alignment = taCenter
    Caption = #26143#26399#20116
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlack
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    Layout = tlCenter
  end
  object Label15: TLabel
    Left = 260
    Top = 253
    Width = 36
    Height = 12
    Alignment = taCenter
    Caption = #26143#26399#20845
    Font.Charset = GB2312_CHARSET
    Font.Color = clRed
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    Layout = tlCenter
  end
  object Bevel1: TBevel
    Left = 9
    Top = 240
    Width = 297
    Height = 10
    Shape = bsBottomLine
  end
  object Label17: TLabel
    Left = 10
    Top = 3
    Width = 36
    Height = 37
    Cursor = crHandPoint
    Hint = #21333#20987#25913#21464#26376#20221
    Alignment = taCenter
    Caption = '12'
    Font.Charset = ANSI_CHARSET
    Font.Color = 12615808
    Font.Height = -32
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    Transparent = True
    OnClick = Label17Click
  end
  object Label18: TLabel
    Left = 45
    Top = 20
    Width = 15
    Height = 14
    Caption = #26376
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = #23435#20307
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label19: TLabel
    Left = 205
    Top = 17
    Width = 15
    Height = 14
    Caption = #24180
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = #23435#20307
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label21: TLabel
    Left = 230
    Top = 212
    Width = 78
    Height = 35
    Alignment = taCenter
    AutoSize = False
    Caption = #26411#40857
    Font.Charset = GB2312_CHARSET
    Font.Color = 16768477
    Font.Height = -35
    Font.Name = #38582#20070
    Font.Style = [fsBold]
    ParentFont = False
    Transparent = True
  end
  object Label22: TLabel
    Left = 152
    Top = 223
    Width = 69
    Height = 23
    Alignment = taCenter
    AutoSize = False
    Caption = #26411#40857
    Font.Charset = GB2312_CHARSET
    Font.Color = 16744703
    Font.Height = -19
    Font.Name = #40657#20307
    Font.Style = [fsBold]
    ParentFont = False
    Transparent = True
  end
  object UpDown1: TUpDown
    Left = 221
    Top = 10
    Width = 16
    Height = 24
    Min = 1901
    Max = 2050
    Position = 1901
    TabOrder = 0
    Visible = False
    OnClick = UpDown1Click
  end
  object UpDown2: TUpDown
    Left = 61
    Top = 10
    Width = 16
    Height = 24
    Min = 1
    Max = 12
    Position = 12
    TabOrder = 1
    Visible = False
    OnClick = UpDown2Click
  end
  object StaticText1: TStaticText
    Left = 272
    Top = 17
    Width = 28
    Height = 16
    Cursor = crHandPoint
    Alignment = taCenter
    BorderStyle = sbsSingle
    Caption = #20170#22825
    Color = 13693646
    ParentColor = False
    TabOrder = 2
    OnClick = StaticText1Click
  end
end