unit3.dfm

这是一个电子记事本.你可以选择日子的背景,可以选择日期,可以在一边写日记,一边听歌.写完日子可以统计字数

object text: Ttext
  Left = 207
  Top = 113
  Width = 797
  Height = 557
  Caption = #21704#21704#26085#35760#26412
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {
    0000010001002020100001000400E80200001600000028000000200000004000
    0000010004000000000000000000000000000000000000000000000000000000
    0000000080000080000000808000800000008000800080800000C0C0C0008080
    80000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
    000070007777777000000000000000000007700F0007777777AAAA0000000000
    00070100FFF00077AA777AA0000000000007011100FFFF0AA07777A700000000
    007701111100FFAAFF000AA77000000000701111111100AF00FFFA0077000000
    07701111111111A00F00AAFF0000000007011111111111A110AA00FFF0000000
    07011111111111A11AA00F000000000077011111111111A1AA11100F00000000
    70111111111111A1A11111000000000070111111111111A1A11110F000000007
    70111111111111A1A11110F00000000701111111111111A1A111100000000007
    01111111111111AAAA110F0000000077011111111111111A11AAAF0000000070
    111111111111111AA110AAA0000000701111100011111111AA10F0AAA0000770
    11110FFF001111111AA000000AA007011110FFF0FF00111111AA000000A07701
    1110F0FFFF0F0111110AA00000A0701111100FF00FFF01111100AA0000A07011
    1111100FF0FF011110F0000000007011111111100FF0111110F000FFFF000111
    111111111000111110000FFFCFF0011111111111111111110F000FFCFFF00000
    111111111111111100000FFCFFF000000001111111111110F00000FCFF000000
    0000001111111110F00000000000000000000000001111100000007777000000
    000000000000010000000007070000000000000000000000000000000000FF00
    1FFFFE00003FFE00001FFE00000FFC000007FC000003F8000003F8000003F800
    0007F0000007F000000FF000000FE000000FE000001FE000001FC000001FC000
    001FC0000007800000798000007D0000007D0000000100000081000000000000
    01000000010080000300F0000381FE0003C3FFC007C3FFFC1FC3FFFF9FFF}
  Menu = MainMenu1
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 584
    Top = 56
    Width = 201
    Height = 417
    TabOrder = 0
    object Label1: TLabel
      Left = 16
      Top = 216
      Width = 66
      Height = 13
      Caption = '   '#20013#25991#23383#31526'   '
    end
    object Label2: TLabel
      Left = 16
      Top = 184
      Width = 78
      Height = 13
      Caption = '    '#33521#25991#23383#31526'      '
    end
    object Label3: TLabel
      Left = 16
      Top = 248
      Width = 75
      Height = 13
      Caption = '   '#25991#31456#23383#25968'      '
    end
    object Label4: TLabel
      Left = 16
      Top = 280
      Width = 66
      Height = 13
      Caption = #35745#31639#32467#26524'      '
    end
    object RadioGroup1: TRadioGroup
      Left = 16
      Top = 88
      Width = 153
      Height = 81
      Caption = #22825#27668
      Columns = 2
      Items.Strings = (
        #26228
        #38632
        #38452
        #38634)
      TabOrder = 0
      OnClick = RadioGroup1Click
    end
    object DateTimePicker1: TDateTimePicker
      Left = 32
      Top = 24
      Width = 145
      Height = 25
      Date = 38639.525710173610000000
      Time = 38639.525710173610000000
      TabOrder = 1
      OnChange = DateTimePicker1Change
    end
    object Edit1: TEdit
      Left = 88
      Top = 184
      Width = 73
      Height = 21
      TabOrder = 2
    end
    object Edit2: TEdit
      Left = 88
      Top = 208
      Width = 73
      Height = 21
      TabOrder = 3
    end
    object Edit3: TEdit
      Left = 88
      Top = 248
      Width = 73
      Height = 21
      TabOrder = 4
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 477
    Width = 789
    Height = 26
    Panels = <
      item
        Text = 'sp1'
        Width = 200
      end
      item
        Text = 'sp2'
        Width = 200
      end
      item
        Text = 'sp3'
        Width = 200
      end>
  end
  object richedit1: TRichEdit
    Left = 8
    Top = 56
    Width = 569
    Height = 417
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    Lines.Strings = (
      'RichEdit1')
    ParentFont = False
    PopupMenu = PopupMenu1
    TabOrder = 3
  end
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 789
    Height = 41
    ButtonHeight = 38
    ButtonWidth = 39
    Caption = 'ToolBar1'
    Images = ImageList1
    TabOrder = 1
    object ToolButton1: TToolButton
      Left = 0
      Top = 2
      Width = 8
      Caption = 'ToolButton1'
      Style = tbsSeparator
    end
    object bnew: TToolButton
      Left = 8
      Top = 2
      Caption = 'Action1'
      ImageIndex = 27
    end
    object bopen: TToolButton
      Left = 47
      Top = 2
      Action = open
      ImageIndex = 29
    end
    object bsave: TToolButton
      Left = 86
      Top = 2
      Action = save
      ImageIndex = 13
    end
    object ToolButton5: TToolButton
      Left = 125
      Top = 2
      Width = 8
      Caption = 'ToolButton5'
      ImageIndex = 2
      Style = tbsSeparator
    end
    object bprint: TToolButton
      Left = 133
      Top = 2
      Action = print1
      ImageIndex = 11
    end
    object brun: TToolButton
      Left = 172
      Top = 2
      Action = run
      ImageIndex = 17
    end
    object bpage: TToolButton
      Left = 211
      Top = 2
      Action = page
      ImageIndex = 36
    end
    object ToolButton9: TToolButton
      Left = 250
      Top = 2
      Width = 8
      Caption = 'ToolButton9'
      ImageIndex = 5
      Style = tbsSeparator
    end
    object bundo: TToolButton
      Left = 258
      Top = 2
      Action = undo
      ImageIndex = 14
    end
    object bcut: TToolButton
      Left = 297
      Top = 2
      Action = cut
      ImageIndex = 3
    end
    object bcopy: TToolButton
      Left = 336
      Top = 2
      Action = copy
      ImageIndex = 2
    end
    object bpaste: TToolButton
      Left = 375
      Top = 2
      Action = paste
      ImageIndex = 9
    end
    object bdelete: TToolButton
      Left = 414
      Top = 2
      Action = delete
      ImageIndex = 4
    end
    object ToolButton15: TToolButton
      Left = 453
      Top = 2
      Width = 8
      Caption = 'ToolButton15'
      ImageIndex = 10
      Style = tbsSeparator
    end
    object bbold: TToolButton
      Left = 461
      Top = 2
      Action = bold
      ImageIndex = 18
    end