|
From: Alexander S.K. <al...@be...> - 2013-02-14 12:29:35
|
oleksa пишет: > Hi! > > Is it enough to add the next lines (+) for correct work this func? > > FUNCTION GetSkip( oParent, hCtrl, lClipper, nSkip ) > LOCAL i, nextHandle, oCtrl > LOCAL oForm := iif( ( oForm := hwg_GetParentForm(oParent ) ) = Nil, oParent, oForm ) > + if oform:classname=="HFORMTMPL" > + oForm := oForm:oDlg > + endif > DEFAULT nSkip := 1 > > Regards, > Alexey Myronenko > > > --- Оригінальне повідомлення --- > Від кого: "oleksa" <m.o...@uk...> > Кому: hwg...@li... > Дата: 7 лютого 2013, 13:12:00 > Тема: [Hwgui-developers] Error BASE/1004 Message not found: HFORMTMPL:TYPE > > > > >> Hi! >> >> Try Test1 from hwgui\utils\designer\samples\example.prg and press the Tab key. >> >> >> Error BASE/1004 Message not found: HFORMTMPL:TYPE >> Called from ->__ERRRT_SBASE(0) >> Called from ../../../tobject.prg->HFORMTMPL:ERROR(0) >> Called from ../../../tobject.prg->(b)HBOBJECT(0) >> Called from ../../../tobject.prg->HFORMTMPL:MSGNOTFOUND(0) >> Called from ../../../tobject.prg->HFORMTMPL:TYPE(0) >> Called from source\hedit.prg->GETSKIP(1423) >> Called from source\hedit.prg->HEDIT:ONEVENT(358) >> Called from ->HWG_DLGBOXINDIRECT(0) >> Called from source\hdialog.prg->HDIALOG:ACTIVATE(178) >> Called from source\procmisc\hfrmtmpl.prg->HFORMTMPL:SHOW(428) >> Called from source\procmisc\hfrmtmpl.prg->(b)COMPILEMETHOD(539) >> Called from source\hownbtn.prg->HOWNBUTTON:MUP(470) >> Called from source\hownbtn.prg->HOWNBUTTON:ONEVENT(174) >> Called from ->HWG_ACTIVATEMAINWINDOW(0) >> Called from source\hwindow.prg->HMAINWINDOW:ACTIVATE(433) >> Called from source\procmisc\hfrmtmpl.prg->HFORMTMPL:SHOW(428) >> Called from source\procmisc\hfrmtmpl.prg->(b)HFORMTMPL(165) >> Called from source\procmisc\hfrmtmpl.prg->HFORMTMPL:SHOWMAIN(0) >> Called from example.prg->MAIN(21) >> >> HwGUI 2.17 Harbour 3.2.0dev (Rev. 18819) >> Date:02/07/13 >> Time:12:52:45 >> >> Regards, >> Alexey Myronenko >> >> ------------------------------------------------------------------------------ >> Free Next-Gen Firewall Hardware Offer >> Buy your Sophos next-gen firewall before the end March 2013 >> and get the hardware for free! Learn more. >> http://p.sf.net/sfu/sophos-d2d-feb >> _______________________________________________ >> Hwgui-developers mailing list >> Hwg...@li... >> https://lists.sourceforge.net/lists/listinfo/hwgui-developers > > ------------------------------------------------------------------------------ > Free Next-Gen Firewall Hardware Offer > Buy your Sophos next-gen firewall before the end March 2013 > and get the hardware for free! Learn more. > http://p.sf.net/sfu/sophos-d2d-feb > _______________________________________________ > Hwgui-developers mailing list > Hwg...@li... > https://lists.sourceforge.net/lists/listinfo/hwgui-developers |