mainfu.dfm

小程序

object Form1: TForm1
  Left = 0
  Top = 0
  Caption = 'Form1'
  ClientHeight = 424
  ClientWidth = 608
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object StatSB: TStatusBar
    Left = 0
    Top = 405
    Width = 608
    Height = 19
    Panels = <
      item
        Width = 150
      end
      item
        Width = 350
      end>
  end
  object PageNb: TNotebook
    Left = 24
    Top = 24
    Width = 489
    Height = 329
    TabOrder = 1
    object TPage
      Left = 0
      Top = 0
      Caption = 'Edit'
      object CmdRE: TRichEdit
        Left = 16
        Top = 29
        Width = 185
        Height = 89
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = 'Tahoma'
        Font.Style = []
        ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
        Lines.Strings = (
          'RichEdit1')
        ParentFont = False
        PopupMenu = EditPMenu
        ScrollBars = ssBoth
        TabOrder = 0
        OnKeyPress = CmdREKeyPress
        OnKeyUp = CmdREKeyUp
        OnSaveClipboard = CmdRESaveClipboard
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'Run'
      object ViewSB: TScrollBox
        Left = 0
        Top = 0
        Width = 489
        Height = 329
        Align = alClient
        BevelInner = bvNone
        BevelOuter = bvNone
        BorderStyle = bsNone
        TabOrder = 0
        object ShowP: TPanel
          Left = 0
          Top = 0
          Width = 417
          Height = 225
          BevelOuter = bvNone
          Caption = 'ShowP'
          TabOrder = 0
          OnResize = ShowPResize
          DesignSize = (
            417
            225)
          object ViewPB: TPaintBox
            Left = 32
            Top = 24
            Width = 105
            Height = 105
            OnPaint = ViewPBPaint
          end
          object PointPB: TPaintBox
            Left = 112
            Top = 96
            Width = 17
            Height = 17
            Anchors = []
            OnPaint = PointPBPaint
          end
        end
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'Help'
      object HelpRE: TRichEdit
        Left = 0
        Top = 0
        Width = 489
        Height = 329
        Align = alClient
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -19
        Font.Name = #21326#25991#26032#39759
        Font.Style = []
        ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
        ParentFont = False
        PlainText = True
        ReadOnly = True
        ScrollBars = ssBoth
        TabOrder = 0
      end
    end
  end
  object MainMenu1: TMainMenu
    Left = 424
    Top = 304
    object File1: TMenuItem
      Caption = '&F'#25991#20214
      object NewFileN: TMenuItem
        Caption = '&N'#26032#24314
        ShortCut = 16462
        OnClick = NewFileNClick
      end
      object OpenN: TMenuItem
        Caption = '&O'#25171#24320
        ShortCut = 16463
        OnClick = OpenNClick
      end
      object CloseN: TMenuItem
        Caption = '&C'#20851#38381
        OnClick = CloseNClick
      end
      object N3: TMenuItem
        Caption = '-'
      end
      object SaveN: TMenuItem
        Caption = '&S'#20445#23384
        ShortCut = 16467
        OnClick = SaveNClick
      end
      object SaveAsN: TMenuItem
        Caption = '&A'#21478#23384'...'
        OnClick = SaveAsNClick
      end
      object N2: TMenuItem
        Caption = '-'
      end
      object Print1: TMenuItem
        Caption = '&P'#25171#21360
        ShortCut = 16464
      end
      object PrintSetup1: TMenuItem
        Caption = '&t'#25171#21360#35774#32622'...'
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object ExitN: TMenuItem
        Caption = '&x'#36864#20986
        OnClick = ExitNClick
      end
    end
    object EditN: TMenuItem
      Caption = '&E'#32534#36753
      OnClick = EditNClick
      object PasteN: TMenuItem
        Caption = '&P'#31896#36148
        OnClick = PasteNClick
      end
      object CutN: TMenuItem
        Caption = '&u'#21098#20999
        OnClick = CutNClick
      end
      object CopyN: TMenuItem
        Caption = '&C'#22797#21046
        OnClick = CopyNClick
      end
      object DeleteN: TMenuItem
        Caption = '&D'#21024#38500
        OnClick = DeleteNClick
      end
    end
    object RunN: TMenuItem
      Caption = '&R'#36816#34892
      OnClick = RunNClick
    end
    object HelpN: TMenuItem
      Caption = '&H'#24110#21161
      OnClick = HelpNClick
    end
  end
  object SaveDlg: TSaveDialog
    DefaultExt = '*.Log'
    Options = [ofHideReadOnly, ofNoChangeDir, ofEnableSizing]
    Left = 432
    Top = 224
  end
  object OpenDlg: TOpenDialog
    DefaultExt = '*.Log'
    Options = [ofHideReadOnly, ofNoChangeDir, ofEnableSizing]
    Left = 408
    Top = 160
  end
  object EditPMenu: TPopupMenu
    Left = 512
    Top = 288
    object CutNp: TMenuItem
      Caption = #21098#20999
      OnClick = CutNClick
    end
    object CopyNp: TMenuItem
      Caption = #22797#21046
      OnClick = CopyNClick
    end
    object PasteNp: TMenuItem
      Caption = #31896#36148
      OnClick = PasteNClick
    end
    object DeleteNp: TMenuItem
      Caption = #21024#38500
      OnClick = DeleteNClick
    end
  end
end