fnotepad.form

来自「Gambas is a graphical development enviro」· FORM 代码 · 共 80 行

# Gambas Form File 1.0

{ FNotepad Form
  Move(327,225,400,400)
  Text = ("Little notepad")
  Icon = Picture["notepad.png"]
  { mnuFile Menu
    Text = ("&File")
    { mnuOpen Menu
      Text = ("&Open...")
      Shortcut = "Ctrl+O"
    }
    { mnuClose Menu
      Text = ("Close")
      Shortcut = "Ctrl+W"
    }
    { Menu1 Menu
      Text = ("")
    }
    { mnuSave Menu
      Text = ("&Save")
      Shortcut = "Ctrl+S"
    }
    { mnuSaveAs Menu
      Text = ("S&ave As...")
      Shortcut = "Ctrl+Shift+S"
    }
    { Menu2 Menu
      Text = ("")
    }
    { mnuQuit Menu
      Text = ("&Quit")
      Shortcut = "Ctrl+Q"
    }
  }
  { mnuEdit Menu
    Text = ("&Edit")
    { mnuCopy Menu
      Text = ("&Copy")
      Shortcut = "Ctrl+C"
    }
    { mnuCut Menu
      Text = ("C&ut")
      Shortcut = "Ctrl+X"
    }
    { mnuPaste Menu
      Text = ("&Paste")
      Shortcut = "Ctrl+V"
    }
    { Menu3 Menu
      Text = ("")
    }
    { mnuUndo Menu
      Text = ("&Undo")
      Shortcut = "Ctrl+Z"
    }
    { mnuRedo Menu
      Text = ("&Redo")
      Shortcut = "Ctrl+Y"
    }
    { Menu4 Menu
      Text = ("")
    }
    { mnuFont Menu
      Text = ("Choose &Font...")
    }
  }
  { mnuHelp Menu
    Text = ("&?")
    { mnuAbout Menu
      Text = ("&About...")
    }
  }
  { txtNotepad TextArea
    Move(8,8,280,208)
    Font = Font["Monospace,10"]
    Text = ("txtNotepad")
  }
}