LOCAL loForm
loForm = THISFORM

DEFINE POPUP frmshort SHORTCUT RELATIVE FROM MROW(),MCOL()

DEFINE BAR  1  OF frmshort PROMPT "Дата, Время..."				PICTURE 'BitMaps\Watch.bmp'
DEFINE BAR  2  OF frmshort PROMPT "Изменить цвет фона окна"	PICTURE 'BitMaps\ColorUser.bmp'
DEFINE BAR  3  OF frmshort PROMPT "Вернуть системный фон"	PICTURE 'BitMaps\ColorSystem.bmp'
DEFINE BAR  4  OF frmshort PROMPT "\-"
DEFINE BAR  5  OF frmshort PROMPT "Центровать окно"			PICTURE 'BitMaps\Center.bmp'
DEFINE BAR  6  OF frmshort PROMPT "Штатный размер"			PICTTURE 'BitMaps\FormSize.bmp'	;
	SKIP FOR ;
	( loForm.StWidth = - 1  .AND. loForm.MinWidth = - 1  ) OR ;
	( loForm.StHeight = - 1  .AND. loForm.MinHeight = - 1  )

ON SELECTION BAR  1  OF frmshort loForm.ShowDate()
ON SELECTION BAR  2  OF frmshort loForm.ChangeColor()
ON SELECTION BAR  3  OF frmshort loForm.BackColor = GetSysColor( 15 )
ON SELECTION BAR  5  OF frmshort loForm.AutoCenter = .T.
ON SELECTION BAR  6  OF frmshort loForm.ChangeSize()

ACTIVATE POPUP frmshort
RELEASE POPUPS frmshort