Manuel,
Muchas gracias, parece que se va viendo bien:

Entonces, 驴el problema no es de la clase tmetafil.prg?.
Muchas gracias, parece que se va viendo bien:

Entonces, 驴el problema no es de la clase tmetafil.prg?.

METHOD BuildWindow() CLASS TPreview
......
聽 if ! ::oDevice:lPrvModal .and. ::oWndMain != nil .and. ;
聽 聽 聽 Upper( ::oWndMain:ClassName() ) == "TMDIFRAME"
聽 聽 聽 DEFINE WINDOW ::oWnd ;
聽 聽 聽 聽 聽TITLE cTitle ;
聽 聽 聽 聽 聽COLOR CLR_BLACK,CLR_LIGHTGRAY ;
聽 聽 聽 聽 聽ICON 聽oIcon ;
聽 聽 聽 聽 聽VSCROLL HSCROLL MDICHILD MENU ::BuildMenu() 聽 // a帽adir la creaci贸n de menu en el mdichild 聽
......mgsoft wrote:Elvira,
Hay un bug en el m茅todo CreateButton() de la clase tGet.prg
Busca este c贸digo:
if ValType( ::bAction ) == "B" .and. Upper( ::ClassName() ) == "TGET"
Sin embargo, deber铆a ser en realidad Upper( ::Super:ClassName() ), porque si hacemos una clase derivada de TGET como es el caso de AutoGet entonces no funci贸na el bot贸n.
Prueba y me dices.
if ValType( ::bAction ) == "B" .and. ::IsKindOf( "TGET" ) 聽 local lInit := .F. 聽 local lInit := ( PCount() == 0 )Dear Mr. Nages,
When those changes would be available?.
I plan to catch de FWH64 bits offer.
Yours sincerely
Any release from this moment onwards will have this fix.