para el uso de FILES
Code: Select all
::oBmp := TBtnBmp():ReDefine( ::nId, , , if( len( ::aFileName ) > 0, ::cPath + ::aFileName[ 1 ],), , ,;
::bAction, ::oWnd, , ::bWhen, , ,;
::cPrompt, ::oFont, , , ::lBorder, ::cLayout )
Code: Select all
::oBmp := TBtnBmp():ReDefine( ::nId, if ( len( ::aResName ) > 0, ::aResName[ 1 ] ,), , , , ,;
::bAction, ::oWnd, , ::bWhen, , ,;
::cPrompt, ::oFont, , , ::lBorder, ::cLayout )