... linea 639 AEval( ::aControls,; { | o | If( ! Upper( o:ClassName() ) $ ; "TGET;TMULTIGET;TBTNBMP;TCOMBOBOX;TWBROWSE;TSBROWSE;TCBROWSE;TXBROWSE;TLISTBOX;TDBCOMBO;TDATEPICK" .and. ; ! o:IsKindOf( 'TXBROWSE' ) .and. ! o:isKindOf( "TBTNFLAT" ), o:lTransparent := .T., ) } )