El codigo es el siguiente:
Code: Select all
$oFont = new TFont( 'Comic Sans MS, cursive, sans-serif', 26, true, false, false, CLR_BLUE );
$oRc = new TRc( 'Agricu.rc', 'BUSCAR_POR' );
$oWnd = $oRc->TDialog();
$oRc->TGet ( $oWnd, 4010, '123' );
$oRc->TImage ( $oWnd, 4001, IMAGE, IMAGE_BIG);
$oRc->TRadio ( $oWnd, 'bus_por', array( 4003, 4004, 4006 ) );
$oRc->TButton ( $oWnd, 100, 'Ok', 'Test()' );
$oWnd->Activate()
Pongo aqui la consulta porque el foro de TWeb todavia no me habilita.
Gracias