Manuel,
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 )
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: Google [Bot] and 61 guests