unit1.dfm

上课小作业,一个小小的日历

object Form1: TForm1
  Left = 189
  Top = 106
  Width = 436
  Height = 292
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 312
    Top = 176
    Width = 81
    Height = 24
    Caption = #31995#32479#26102#38388
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clMaroon
    Font.Height = -19
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Button1: TButton
    Left = 312
    Top = 216
    Width = 97
    Height = 25
    Caption = #26597#35810#26102#38388
    TabOrder = 0
    OnClick = Button1Click
  end
  object Edit1: TEdit
    Left = 312
    Top = 136
    Width = 97
    Height = 21
    ReadOnly = True
    TabOrder = 1
    Text = #31995#32479#24403#21069#30340#26102#38388
  end
  object Edit2: TEdit
    Left = 312
    Top = 16
    Width = 81
    Height = 21
    Enabled = False
    TabOrder = 2
    Text = #28165#36755#20837#24180#20221
    OnChange = Edit2Change
  end
  object Edit3: TEdit
    Left = 312
    Top = 56
    Width = 81
    Height = 21
    Enabled = False
    TabOrder = 3
    Text = #28165#36755#20837#26376#20221
    OnChange = Edit3Change
  end
  object Edit4: TEdit
    Left = 312
    Top = 96
    Width = 81
    Height = 21
    Enabled = False
    TabOrder = 4
    Text = #28165#36755#20837#26085#26399
    OnChange = Edit4Change
  end
  object SpinButton1: TSpinButton
    Left = 392
    Top = 16
    Width = 20
    Height = 25
    DownGlyph.Data = {
      DE000000424DDE00000000000000360000002800000009000000060000000100
      180000000000A800000000000000000000000000000000000000008080008080
      0080800080800080800080800080800080800080800000808000808000808000
      8080000000008080008080008080008080000080800080800080800000000000
      0000000000808000808000808000008080008080000000000000000000000000
      0000000080800080800000808000000000000000000000000000000000000000
      0000008080000080800080800080800080800080800080800080800080800080
      8000}
    Enabled = False
    TabOrder = 5
    UpGlyph.Data = {
      DE000000424DDE00000000000000360000002800000009000000060000000100
      180000000000A800000000000000000000000000000000000000008080008080
      0080800080800080800080800080800080800080800200808000000000000000
      0000000000000000000000000000008080000080800080800000000000000000
      0000000000000000808000808002008080008080008080000000000000000000
      0080800080800080800200808000808000808000808000000000808000808000
      8080008080000080800080800080800080800080800080800080800080800080
      8003}
    OnDownClick = SpinButton1DownClick
    OnUpClick = SpinButton1UpClick
  end
  object SpinButton2: TSpinButton
    Left = 392
    Top = 56
    Width = 20
    Height = 25
    DownGlyph.Data = {
      DE000000424DDE00000000000000360000002800000009000000060000000100
      180000000000A800000000000000000000000000000000000000008080008080
      0080800080800080800080800080800080800080800100808000808000808000
      8080000000008080008080008080008080000080800080800080800000000000
      0000000000808000808000808001008080008080000000000000000000000000
      0000000080800080808100808000000000000000000000000000000000000000
      0000008080000080800080800080800080800080800080800080800080800080
      8001}
    Enabled = False
    TabOrder = 6
    UpGlyph.Data = {
      DE000000424DDE00000000000000360000002800000009000000060000000100
      180000000000A800000000000000000000000000000000000000008080008080
      0080800080800080800080800080800080800080800100808000000000000000
      0000000000000000000000000000008080010080800080800000000000000000
      0000000000000000808000808001008080008080008080000000000000000000
      008080008080008080A000808000808000808000808000000000808000808000
      8080008080020080800080800080800080800080800080800080800080800080
      8002}
    OnDownClick = SpinButton2DownClick
    OnUpClick = SpinButton2UpClick
  end
  object SpinButton3: TSpinButton
    Left = 392
    Top = 96
    Width = 20
    Height = 25
    DownGlyph.Data = {
      DE000000424DDE00000000000000360000002800000009000000060000000100
      180000000000A800000000000000000000000000000000000000008080008080
      0080800080800080800080800080800080800080800100808000808000808000
      8080000000008080008080008080008080010080800080800080800000000000
      0000000000808000808000808001008080008080000000000000000000000000
      000000008080008080A000808000000000000000000000000000000000000000
      0000008080020080800080800080800080800080800080800080800080800080
      8000}
    Enabled = False
    TabOrder = 7
    UpGlyph.Data = {
      DE000000424DDE00000000000000360000002800000009000000060000000100
      180000000000A800000000000000000000000000000000000000008080008080
      0080800080800080800080800080800080800080800000808000000000000000
      0000000000000000000000000000008080010080800080800000000000000000
      0000000000000000808000808000008080008080008080000000000000000000
      0080800080800080800100808000808000808000808000000000808000808000
      8080008080010080800080800080800080800080800080800080800080800080
      8002}
    OnDownClick = SpinButton3DownClick
    OnUpClick = SpinButton3UpClick
  end
  object Calendar1: TCalendar
    Left = 8
    Top = 16
    Width = 289
    Height = 233
    Color = clYellow
    Enabled = False
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clRed
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold, fsUnderline]
    GridLineWidth = 2
    ParentFont = False
    ReadOnly = True
    StartOfWeek = 0
    TabOrder = 8
    OnChange = Calendar1Change
  end
  object Timer1: TTimer
    Enabled = False
    OnTimer = Timer1Timer
    Left = 400
    Top = 168
  end
end