FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour bugs FW14.06
Posts: 518
Joined: Fri Jun 29, 2012 12:49 PM
Re: bugs FW14.06
Posted: Mon Jun 30, 2014 08:12 PM
Manuel,

Muchas gracias, parece que se va viendo bien:



Entonces, 驴el problema no es de la clase tmetafil.prg?.
Posts: 1516
Joined: Thu May 27, 2010 02:06 PM
Re: bugs FW14.06
Posted: Mon Jun 30, 2014 09:54 PM
Realmente el unico cambio que tenemos que hacer en la clase original es a帽adir el menu a mdichild . No preguntes el motivo , pues no lo s茅 , pero resuelve el problema .Mirando versiones anteriores ( la 13.06 ) no llevaba esto y no se produc铆a el problema . 驴?
El problema ademas es que si deseamos quitar el menu no podremos .

Code (fw): Select all Collapse
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 聽

......
Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM
Re: bugs FW14.06
Posted: Mon Jun 30, 2014 11:07 PM
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.

We have adopted this change for the next release:
Code (fw): Select all Collapse
if ValType( ::bAction ) == "B" .and. ::IsKindOf( "TGET" )
Regards



G. N. Rao.

Hyderabad, India
Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM
Re: bugs FW14.06
Posted: Mon Jun 30, 2014 11:15 PM
Preview problem:

The problem occurs only for non-modal previews in MDI environment. The problem is not created in 14.06 but has been there for a very long time till 14.06.

Fix:
Please locate the first line in the method SetFactor( nValue ) of TPreview. This is the present code.
Code (fw): Select all Collapse
 聽 local lInit := .F.

Please replace change this as:
Code (fw): Select all Collapse
 聽 local lInit := ( PCount() == 0 )

This fix is included in the next release and this fix works for all previous versions where the problem existed.
Regards



G. N. Rao.

Hyderabad, India
Posts: 422
Joined: Mon Aug 17, 2009 12:18 PM
Re: bugs FW14.06
Posted: Tue Jul 01, 2014 04:44 AM

Dear Mr. Nages,

When those changes would be available?.

I plan to catch de FWH64 bits offer.

Yours sincerely

Saludos,



Eduardo
Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM
Re: bugs FW14.06
Posted: Tue Jul 01, 2014 05:15 AM

Any release from this moment onwards will have this fix.

Regards



G. N. Rao.

Hyderabad, India

Continue the discussion