set step on
set sysmenu to

loForm = createobject('CodeEditForm')
with loForm
	.caption  = 'Test'
	.width    = _screen.width  - 50
	.height   = _screen.height - 50
	.fontname = 'Courier New'
	.fontsize = 10
	.keypreview = .t.

	.visible = .t.
endwith


define menu _Bearbeiten bar in (loForm.name) font 'arial', 10 color scheme 3
define pad _EditP of _Bearbeiten prompt "Edit"  color scheme 3

on pad _EditP of _Bearbeiten activate popup _Edit
define popup _Edit margin relative shadow color scheme 4

define bar _med_cut of _Edit prompt 'cut' key CTRL+X, "Ctrl+X" PICTRES _med_cut
define bar _med_copy of _Edit prompt 'copy' key CTRL+C, "Ctrl+C" PICTRES _med_copy
define bar _med_paste of _Edit prompt 'paste' key CTRL+V, "Ctrl+V" PICTRES _med_paste
activate menu _Bearbeiten

lcPath = getfile()

modify command (lcPath) window (loForm.name)

set sysmenu to default


define class CodeEditForm as form
enddefine