umainform.dfm

Delphi高手突破源码

object MainForm: TMainForm
  Left = 220
  Top = 168
  Width = 696
  Height = 480
  Caption = 'Sunny SmartNote 5'
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = 'Arial'
  Font.Style = []
  Menu = MainMenu
  OldCreateOrder = False
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 15
  object CoolBar: TCoolBar
    Left = 0
    Top = 0
    Width = 688
    Height = 29
    AutoSize = True
    Bands = <
      item
        Control = ToolBar
        ImageIndex = -1
        Width = 688
      end>
    EdgeBorders = [ebTop, ebBottom]
    object ToolBar: TToolBar
      Left = 9
      Top = 0
      Width = 675
      Height = 25
      Align = alNone
      Caption = 'ToolBar'
      EdgeBorders = [ebBottom]
      EdgeInner = esNone
      EdgeOuter = esNone
      Flat = True
      Images = ImageList
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      Transparent = True
      object tb_new: TToolButton
        Left = 0
        Top = 0
        Hint = 'New (Ctrl+N)'
        Caption = '&New'
        ImageIndex = 0
        MenuItem = menu_new
        ParentShowHint = False
        ShowHint = True
      end
      object tb_open: TToolButton
        Left = 23
        Top = 0
        Hint = 'Open (Ctrl+O)'
        Caption = '&Open'
        ImageIndex = 1
        MenuItem = menu_open
        ParentShowHint = False
        ShowHint = True
      end
      object tb_save: TToolButton
        Left = 46
        Top = 0
        Hint = 'Save (Ctrl+S)'
        Caption = '&Save'
        ImageIndex = 2
        MenuItem = menu_save
      end
      object tb_saveall: TToolButton
        Left = 69
        Top = 0
        Hint = 'Save All'
        Caption = 'Save A&ll'
        ImageIndex = 3
        MenuItem = menu_saveall
      end
      object tb_line1: TToolButton
        Left = 92
        Top = 0
        Width = 8
        ImageIndex = 0
        Style = tbsSeparator
      end
      object tb_cut: TToolButton
        Left = 100
        Top = 0
        Hint = 'Cut (Ctrl+X)'
        Caption = 'Cu&t'
        ImageIndex = 6
        MenuItem = menu_cut
      end
      object tb_copy: TToolButton
        Left = 123
        Top = 0
        Hint = 'Copy (Ctrl+C)'
        Caption = '&Copy'
        ImageIndex = 7
        MenuItem = menu_copy
      end
      object tb_paste: TToolButton
        Left = 146
        Top = 0
        Hint = 'Paste (Ctrl+V)'
        Caption = '&Paste'
        ImageIndex = 8
        MenuItem = menu_paste
      end
      object tb_del: TToolButton
        Left = 169
        Top = 0
        Hint = 'Delete'
        Caption = 'Delete Selection'
        ImageIndex = 9
        MenuItem = menu_DeleteSelection
      end
      object tb_line2: TToolButton
        Left = 192
        Top = 0
        Width = 8
        Caption = 'tb_line2'
        ImageIndex = 10
        Style = tbsSeparator
      end
      object tb_find: TToolButton
        Left = 200
        Top = 0
        Hint = 'Find (Ctrl+F3)'
        Caption = '&Find...'
        ImageIndex = 10
        MenuItem = menu_find
      end
    end
  end
  object StatusBar: TStatusBar
    Left = 0
    Top = 414
    Width = 688
    Height = 20
    Panels = <
      item
        Width = 50
      end>
    SimplePanel = True
  end
  object pnl_WorkSpace: TPanel
    Left = 0
    Top = 29
    Width = 688
    Height = 385
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 2
  end
  object MainMenu: TMainMenu
    AutoHotkeys = maManual
    AutoLineReduction = maManual
    Images = ImageList
    Left = 536
    object menu_file: TMenuItem
      Caption = '&File'
      object menu_new: TMenuItem
        Caption = '&New'
        Hint = 'New (Ctrl+N)'
        ImageIndex = 0
        ShortCut = 16462
        OnClick = menu_newClick
      end
      object menu_open: TMenuItem
        Caption = '&Open'
        Hint = 'Open (Ctrl+O)'
        ImageIndex = 1
        ShortCut = 16463
        OnClick = menu_openClick
      end
      object menu_line0: TMenuItem
        Caption = '-'
      end
      object menu_save: TMenuItem
        Caption = '&Save'
        Hint = 'Save (Ctrl+S)'
        ImageIndex = 2
        ShortCut = 16467
        OnClick = menu_saveClick
      end
      object menu_saveas: TMenuItem
        Caption = 'Save &As...'
        Hint = 'Save As'
        OnClick = menu_saveasClick
      end
      object menu_saveall: TMenuItem
        Caption = 'Save A&ll'
        Hint = 'Save All'
        ImageIndex = 3
        ShortCut = 24659
        OnClick = menu_saveallClick
      end
      object menu_line1: TMenuItem
        Caption = '-'
      end
      object menu_close: TMenuItem
        Caption = '&Close'
        OnClick = menu_closeClick
      end
      object menu_closeall: TMenuItem
        Caption = 'Clos&e All'
        OnClick = menu_closeallClick
      end
      object menu_line2: TMenuItem
        Caption = '-'
      end
      object menu_exit: TMenuItem
        Caption = 'E&xit'
        OnClick = menu_exitClick
      end
    end
    object menu_edit: TMenuItem
      Caption = '&Edit'
      object menu_undo: TMenuItem
        Caption = '&Undo'
        Hint = 'Undo'
        ImageIndex = 4