unit1.dfm

Java实例入门

object Form1: TForm1
  Left = 192
  Top = 107
  Width = 544
  Height = 375
  Caption = #19968#20010#31616#21333#30340#25991#26412#32534#36753#22120
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  ShowHint = True
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object RichEdit1: TRichEdit
    Left = 0
    Top = 83
    Width = 536
    Height = 246
    Align = alClient
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = #23435#20307
    Font.Style = []
    HideScrollBars = False
    Lines.Strings = (
      '')
    ParentFont = False
    ScrollBars = ssBoth
    TabOrder = 0
    OnKeyUp = RichEdit1KeyUp
    OnMouseDown = RichEdit1MouseDown
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 329
    Width = 536
    Height = 19
    Panels = <
      item
        Width = 50
      end>
    SimplePanel = True
    SimpleText = #26410#21629#21517#25991#20214'.txt'
  end
  object ActionMainMenuBar1: TActionMainMenuBar
    Left = 0
    Top = 0
    Width = 536
    Height = 29
    ActionManager = ActionManager1
    Caption = 'ActionMainMenuBar1'
    EdgeOuter = esNone
    Spacing = 0
  end
  object ActionToolBar1: TActionToolBar
    Left = 0
    Top = 29
    Width = 536
    Height = 29
    ActionManager = ActionManager1
    AllowHiding = True
    Caption = 'ActionToolBar1'
    EdgeBorders = [ebLeft, ebTop]
    HorzSeparator = True
    Orientation = boLeftToRight
    PersistentHotKeys = False
    Spacing = 0
  end
  object ToolBar2: TToolBar
    Left = 0
    Top = 58
    Width = 536
    Height = 25
    Caption = 'ToolBar2'
    DockSite = True
    Flat = True
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    Images = ImageList1
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 4
    object FontName: TComboBox
      Left = 0
      Top = 1
      Width = 145
      Height = 20
      Hint = #36873#25321#23383#20307
      ItemHeight = 12
      TabOrder = 0
      Text = #23435#20307
      OnChange = FontNameChange
    end
    object ToolButton3: TToolButton
      Left = 145
      Top = 0
      Width = 8
      Caption = 'ToolButton3'
      ImageIndex = 1
      Style = tbsSeparator
    end
    object FontSize: TEdit
      Left = 153
      Top = 0
      Width = 40
      Height = 22
      Hint = #36873#25321#23383#21495
      TabOrder = 1
      Text = '15'
      OnChange = FontSizeChange
    end
    object UpDown1: TUpDown
      Left = 193
      Top = 0
      Width = 15
      Height = 22
      Associate = FontSize
      Min = 0
      Position = 15
      TabOrder = 2
      Wrap = False
    end
    object ToolButton5: TToolButton
      Left = 208
      Top = 0
      Width = 8
      Caption = 'ToolButton2'
      ImageIndex = 1
      Style = tbsSeparator
    end
    object BoldButton: TToolButton
      Left = 216
      Top = 0
      Hint = #31895#20307
      Action = RichEditBold1
      AllowAllUp = True
      Grouped = True
    end
    object ItalicButton: TToolButton
      Left = 239
      Top = 0
      Hint = #26012#20307
      Action = RichEditItalic1
    end
    object UnderlineButton: TToolButton
      Left = 262
      Top = 0
      Hint = #21152#19979#21010#32447
      Action = RichEditUnderline1
    end
    object ToolButton6: TToolButton
      Left = 285
      Top = 0
      Width = 8
      Caption = 'ToolButton6'
      ImageIndex = 3
      Style = tbsSeparator
    end
    object LeftButton: TToolButton
      Left = 293
      Top = 0
      Hint = #24038#23545#40784
      Action = RichEditAlignLeft1
      Grouped = True
    end
    object CenterButton: TToolButton
      Left = 316
      Top = 0
      Hint = #23621#20013
      Action = RichEditAlignCenter1
      Grouped = True
    end
    object RightButton: TToolButton
      Left = 339
      Top = 0
      Hint = #21491#23545#40784
      Action = RichEditAlignRight1
      Grouped = True
    end
    object ToolButton10: TToolButton
      Left = 362
      Top = 0
      Width = 8
      Caption = 'ToolButton10'
      ImageIndex = 6
      Style = tbsSeparator
    end
    object BulletsButton: TToolButton
      Left = 370
      Top = 0
      Hint = #39033#30446#32534#21495
      Action = RichEditBullets1
    end
  end
  object ActionManager1: TActionManager
    ActionBars.SessionCount = 6
    ActionBars = <
      item
        Items = <
          item
            Items = <
              item
                Action = FileNew
                ImageIndex = 6
                ShortCut = 16462
              end
              item
                Action = FileSave
                ImageIndex = 8
                ShortCut = 16467
              end
              item
                Action = FileSaveAs1
                ImageIndex = 30
              end
              item
                Action = FileOpen1
                ImageIndex = 7
                ShortCut = 16463
              end
              item
                Action = FilePrintSetup1
                LastSession = 1
              end
              item
                Action = FileExit1
                ImageIndex = 43
              end>
            Caption = #25991#20214'(&F)'
          end
          item
            Items = <
              item
                Action = EditUndo1
                ImageIndex = 45
                LastSession = 2
                ShortCut = 16474
              end
              item
                Action = EditCut1
                ImageIndex = 0
                ShortCut = 16472
              end
              item
                Action = EditCopy1
                ImageIndex = 1
                ShortCut = 16451
              end
              item
                Action = EditPaste1
                ImageIndex = 2
                ShortCut = 16470
              end
              item
                Items = <
                  item
                    Action = SearchFind1
                    ImageIndex = 55
                    ShortCut = 16454
                  end
                  item
                    Action = SearchFindNext1
                    ImageIndex = 56
                    ShortCut = 114
                  end
                  item
                    Action = SearchReplace1
                    ImageIndex = 57
                  end>
                Caption = #26597#25214'(&I)'
                LastSession = 1
              end>
            Caption = #32534#36753'(&E)'
          end
          item
            Items = <
              item
                Action = FontEdit1
                LastSession = 1
              end
              item
                Action = RichEditBold1
                ImageIndex = 47
                ShortCut = 16450
              end
              item
                Action = RichEditItalic1
                ImageIndex = 48
                ShortCut = 16457
              end