COMO UTILIZAR TPAGES DENTRO DE UN FOLDER

[busmatic]

uN SALUDITO..

Por Problema de folders que he tenido me han dado una idea de utilizar tpages, bueno me podriaan ayudar con un ejemplo de tulizacion pues nunca en mi vida las he utilizado.

Gracias..
Busmatic
thanks

[Raymundo Islas M.]

Oscar

Es practicamente identico a usar un folder :

REDEFINE PAGES oPagSrc ID 102 OF oFold:aDialogs[2] DIALOGS "PGMODS","PGSISUB", ;
"PGMPRD","PGFIN"


REDEFINE GET aSrcDts[ 1] ID 103 OF oPagSrc:aDialogs[1] WHEN .F. UPDATE

etc. etc

Una de las diferencias, es que el folder tiene la forma visual caracteristica, mientras que el page es solo una area, yo normalmente la acompaño con algun TABs


SALUDOS

[Antonio Linares]

Busmatic,

Si lo que necesitas es cambiar dinámicamente un diálogo de un folder por otro diálogo, no es necesario que uses pages.

Vamos a intentar contruirte un ejemplo de como hacerlo.

[busmatic]

Si antonio
Si el cambio podria llamarse dinamico, pues he provado de toda forma y e llamado a los brujos y sortilejios y nada , es algo un poco estraño o particular diria yo.

Gracias Antonio ya todos, espero mana del cielo

Busmatic
Thanks

[Antonio Linares]

Aqui tienes el ejemplo test.prg :

Code: Select all  Expand view  RUN

// Dinamically changing a folder dialog

#include "FiveWin.ch"

function Main()

   local oDlg, oFld
   
   DEFINE DIALOG oDlg RESOURCE "Test"
   
   REDEFINE FOLDER oFld ID 10 OF oDlg ;
      PROMPTS "One", "Two", "Three" ;
      DIALOGS "dlg1", "dlg2", "dlg3"
     
   REDEFINE BUTTON ID 20 OF oFld:aDialogs[ 2 ] ;
      ACTION ChangeDlg( oFld )   
   
   ACTIVATE DIALOG oDlg CENTERED
   
return nil   

function ChangeDlg( oFld )

   oFld:aDialogs[ 2 ]:bValid = nil
   oFld:aDialogs[ 2 ]:End()

   DEFINE DIALOG oFld:aDialogs[ 2 ] RESOURCE "dlg4" OF oFld ;
      FONT oFld:oFont
   
   ACTIVATE DIALOG oFld:aDialogs[ 2 ] NOWAIT ;
      ON INIT oFld:aDialogs[ 2 ]:Move( oFld:nFdHeight - 1, 1 ) ;
      VALID .f.
     
   oFld:aDialogs[ 2 ]:SetSize( oFld:nWidth() - 4,;
                               oFld:nHeight() - oFld:nFdHeight - 2 )   
   
return nil   


y el recurso test.rc :

Code: Select all  Expand view  RUN

test DIALOG 56, 54, 194, 148
STYLE DS_MODALFRAME | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU
CAPTION "Test"
FONT 8, "MS Sans Serif"
{
CONTROL "", 10, "SysTabControl32", 0 | WS_CHILD | WS_VISIBLE, 8, 9, 178, 114
DEFPUSHBUTTON "OK", IDOK, 42, 128, 50, 16
PUSHBUTTON "Cancel", IDCANCEL, 102, 128, 50, 16
}

dlg1 DIALOG 18, 18, 134, 84
STYLE WS_CHILD | 4
{
LTEXT "First page:", 10, 22, 17, 48, 8
EDITTEXT 10, 22, 30, 65, 11
}

dlg2 DIALOG 18, 18, 134, 84
STYLE WS_CHILD | 4
{
LTEXT "Second page:", 10, 22, 17, 48, 8
EDITTEXT 10, 22, 30, 65, 11
PUSHBUTTON "Change", 20, 45, 57, 44, 12
}

dlg3 DIALOG 18, 18, 134, 84
STYLE WS_CHILD | 4
{
LTEXT "Third page:", 10, 22, 17, 48, 8
EDITTEXT 10, 22, 30, 65, 11
}

dlg4 DIALOG 18, 18, 134, 84
STYLE WS_CHILD | 4
{
LTEXT "Fourth page:", 10, 22, 17, 48, 8
EDITTEXT 10, 22, 30, 65, 11
}


[busmatic]

Perfecto, mil gracias, exactamente era lo quu deseaba, he para mucho este tipo de programacion a veces en dificil pue no tenemos la mente para hacerlo pues tanto probamos que nada sale. Gracias por contribuir a la causa.

Oscar Chacon
Bumatic.