topic-27447

Posts: 1516

Joined: Thu May 27, 2010 02:06 PM

Error en folders
Posted: Fri Oct 11, 2013 10:06 AM

Quiero crear dinamicamente hojas de folder segun tenga mas o menos Datos que mostrar , pero me encuentro con un error en los folders .
Dejo el codigo simplificado que genera el error :

Code (fw): Select all Collapse

#include "FiveWin.ch"

//----------------------------------------------------------------------------//

function Main()

   local oDlg, oFld

   DEFINE DIALOG oDlg TITLE "FiveWin Dynamic folders" ;
      FROM 5, 5 TO 20, 50 COLOR "N/G"

   @ 0.5, 1 FOLDER oFld OF oDlg SIZE 160, 90

 
  
   ACTIVATE DIALOG oDlg CENTERED ;
   ON INIT ( ofld:delPages() ,oFld:addItem("Hola") )

return nil

//----------------------------------------------------------------------------//

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: Error en folders
Posted: Fri Oct 11, 2013 12:29 PM

creo que ejista un error aqui:

Code (fw): Select all Collapse

METHOD DelPages() CLASS TFolder

   while Len( ::aPrompts ) > 0
      ::DelItem()
   end

return nil

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

mastintin

Posts: 1516

Joined: Thu May 27, 2010 02:06 PM

Re: Error en folders
Posted: Fri Oct 11, 2013 02:38 PM

El error está en la clase , en concreto en el Metodo SetOption cuando ::nOpción tiene valor 0.

Con esto a mi me resuelve el problema , pero sería bueno mirarlo detenidamente :

Code (fw): Select all Collapse

METHOD SetOption( nOption ) CLASS TFolder

   local nOldOption
     
   if nOption > 0  .and. nOption != ::nOption .and. ::aEnable[ nOption ]

      if ::nOption == 0      // añadido para solucionar el error cuando ::nOpcion := 0
         ::nOption  = nOption
      endif 
      if ::nOption <= Len( ::aDialogs ) .and. ::aDialogs[ ::nOption ] != nil
         ::aDialogs[ ::nOption ]:Hide()
      endif
      nOldOption = ::nOption
      ::nOption  = nOption

     ...
     
return nil

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: Error en folders
Posted: Fri Oct 11, 2013 03:03 PM

Manuel,

Esta solución, parecida, tambien parece servir:

Code (fw): Select all Collapse

METHOD SetOption( nOption ) CLASS TFolder

   local nOldOption

   if nOption > 0 .and. nOption != ::nOption .and. ::aEnable[ nOption ]
      if ::nOption <= Len( ::aDialogs ) .and. ::nOption > 0 .and. ::aDialogs[ ::nOption ] != nil
         ::aDialogs[ ::nOption ]:Hide()
      endif
      ...

regards, saludos

Antonio Linares
www.fivetechsoft.com

mastintin

Posts: 1516

Joined: Thu May 27, 2010 02:06 PM

Re: Error en folders
Posted: Fri Oct 11, 2013 03:14 PM

Antonio Linares wrote:Manuel,

Esta solución, parecida, tambien parece servir.

Ok. Esta opción mucho mejor .Solucionado

FiveTech Support Forums

Continue the discussion