Otro Problema en folders

[mastintin]

El tema es que se crea un folder inicial con datos y si el numero de datos excede de 100 , crea otro folder para acomodar mas datos , esto sería valido para mas folders aunque en el ejemplo este limitado a solo 2 folders.
El código de creacion de checkbox es común , pero no coge el mismo "sistema de dimensiones" si se crea el folder desde el código antes de activar el Dialogo o a posteriori en el init .
Pongo el código que lo reproduce

Code: Select all  Expand view

#include "FiveWin.ch"

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

function Main()

   local oDlg, oFld
   local avar:= {}
   local acheckbox:= {}
   local i
   local x,y
   
   DEFINE DIALOG oDlg TITLE "FiveWin Dynamic folders" ;
      FROM 5, 5 TO 40, 120 COLOR "N/G"

     
   @ 30,10 FOLDER oFld PROMPT "1-99" OF oDlg  PIXEL SIZE 400,175


       AAdd( aVar, Array(100) )
       AAdd( aCheckbox,  Array(100) )

   x:=0
   y:=0

   for i = 1 to 99

      acheckbox[1,i] := TCheckBox():New(8+x,5+y, , MakeChkBox( aVar[1], i ), oFld:aDialogs[ 1 ],40,12,,,,,,,,.t. )

   
       y:=y+44
       if y > 360
          y:= 0
          x:=x+13
       endif

   
   next

 
 
   ACTIVATE DIALOG oDlg CENTERED ;
    ON INIT (  Another(oFld,aVar,aCheckbox) )

return nil

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

Function MakeChkBox( valor, a )
Return { | u | If( PCount()==0, valor[ a ], valor[ a ]:= u ) }

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

function Another(oFld,aVar,aCheckbox)
    local i
    local x,y
   
   oFld:addItem("100-199")
   
   AAdd( aVar, Array(100) )
   AAdd( aCheckbox,  Array(100) )

   x:=0
   y:=0

   for i = 1 to 99

      acheckbox[2,i] := TCheckBox():New(8+x,5+y, , MakeChkBox( aVar[2], i ), oFld:aDialogs[ 2 ],40,12,,,,,,,,.t. )

   
       y:=y+44
       if y > 360
          y:= 0
          x:=x+13
       endif

   
   next

Return nil


 

[Antonio Linares]

Manuel,

Las páginas de los folders usan un diálogo, y se aplica lo mismo que en todos los diálogos: al crear sus controles a priori, se usan "dialog units" y si el diálogo está ya creado, se usan pixels para los controles:

viewtopic.php?p=151592#p151592

[mastintin]

Manuel,

Las páginas de los folders usan un diálogo, y se aplica lo mismo que en todos los diálogos: al crear sus controles a priori, se usan "dialog units" y si el diálogo está ya creado, se usan pixels para los controles:

viewtopic.php?p=151592#p151592

Gracias por la aclaración Antonio . Creare los dos dialogos desde el init y asunto solucionado .
Saludos.