calend.dfm

该程序是一个日历小软件

object calen: Tcalen
  Left = 192
  Top = 114
  BorderStyle = bsToolWindow
  Caption = #26085#21382
  ClientHeight = 307
  ClientWidth = 524
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {
    0000010001002020000000000000A80800001600000028000000200000004000
    000001000800000000000004000000000000000000000000000000000000A791
    910051262600350202004C1F1F00FEFEFE00785656003D0D0D00F0ECEC009F87
    8700AF9B9B00572D2D00C9BBBB0036040400EBE6E600FCFBFB0037050500E6E0
    E00050242400F9F8F800FDFCFC005328280047191900E9E4E40077555500A690
    9000C0B0B000491C1C00653F3F00795757004517170052272700441515003F0F
    0F004D202000674141003A0909004D21210035030300F2EFEF00DDD5D500DFD7
    D7009B828200EDE8E800E2DBDB006038380091767600FAF9F9007D5C5C00EFEB
    EB00704C4C007C5B5B00FDFDFD00B7A5A500DBD2D200F1EDED003C0B0B00E9E3
    E30041111100582E2E0068424200795858005D343400D4C9C900A08888006640
    400081616100633C3C00B29F9F00724F4F00A9939300B5A3A3008B6E6E005429
    29004B1E1E003D0C0C00D2C7C700390707006A4545008D707000E5DFDF00E1D9
    D9008263630083646400AD999900CFC3C300E8E2E200BEAEAE007F5F5F00A58E
    8E00B19E9E00E5DEDE009A818100AD989800A99494004A1D1D00401010006F4B
    4B00D1C6C60094797900B09C9C00623B3B003B0A0A0039080800411212004F23
    2300AC979700A8929200BBAAAA0084656500F6F4F400BAA9A900592F2F00613A
    3A00ECE7E70059303000B9A7A700CEC2C200E3DCDC00F9F7F700B6A4A400F8F6
    F600A28B8B003401010085676700BDACAC00C8BABA00EEEAEA006E4A4A00886A
    6A0043141400EAE5E50033000000FFFFFF000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000008585
    8585858585858585858585858585858585858585858585858585858585858585
    8585858585858585858585858585858585858585858585858585858585858585
    8585858585858585857979858585858585858585858585858585858585858585
    858585858585858585854A176185858585858585858585858585858585858585
    858585851963797919856283830A0547297979797979797979790B8585858585
    8585290A258383832546851783838383838383838383838383830A8585858585
    852F838383838383832562852D25838383838383838383838383258585858585
    5D838383838383838383830A795D172525258383838383838383832985858585
    3D83838383838383815E5E4A25813B0570682583251A5E5E5E5E1A5285858585
    6883838383838351858585857C608383838383830F4685858585858585858585
    6883838383836885858585858585178383838383832F85858585858585858585
    5E83838383833D85858585858585854A83838383832585858585858585858585
    3D83838383834A85858585858585851783838383838379858585858585858585
    2D83838383838309858585858585854683838383838342858585858585858585
    0B8383838383836085858585858585851A8383838383813E8585858585858585
    851A83838383834A8585858585858585178383838383255D8585858585858585
    852F8383838383257C8585858585858579838383838383178585858585858585
    855D8383838383832F85858585858585854A8383838383818585858585858585
    85858183838383836885858585858585853D8383838383837C85858585858585
    85854D8383838383251985858585858585628383838383835285858585858585
    8585798383838383832D85858585858585548383838383836885858585858585
    8585850F83838383835E85858585858585856883838383834A3E858585858585
    858585608383838383835D858585858585852F83838383832546858585858585
    85858546838383838383677C8585858585540A83838383838329858585858585
    858585855E838383838383253D4242424281838383838383835D858585858585
    8585858509838383838383838383838383838383838383834A85858585858585
    8585858585808383838383838383838383838383838383256A85858585858585
    858585858585090A258383838383838383838383834A42198585858585858585
    858585858585858529176868686868686868114D524685858585858585858585
    8585858585858585858585858585858585858585858585858585858585858585
    8585858585858585858585858585858585858585858585858585858585858585
    858585858585858585858585858585858585858585858585858585858585FFFF
    FFFFFFFFFFFFFFE7FFFFFFF1FFFFFC100007F0080007E0040007C0000003C000
    0003C03C00FFC07F00FFC07F80FFC07F807FC03F807FC03FC03FE03FC03FE01F
    C03FE01FE03FF01FE01FF00FE01FF00FE01FF80FF00FF807F00FF803E00FFC00
    000FFC00001FFE00001FFF00003FFFC000FFFFFFFFFFFFFFFFFFFFFFFFFF}
  Menu = MainMenu1
  OldCreateOrder = False
  Position = poScreenCenter
  OnActivate = FormActivate
  OnCreate = FormCreate
  OnDblClick = FormDblClick
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 432
    Top = 192
    Width = 6
    Height = 24
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -24
    Font.Name = #21326#25991#38582#20070
    Font.Style = []
    ParentFont = False
  end
  object Label2: TLabel
    Left = 424
    Top = 33
    Width = 36
    Height = 13
    Caption = #24180#20221#65306
  end
  object Label3: TLabel
    Left = 424
    Top = 73
    Width = 36
    Height = 13
    Caption = #26376#20221#65306
  end
  object Label4: TLabel
    Left = 424
    Top = 113
    Width = 36
    Height = 13
    Caption = #26085#26399#65306
  end
  object Calendar1: TCalendar
    Left = 8
    Top = 8
    Width = 401
    Height = 273
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'Algerian'
    Font.Style = [fsUnderline]
    ParentFont = False
    StartOfWeek = 0
    TabOrder = 8
    OnChange = Calendar1Change
  end
  object sb: TStatusBar
    Left = 0
    Top = 288
    Width = 524
    Height = 19
    Panels = <
      item
        Width = 325
      end
      item
        Text = #33258#21046#23567#26085#21382
        Width = 50
      end>
  end
  object Edit2: TEdit
    Left = 464
    Top = 65
    Width = 49
    Height = 21
    TabOrder = 1
    OnChange = Edit2Change
  end
  object Edit3: TEdit
    Left = 464
    Top = 105
    Width = 49
    Height = 21
    TabOrder = 2
    OnChange = Edit3Change
  end
  object Edit4: TEdit
    Left = 424
    Top = 160
    Width = 89
    Height = 21
    Enabled = False
    TabOrder = 3
    Text = #31995#32479#24403#21069#30340#26102#38388
  end
  object SpinButton2: TSpinButton
    Left = 494
    Top = 67
    Width = 17
    Height = 17
    DownGlyph.Data = {
      0E010000424D0E01000000000000360000002800000009000000060000000100
      200000000000D800000000000000000000000000000000000000008080000080
      8000008080000080800000808000008080000080800000808000008080000080
      8000008080000080800000808000000000000080800000808000008080000080
      8000008080000080800000808000000000000000000000000000008080000080
      8000008080000080800000808000000000000000000000000000000000000000
      0000008080000080800000808000000000000000000000000000000000000000
      0000000000000000000000808000008080000080800000808000008080000080
      800000808000008080000080800000808000}
    TabOrder = 4
    UpGlyph.Data = {
      0E010000424D0E01000000000000360000002800000009000000060000000100
      200000000000D800000000000000000000000000000000000000008080000080
      8000008080000080800000808000008080000080800000808000008080000080
      8000000000000000000000000000000000000000000000000000000000000080
      8000008080000080800000000000000000000000000000000000000000000080
      8000008080000080800000808000008080000000000000000000000000000080
      8000008080000080800000808000008080000080800000808000000000000080
      8000008080000080800000808000008080000080800000808000008080000080
      800000808000008080000080800000808000}
    OnDownClick = SpinButton2DownClick
    OnUpClick = SpinButton2UpClick
  end
  object SpinButton3: TSpinButton
    Left = 497
    Top = 107
    Width = 15
    Height = 17
    DownGlyph.Data = {
      0E010000424D0E01000000000000360000002800000009000000060000000100
      200000000000D800000000000000000000000000000000000000008080000080
      8000008080000080800000808000008080000080800000808000008080000080
      8000008080000080800000808000000000000080800000808000008080000080
      8000008080000080800000808000000000000000000000000000008080000080
      8000008080000080800000808000000000000000000000000000000000000000
      0000008080000080800000808000000000000000000000000000000000000000
      0000000000000000000000808000008080000080800000808000008080000080
      800000808000008080000080800000808000}
    TabOrder = 5
    UpGlyph.Data = {
      0E010000424D0E01000000000000360000002800000009000000060000000100
      200000000000D800000000000000000000000000000000000000008080000080
      8000008080000080800000808000008080000080800000808000008080000080
      8000000000000000000000000000000000000000000000000000000000000080
      8000008080000080800000000000000000000000000000000000000000000080
      8000008080000080800000808000008080000000000000000000000000000080
      8000008080000080800000808000008080000080800000808000000000000080
      8000008080000080800000808000008080000080800000808000008080000080
      800000808000008080000080800000808000}
    OnDownClick = SpinButton3DownClick
    OnUpClick = SpinButton3UpClick
  end
  object BitBtn1: TBitBtn
    Left = 432
    Top = 240
    Width = 75
    Height = 25
    Caption = #26597#35810#26102#38388
    TabOrder = 6
    OnClick = BitBtn1Click
  end
  object Edit1: TEdit
    Left = 464
    Top = 25
    Width = 49
    Height = 21
    TabOrder = 0
    OnChange = Edit1Change
  end
  object SpinButton1: TSpinButton
    Left = 494
    Top = 27
    Width = 17
    Height = 17
    DownGlyph.Data = {
      0E010000424D0E01000000000000360000002800000009000000060000000100
      200000000000D800000000000000000000000000000000000000008080000080
      8000008080000080800000808000008080000080800000808000008080000080
      8000008080000080800000808000000000000080800000808000008080000080
      8000008080000080800000808000000000000000000000000000008080000080
      8000008080000080800000808000000000000000000000000000000000000000
      0000008080000080800000808000000000000000000000000000000000000000
      0000000000000000000000808000008080000080800000808000008080000080
      800000808000008080000080800000808000}
    TabOrder = 9
    UpGlyph.Data = {
      0E010000424D0E01000000000000360000002800000009000000060000000100
      200000000000D800000000000000000000000000000000000000008080000080
      8000008080000080800000808000008080000080800000808000008080000080
      8000000000000000000000000000000000000000000000000000000000000080
      8000008080000080800000000000000000000000000000000000000000000080
      8000008080000080800000808000008080000000000000000000000000000080
      8000008080000080800000808000008080000080800000808000000000000080
      8000008080000080800000808000008080000080800000808000008080000080
      800000808000008080000080800000808000}
    OnDownClick = SpinButton1DownClick
    OnUpClick = SpinButton1UpClick
  end
  object MainMenu1: TMainMenu
    AutoHotkeys = maManual
    Left = 128
    Top = 240
    object N1: TMenuItem
      Caption = #25805#20316'(&C)'
      object Q1: TMenuItem
        AutoHotkeys = maManual
        Caption = #26597#35810
        RadioItem = True
        ShortCut = 16465
        OnClick = BitBtn1Click
      end
      object zht: TMenuItem
        AutoLineReduction = maAutomatic
        Caption = #29366#24577#26639
        ShortCut = 16468
        OnClick = zhtClick
      end
      object N3: TMenuItem
        Caption = #31383#21475#22987#32456#22312#21069
        ShortCut = 16454
        OnClick = N3Click
      end
    end
    object Version1: TMenuItem
      Caption = '&Version'
      OnClick = Version1Click
    end
    object Exit1: TMenuItem
      Caption = '&Exit'
      OnClick = Exit1Click
    end
    object Other1: TMenuItem
      Caption = '&Other'
      object N2: TMenuItem
        Caption = #36830#36830#30475
        ShortCut = 16460
        OnClick = N2Click
      end
      object PhotoShopCS1: TMenuItem
        Caption = 'PhotoShop CS'
        ShortCut = 16464
      end
      object N20051: TMenuItem
        Caption = #37329#23665#35789#38712'2005'
        ShortCut = 16458
        OnClick = N20051Click
      end
      object N4: TMenuItem
        Caption = #20248#21270#22823#24072
        ShortCut = 16473
        OnClick = N4Click
      end
      object KV20051: TMenuItem
        Caption = #27743#27665#26432#27602
        ShortCut = 16459
        OnClick = KV20051Click
      end
    end
  end
  object Timer1: TTimer
    Interval = 10
    OnTimer = Timer1Timer
    Left = 88
    Top = 240
  end
end