unotepad.dfm

利用DELPHI7来编写的一个记事本。不是非常的完善

object FrmNotepad: TFrmNotepad
  Left = 192
  Top = 114
  Width = 701
  Height = 480
  Caption = #26080#26631#39064' - '#35760#20107#26412
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {
    0000010001001010000001000800680500001600000028000000100000002000
    0000010008000000000040010000000000000000000000000000000000000000
    0000AE938A0052B9D200888B92008B899100968C9200BB9A9C00658A9C00DD99
    8A0097A1A900DFCDBA009FB7BB00DCCBBA00A0A9A800E7CCAB00BDC0B600F4D5
    AA00988E7700A5978500E0AD8B00F2E4B800FAEEC300F4E6B800E8E2A100E8DC
    9400F3DF9800F6DD8F00F3D27C00EAA85D00DAAB8500EDDF9300E7DF9F00ECDC
    9600E2D58400E4D37E00E7D07B00E6CE7100EAC66400FEBB6400D2B79F00EDD3
    8400EDD89000EED38600E0CC7000E4CA6A00EFC96B00EBC65F00E7BC4D00FEB7
    5200C39F7100CCC1B200E3D58500ECCC7400F1CC7300E2C45D00E1C15500ECC0
    5600EEBE4F00E7B44000F4AC4900F1B97100CCC4B700E0DF9E00F0C15E00EDC4
    5E00E2BD4B00E4BA4700EAB84B00E7B54600E1AB3F00E69D4800FEC07400A796
    8300CCC3B500D1EBB200EBBB5700EDBB5200DAB44200DCB04300E3AF4C00DBAB
    4700D5A13E00DB944900F1B27000BD996F00CCC1B100D2F7CF00E6BF6A00E2AE
    4A00D3AA4400CFA64200D6A44900D5A24900CD983F00D0894900DC9E6A00DBA5
    6C00CDC1B000C9FAD200E1CE8600DCA54A00C7A04100CA9D4500CD9B4900C896
    4800C28C3F00C37C4800CB8D6900E8A87200A6998700CDC0B000D1FBDA00D7DF
    A300D8A25000BD914100BB8E4000C68D4700C58D4300CA8A4000D58A5100DBA0
    6F00DDA56C008F7E6800CCC0AE00C9F7D000D4EDC100E2B06100C99D4800D1AB
    5600DBBC6C00DBCE7A00D4D67E0097775100928B81009B8F8C00CDC3B400CFFF
    DA00C5F6C900D7EAB000BFE49100C7EB9D00DCE3A300D8D49800D8B27C007F64
    5A00D2B8A100DBE1AF00DECA9D00D1AF8400BF936D00A77A5C00946E60008E74
    6C00978A8600977D760098766900937E7500FFFFFF0000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    000000000000000000000000000000000000000000000000000000000000009A
    9B9C868600000000000000000000009192939495969798990000000000000087
    88898A8B8C8D8E8F900000000000007B7C7D7E7F80818283848586000000006E
    6F707172737475767778797A0000006162636465666768696A6B6C6D00000055
    565758595A5B5C5D5E5F6031000000494A4B4C4D4E4F5051525354310000003D
    3E3F4041424344454647480000000032333435363738393A3B3C310000000027
    28292A2B2C2D2E2F303100000000001D1E1F2021222324252612000000000013
    1415161718191A1B1C12000000000008090A0B0C0D0E0F101112000000000001
    02030204020502060700000000000000000000000000000000000000000083FF
    0000803F0000801F000080070000800300008003000080030000800300008007
    000080070000800F0000800F0000800F0000800F0000801F0000FFFF0000}
  Menu = MainMenu1
  OldCreateOrder = False
  OnClose = FormClose
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object StatusBar: TStatusBar
    Left = 0
    Top = 407
    Width = 693
    Height = 19
    Panels = <
      item
        Width = 500
      end
      item
        Text = '   Ln 1,Col 1'
        Width = 50
      end>
    SimplePanel = False
  end
  object RichEdit: TRichEdit
    Left = 0
    Top = 0
    Width = 693
    Height = 407
    Align = alClient
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'Fixedsys'
    Font.Style = []
    HideScrollBars = False
    ParentFont = False
    PlainText = True
    PopupMenu = PMnRichEdit
    ScrollBars = ssBoth
    TabOrder = 1
    WantTabs = True
    WordWrap = False
    OnKeyPress = RichEditKeyPress
    OnKeyUp = RichEditKeyUp
    OnMouseDown = RichEditMouseDown
  end
  object MainMenu1: TMainMenu
    Left = 320
    Top = 8
    object Mn01File: TMenuItem
      Caption = #25991#20214'(&F)'
      object Mn11_1New: TMenuItem
        Caption = #26032#24314'(&N)'
        ShortCut = 16462
        OnClick = Mn11_1NewClick
      end
      object Mn11_2Open: TMenuItem
        Caption = #25171#24320'(&O)...'
        ShortCut = 16463
        OnClick = Mn11_2OpenClick
      end
      object Mn11_3Save: TMenuItem
        Caption = #20445#23384'(&S)'
        ShortCut = 16467
        OnClick = Mn11_3SaveClick
      end
      object Mn11_4Saveto: TMenuItem
        Caption = #21478#23384#20026'(&A)...'
        OnClick = Mn11_4SavetoClick
      end
      object Mn11_5: TMenuItem
        Caption = '-'
      end
      object Mn11_6Page: TMenuItem
        Caption = #39029#38754#35774#32622'(&U)...'
        OnClick = Mn11_6PageClick
      end
      object Mn11_7Print: TMenuItem
        Caption = #25171#21360'(&P)...'
        ShortCut = 16464
        OnClick = Mn11_7PrintClick
      end
      object Mn11_8: TMenuItem
        Caption = '-'
      end
      object Mn11_9Exit: TMenuItem
        Caption = #36864#20986'(&X)'
        OnClick = Mn11_9ExitClick
      end
    end
    object Mn02Edit: TMenuItem
      Caption = #32534#36753'(&E)'
      OnClick = Mn02EditClick
      object Mn12_1Cancel: TMenuItem
        Caption = #25764#38144'(&U)'
        Enabled = False
        ShortCut = 16474
        OnClick = Mn12_1CancelClick
      end
      object Mn12_2: TMenuItem
        Caption = '-'
      end
      object Mn12_3Cut: TMenuItem
        Caption = #21098#20999'(&T)'
        Enabled = False
        ShortCut = 16472
        OnClick = Mn12_3CutClick
      end
      object Mn12_4Copy: TMenuItem
        Caption = #22797#21046'(&C)'
        Enabled = False
        ShortCut = 16451
        OnClick = Mn12_4CopyClick
      end
      object Mn12_5Plaster: TMenuItem
        Caption = #31896#36148'(&P)'
        ShortCut = 16470
        OnClick = Mn12_5PlasterClick
      end
      object Mn12_6Del: TMenuItem
        Caption = #21024#38500'(&L)'
        Enabled = False
        ShortCut = 46
        OnClick = Mn12_6DelClick
      end
      object Mn12_7: TMenuItem
        Caption = '-'
      end
      object Mn12_8Lookup: TMenuItem
        Caption = #26597#25214'(&F)...'
        Enabled = False
        ShortCut = 16454
        OnClick = Mn12_8LookupClick
      end
      object Mn12_9LookupNext: TMenuItem
        Caption = #26597#25214#19979#19968#20010'(&N)'
        Enabled = False
        ShortCut = 114
        OnClick = Mn12_9LookupNextClick
      end
      object Mn12_10Replace: TMenuItem
        Caption = #26367#25442'(&R)...'
        ShortCut = 16456
        OnClick = Mn12_10ReplaceClick
      end
      object Mn12_11Goto: TMenuItem
        Caption = #36716#21040'(&G)...'
        ShortCut = 16455
        OnClick = Mn12_11GotoClick
      end
      object Mn12_12: TMenuItem
        Caption = '-'
      end
      object Mn12_13All: TMenuItem
        Caption = #20840#36873'(&A)'
        ShortCut = 16449
        OnClick = Mn12_13AllClick
      end
      object Mn12_14Date: TMenuItem
        Caption = #26102#38388'/'#26085#26399'(&D)'
        ShortCut = 116
        OnClick = Mn12_14DateClick
      end
    end
    object Mn03Format: TMenuItem
      Caption = #26684#24335'(&O)'
      object Mn13_1Newline: TMenuItem
        Caption = #33258#21160#25442#34892'(&W)'
        OnClick = Mn13_1NewlineClick
      end
      object Mn13_2Font: TMenuItem
        Caption = #23383#20307'(&F)...'
        OnClick = Mn13_2FontClick
      end
    end
    object Mn04View: TMenuItem
      Caption = #26597#30475'(&V)'
      object Mn14_1Status: TMenuItem
        Caption = #29366#24577#26639'(&S)'
        Checked = True
        OnClick = Mn14_1StatusClick
      end
    end
    object Mn05Help: TMenuItem
      Caption = #24110#21161'(&H)'
      object Mn15_1Motif: TMenuItem
        Caption = #24110#21161#20027#39064'(&H)'
        OnClick = Mn15_1MotifClick
      end
      object Mn15_2: TMenuItem
        Caption = '-'
      end
      object Mn15_3About: TMenuItem
        Caption = #20851#20110#35760#20107#26412'(&A)'
        OnClick = Mn15_3AboutClick
      end
    end
  end
  object SaveDialog: TSaveDialog
    FileName = '*.txt'
    Filter = #25991#26412#25991#20214'(*.txt)|*.txt|'#25152#26377#25991#20214'|*.*'
    Left = 320
    Top = 56
  end
  object OpenDialog: TOpenDialog
    FileName = '*.txt'
    Filter = #25991#26412#25991#20214'(*.txt)|*.txt|'#25152#26377#25991#20214'|*.*'
    Left = 368
    Top = 56
  end
  object PMnRichEdit: TPopupMenu
    Left = 368
    Top = 8
    object PMnRE01: TMenuItem
      Caption = #25764#38144'(&U)'
    end
    object PMnRE02: TMenuItem
      Caption = '-'
    end
    object PMnRE03: TMenuItem
      Caption = #21098#20999'(&T)'
    end
    object PMnRE04: TMenuItem
      Caption = #22797#21046'(&C)'
    end
    object PMnRE05: TMenuItem
      Caption = #31896#36148'(&P)'
    end
    object PMnRE06: TMenuItem
      Caption = #21024#38500'(&D)'
    end
    object PMnRE07: TMenuItem
      Caption = '-'
    end
    object PMnRE08: TMenuItem
      Caption = #20840#36873'(&A)'
    end
    object PMnRE09: TMenuItem
      Caption = '-'
    end
    object PMnRE010: TMenuItem
      Caption = #20174#21491#21040#24038#30340#38405#35835#39034#24207'(&R)'
    end
    object PMnRE011: TMenuItem
      Caption = #26174#31034' Unicode '#25511#21046#23383#31526'(&S)'
    end
    object PMnRE012: TMenuItem
      Caption = #25554#20837' Unicode '#25511#21046#23383#31526'(&I)'
      object PMnRE112_1: TMenuItem
        Caption = 'LRM  Left-to-right mark'
      end
      object PMnRE112_2: TMenuItem
        Caption = 'RLM  Right-to-left mark'
      end
      object PMnRE112_3: TMenuItem
        Caption = 'ZWJ  Zero width joiner'
      end
      object PMnRE112_4: TMenuItem
        Caption = 'ZWNJ Zero width non-joiner'
      end
      object PMnRE112_5: TMenuItem
        Caption = 'LRE  Start of left-to-right embedding'
      end
      object PMnRE112_6: TMenuItem
        Caption = 'RLE  Start of right-to-left embedding'
      end
      object PMnRE112_7: TMenuItem
        Caption = 'LRO  Start of left-to-right override'
      end
      object PMnRE112_8: TMenuItem
        Caption = 'RLO  Start of right-to-left override'
      end
      object PMnRE112_9: TMenuItem
        Caption = 'PDF  Pop directional formatting'
      end
      object PMnRE112_10: TMenuItem
        Caption = 'NADS National digit shapes substitution'
      end
      object PMnRE112_11: TMenuItem
        Caption = 'NODS Nominal (European) digit shapes'
      end
      object PMnRE112_12: TMenuItem
        Caption = 'ASS  Activate symmetric swapping'
      end
      object PMnRE112_13: TMenuItem
        Caption = 'ISS  Inhibit symmetric swapping'
      end
      object PMnRE112_14: TMenuItem
        Caption = 'AAFS Activate Arabic form shaping'
      end
      object PMnRE112_15: TMenuItem
        Caption = 'IAFS Inhibit Arabic form shaping'
      end
      object PMnRE112_16: TMenuItem
        Caption = 'RS   Record Separator (Block separator)'
      end
      object PMnRE112_17: TMenuItem
        Caption = 'US   Unit Separator (Segment separator)'
      end
    end
  end
  object FontDialog: TFontDialog
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    MinFontSize = 0
    MaxFontSize = 0
    Left = 416
    Top = 56
  end
  object FindDialog: TFindDialog
    Options = [frDown, frHideWholeWord]
    OnFind = FindDialogFind
    Left = 464
    Top = 56
  end
  object ReplaceDialog: TReplaceDialog
    OnFind = ReplaceDialogFind
    Left = 512
    Top = 56
  end
  object PrinterSetupDialog: TPrinterSetupDialog
    Left = 320
    Top = 104
  end
  object PrintDialog: TPrintDialog
    Left = 368
    Top = 104
  end
end