*!* В ЗАПУСКАЮЩЕЙ ПРОГРАММЕ ПРОЕКТА (У МЕНЯ "BI_APP.PRG" - ВЫДЕЛЕНА ЖИРНЫМ)
*!* ПОСЛЕ СТРОКИ
******************************************************************
APP_GLOBAL = NEWOBJECT(APP_CLASSNAME, APP_CLASSLIB)
******************************************************************
*!* ВСТАВЛЯЕТЕ СЛЕДУЮЩИЙ КОД:

APP_GLOBAL.CSTArtupmenu = ""
APP_GLOBAL.cstartupmenupad = ""
SET SYSMENU OFF
_SCREEN.ALWAYSONBOTTOM= .T.
_SCREEN.LOCKSCREEN = .T.

*!* ОТКЛЮЧАЯ ТЕМ САМЫМ СТАНДАРТНОЕ МЕНЮ FOXPRO
*!* ДАЛЕЕ "APP_STANDARDTOOLBAR" ЗАМЕНЯЕТЕ СВОИМ КЛАССОМ - У МЕНЯ - "TLB_SYS9"
*!* В БИБЛИОТЕКЕ "BI9_VCX.VCX"

APP_GLOBAL.cstartuptoolbarclass = "TLB_SYS9"
APP_GLOBAL.cstartuptoolbarclasslib = "bi9_vcx.vcx"
&&APP_GLOBAL.cstartuptoolbarclass_access()
&&app_standardtoolbar
******************************************************************
*!* СОЗДАЕТЕ КЛАСС ТИПА TOOLBAR
*!* В НЕГО ПОМЕЩАЕТЕ ОСНОВНОЙ КОНТЕЙНЕР.
*!* В КОНТЕЙНЕР - PAGEFRAME - ЭТО УЖЕ ГЛАВНОЕ МЕНЮ И
*!* ЕЩЕ КОНТЕЙНЕР - ДЛЯ КНОПОЧНОГО.
*!* РАЗУКРАШИВАЕТЕ КАК ПОЖЕЛАЕТСЯ И ВСТАВЛЯЕТЕ КНОПКИ С КОДАМИ
*!* СТАРОГО SYSMENU, А ТАКЖЕ ДРУГИЕ ЭЛЕМЕНТЫ УПРАВЛЕНИЯ.

*!* Обращение к меню стандартное:
*****************************************************
goApp.ATOOLBARS(1,1).Ct1.PICTURE = (PUTGRAPHICS+'TABMENU_images_2012\titleback.bmp')
PUT_IMAGE8=(PUTGRAPHICS+'TABMENU_images_2012\appback.jpg')
goApp.ATOOLBARS(1,1).SETALL('PICTURE',PUT_IMAGE8 ,"PAGE")
*****************************************************
goApp.ATOOLBARS(1,1).SETALL('FONTBOLD',.F. ,"PAGE")
goApp.ATOOLBARS(1,1).SETALL('FONTNAME',"Tahoma","PAGE")
goApp.ATOOLBARS(1,1).SETALL('FONTSIZE', 10,"PAGE")
goApp.ATOOLBARS(1,1).SETALL('FORECOLOR',RGB(128,0,128),"PAGE")
goApp.ATOOLBARS(1,1).SETALL('BACKCOLOR',RGB(221,234,251),"PAGE")
goApp.ATOOLBARS(1,1).Ct1.PF1.SETALL('FONTSIZE', 8,"LABEL")
goApp.ATOOLBARS(1,1).Ct1.PF1.SETALL('FONTNAME',"Calibri","LABEL")
goApp.ATOOLBARS(1,1).CNT_L1_FontSIZE = goApp.ATOOLBARS(1,1).Ct1.Pf1.Page1.C1.L1.FONTSIZE
******************************************************
goApp.ATOOLBARS(1,1).Ct1.Tlb1.PICTURE = (PUTGRAPHICS+'1_tlb_tab_3.bmp')
goApp.ATOOLBARS(1,1).Ct1.Tlb1.BACKCOLOR = RGB(221,234,251)
******************************************************

*!* В Init добавьте код:
**********************************
BINDEVENT(goAPP, "Resize", THIS, "Resize")
**********************************
*!* В Resize:
**********************************
THIS.WIDTH = _SCREEN.WIDTH
THIS.Ct1.WIDTH = _SCREEN.WIDTH
THIS.Ct1.Pf1.WIDTH = THIS.Ct1.WIDTH
THIS.Ct1.Pf1.WIDTH = THIS.Ct1.WIDTH
THIS.Ct1.Tlb1.WIDTH = THIS.Ct1.WIDTH
THIS.WIDTH = THIS.Ct1.WIDTH
IF COPNS = 0.AND.THIS.DOCKPOSITION != 0
THIS.DOCK(0)
ENDIF
**********************************
THIS.Ct1.Pf1.page1.Emblema1.LEFT = THIS.Ct1.Pf1.WIDTH - 50
THIS.Ct1.HELP1.LEFT = THIS.Ct1.Pf1.WIDTH - THIS.Ct1.HELP1.WIDTH - 18
**********************************

******************************************************
*!* САМО ОФОРМЛЕНИЕ У МЕНЯ ОЧЕНЬ СЛОЖНОЕ С ВЫДЕЛЕНИЕМ ШРИФТА ЖИРНЫМ И
*!* СМЕНОЙ РИСУНКА В ДОПОЛНИТЕЛЬНЫХ КОНТЕЙНЕРАХ.
*!* КЛАСС АДАПТИРОВАН В ПРОГРАММУ И СОДЕРЖИТСЯ В БОЛЬШОЙ БИБЛИОТЕКЕ.
*!* ПОЭТОМУ ВЫШЛЮ ПОЗДНЕЕ.
*!* РАБОТАЕТ ВСЕ БЕЗОТКАЗНО УЖЕ 5 ЛЕТ.
*!* В НОВЫХ ПРОГРАММАХ МЕНЯЕШЬ КОДЫ И ОФОРМЛЕНИЕ. И ВСЕ.
******************************************************