Existe un pequeño bug en Tdialog , y es que no se asigna en el New la Data cVarName . Cuando queremos ejecutar el metodo cGenprg () lanza error al ser cVarName Nil .
Saludos.
FiveTech Support Forums
FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Bug en Tdialog
Para corregirlo :
METHOD New( nTop, nLeft, nBottom, nRight, cCaption, cResName, hResources,;
lVbx, nStyle, nClrText, nClrBack, oBrush, oWnd, lPixels,;
oIco, oFont, nHelpId, nWidth, nHeight, lTransparent, aNewGradColors, cVarName ) CLASS TDialog
...
if lVbx
if ! VbxInit( GetInstance(), "" )
MsgAlert( "VBX support not available" )
endif
endif
DEFAULT cVarName := "oDlg"
::cVarName = cVarName
....
Manuel,
gracias, incluido para el próximo build 