c6a9cd69c2
* NEW: Add examples again. I hope correctly this time. git-svn-id: svn://localhost/gambas/trunk@6726 867c0c6c-44f3-4631-809d-bfa615b0a4ec
93 lines
2.1 KiB
Text
93 lines
2.1 KiB
Text
# Gambas Form File 3.0
|
|
|
|
{ Form Form
|
|
MoveScaled(12.5714,12.5714,50,50)
|
|
Text = ("Little notepad")
|
|
Icon = Picture["notepad.png"]
|
|
Arrangement = Arrange.Fill
|
|
{ mnuFile Menu
|
|
Text = Shortcut(("File"), "F")
|
|
{ mnuOpen Menu
|
|
Text = Shortcut(("Open"), "O") & "..."
|
|
Picture = Picture["icon:/16/new"]
|
|
Shortcut = "Ctrl+O"
|
|
}
|
|
{ mnuClose Menu
|
|
Text = ("Close")
|
|
Picture = Picture["icon:/16/close"]
|
|
Shortcut = "Ctrl+W"
|
|
}
|
|
{ Menu1 Menu
|
|
}
|
|
{ mnuSave Menu
|
|
Text = Shortcut(("Save"), "S")
|
|
Picture = Picture["icon:/16/save"]
|
|
Shortcut = "Ctrl+S"
|
|
}
|
|
{ mnuSaveAs Menu
|
|
Text = Shortcut(("Save As"), "a") & "..."
|
|
Shortcut = "Ctrl+Shift+S"
|
|
}
|
|
{ Menu2 Menu
|
|
}
|
|
{ mnuQuit Menu
|
|
Text = Shortcut(("Quit"), "Q")
|
|
Picture = Picture["icon:/16/quit"]
|
|
Shortcut = "Ctrl+Q"
|
|
}
|
|
}
|
|
{ mnuEdit Menu
|
|
Text = Shortcut(("Edit"), "E")
|
|
{ mnuCopy Menu
|
|
Text = Shortcut(("Copy"), "C")
|
|
Picture = Picture["icon:/16/copy"]
|
|
Shortcut = "Ctrl+C"
|
|
}
|
|
{ mnuCut Menu
|
|
Text = Shortcut(("Cut"), "u")
|
|
Picture = Picture["icon:/16/cut"]
|
|
Shortcut = "Ctrl+X"
|
|
}
|
|
{ mnuPaste Menu
|
|
Text = Shortcut(("Paste"), "P")
|
|
Picture = Picture["icon:/16/paste"]
|
|
Shortcut = "Ctrl+V"
|
|
}
|
|
{ Menu3 Menu
|
|
}
|
|
{ mnuUndo Menu
|
|
Text = Shortcut(("Undo"), "U")
|
|
Picture = Picture["icon:/16/undo"]
|
|
Shortcut = "Ctrl+Z"
|
|
}
|
|
{ mnuRedo Menu
|
|
Text = Shortcut(("Redo"), "R")
|
|
Picture = Picture["icon:/16/redo"]
|
|
Shortcut = "Ctrl+Y"
|
|
}
|
|
{ Menu4 Menu
|
|
}
|
|
{ mnuFont Menu
|
|
Text = Shortcut(("Choose Font"), "F") & "..."
|
|
}
|
|
{ mnuWrap Menu
|
|
Text = Shortcut(("Wrap text"), "W")
|
|
Picture = Picture["icon:/16/text-fill"]
|
|
Checked = True
|
|
}
|
|
}
|
|
{ mnuHelp Menu
|
|
Text = Shortcut(("?"), "?")
|
|
{ mnuAbout Menu
|
|
Text = Shortcut(("About"), "A") & "..."
|
|
}
|
|
}
|
|
{ txtNotepad TextArea
|
|
MoveScaled(1,1,35,26)
|
|
Font = Font["Liberation Mono,9"]
|
|
Expand = True
|
|
Text = ("txtNotepad")
|
|
Wrap = True
|
|
Border = False
|
|
}
|
|
}
|