Problem after upgrading to 2.7

Problem after upgrading to 2.7

Postby reinaldocrespo » Fri Mar 03, 2006 11:34 pm

Hi.

Here is another one:

With fw 2.5 and xharb 0.99, the line below used to execute just fine:

Code: Select all  Expand view
   REDEFINE RICHEDIT ::oTrDg VAR ::oDg:VarText ID 100 OF ::oFld:aDialogs[ 2 ] FONT ::oFont


But after upgrading to fw 2.7 and xharb 0.99.6, I get a run time error:
Code: Select all  Expand view
Path and name: F:\mp\PathLabs.exe (32 bits)
   Size: 2,825,728 bytes
   Time from start: 0 hours 1 mins 17 secs
   Error occurred at: 03/03/2006, 18:30:14
   Error description: Error BASE/1004  Class: 'BLOCK' has no exported method: DEFCONTROL
   Args:
     [   1] = O   Object


Can someone help?

Reinaldo.
User avatar
reinaldocrespo
 
Posts: 979
Joined: Thu Nov 17, 2005 5:49 pm
Location: Fort Lauderdale, FL

Postby Antonio Linares » Fri Mar 03, 2006 11:57 pm

Reinaldo,

Its already fixed. We are going to upload FWH.exe again in a few minutes.

Already available.
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42076
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Postby reinaldocrespo » Sat Mar 04, 2006 12:25 am

Gracias Antonio.

Ya no tengo ese problema. Pero tengo otro. Tal vez esten relacionados. Este codigo me funcionaba bien con xharb 0.99 y fw2.5:
Code: Select all  Expand view
   cFile    := WINDIR()+"t" + strZero( nRandom(), 6 ) + ".rtf"
   REDEFINE RCHEDIT ::oTrGrss VAR ::oGrss:VarText ID 100 OF ::oFld:aDialogs[ 2 ] FONT ::oFont
   MemoWrit( cFile, ::oGrss:VarText )
   ::oTrGrss:LoadFromRtfFile( cFile )
   ::oFld:aDialogs[ 1 ]:SetControl( ::oTrGrss )
   ::oTrGrss:lReadOnly   := ::lReadOnly
   ::oTrGrss:oDbf      := ::oGrss
   ::oFld:aDialogs[ 1 ]:Cargo  := "TRICHEDIT"

   cFile    := WINDIR()+"t" + strZero( nRandom(), 6 ) + ".rtf"
   REDEFINE RCHEDIT ::oTrDg VAR ::oDg:VarText ID 100 OF ::oFld:aDialogs[ 2 ] FONT ::oFont
   MemoWrit( cFile, ::oDg:VarText )
   ::oTrDg:LoadFromRtfFile( cFile )
   ::oTrDg:oDbf      := ::oDg
   ::oFld:aDialogs[ 2 ]:SetControl( ::oTrDg )
   ::oTrDg:lReadOnly   := ::lReadOnly
   ::oFld:aDialogs[ 2 ]:Cargo  := "TRICHEDIT"


Ahora cuando ejecuta recibo este run time error:
Code: Select all  Expand view
Application
===========
   Path and name: F:\mp\PathLabs.exe (32 bits)
   Size: 2,821,120 bytes
   Time from start: 0 hours 0 mins 7 secs
   Error occurred at: 03/03/2006, 19:20:28
   Error description: Error FiveWin/2  Duplicated Id: No:    100


No debiera quejarse, pues cada control se encuentra dentro un folder diferente.

Que piensas?


Reinaldo.
User avatar
reinaldocrespo
 
Posts: 979
Joined: Thu Nov 17, 2005 5:49 pm
Location: Fort Lauderdale, FL

Postby reinaldocrespo » Sat Mar 04, 2006 4:29 pm

Antonio;

Olvidalo. Mi error. Si te fijas entré ::ofld:aDialogs[ 2 ] en ambos parrafos. Sorry.

Gracias por tu ayuda.

Saluods,


Reinaldo.
User avatar
reinaldocrespo
 
Posts: 979
Joined: Thu Nov 17, 2005 5:49 pm
Location: Fort Lauderdale, FL

Postby Antonio Linares » Sat Mar 04, 2006 4:31 pm

Reinaldo,

glad to know it is ok :)
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42076
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain


Return to FiveWin for Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 79 guests