define object appOSTECdesign
endobject
--
define method .appOSTECdesign()
!!OSTEC = object ostec()
--!!alert.message('конструктор')
  --track |DESICE|  call '!!OSTEC.track()'
endmethod
--
define method .modifyMenus()
  --$p call modidy menu OSTEC
  --!bmenu = object APPBARMENU()
  --!bmenu.add(|OSTEC|, 'MBAAA')
  --!!appMenuCntrl.addBarMenu(!bmenu, 'OSTECALL')

endmethod

define method .modifyForm()
--тут модно добавлять тублары
$p call modifyform()
  --!this.toolbars()
track |DESICE|  call '!!OSTEC.track()'
  frame .OSTECtools toolbar 'OSTEC инструменты'
		!iconpath = !!pml.getPathName('ostec.pmlobj').replace('/ostec.pmlobj','')
			
			button    .bOstecConn pixmap /$!iconpath\OSTConn.png width 16 height 16 at x0 y1 callback '!!OSTEC.ConnPick()'       tooltip 'Соединить элементы монтажных систем'
			button    .bOstecPick pixmap /$!iconpath\OSTPick.png width 16 height 16 at x0 y1 callback '!!OSTEC.Pick()'       tooltip 'Установить элемент на поверхность'
			button    .bOstecTrayPick pixmap /$!iconpath\OSTTrayPick.png width 16 height 16 at x0 y1 callback '!!OSTEC.TrayPick()'       tooltip 'Установить элемент под лоток'
			button    .bOstecRotate pixmap /$!iconpath\OSTRotate.png width 16 height 16 at x0 y1 callback '!!OSTEC.Rotate(90)'       tooltip 'Повернуть элемент'
			
			button    .bOstecVol pixmap /$!iconpath\OSTVol.png width 16 height 16 at x0 y1 callback '!!SetTrayVol()'       tooltip 'Задать резервный объём'
			button    .bOstecCoverON pixmap /$!iconpath\OSTCoverON.png width 16 height 16 at x0 y1 callback '!!SetTrayCover(1) '       tooltip 'установить крышку'
			button    .bOstecCoverOFF pixmap /$!iconpath\OSTCoverOFF.png width 16 height 16 at x0 y1 callback '!!SetTrayCover(0) '       tooltip 'убрать крышку'
			button    .bOstecSpec pixmap /$!iconpath\OSTSpec.png width 16 height 16 at x0 y1 callback 'show !!OstecSpecForm'       tooltip 'Спецификация'
			
			button    .bOstecFill pixmap /$!iconpath\OSTFill.png width 16 height 16 at x0 y1 callback 'show _CDFILL'       tooltip 'Fill'
			button    .bOstecUnfill pixmap /$!iconpath\OSTUnfill.png width 16 height 16 at x0 y1 callback 'show _CDUNFILL'       tooltip 'Unfill'
			button    .bOstecFlipConn pixmap /$!iconpath\OSTFlipConn.png width 16 height 16 at x0 y1 callback '!!flipconn(1)'       tooltip 'Flip+CONN'
		$(
		!!appdesmain.b0.active = false
	    !!appdesmain.b1.active = false
        !!appdesmain.b2.active = false
        !!appdesmain.b3.active = false
        !!appdesmain.b4.active = false
$)
	exit
  
endmethod
--

--

--
