Ajuda

[lailton.webmaster]

Holla me gostaria de una class que criase una dialog dentro de
una otra dialog

alguem sabe como fazer ?

define dialog x1

x2:[aki dialog 2]

activate dialog x1 on init (x2:Activate())

[Antonio Linares]

Code: Select all  Expand view  RUN

local oDlg1

DEFINE DIALOG oDlg1

ACTIVATE DIALOG oDlg1 ;
   ON INIT CreaDialog2()

...

function CreaDialog2()

   local oDlg2

   DEFINE DIALOG oDlg2

   ACTIVATE DIALOG oDlg2

return nil


[lailton.webmaster]

Anoni, yo gostaria que la 2 dialog fica-se dientro dela 1 dialog

yo fiz lo que yo queria pero mostra las barra de rolagem como desativar?

Code: Select all  Expand view  RUN

CLASS cFolder
DATA aDialogs
METHOD New(nTop,nLeft,nWidth,nHeight) CONSTRUCTOR
ENDCLASS

METHOD New(nTop,nLeft,nWidth,nHeight) CLASS cFolder
Local i,novo
novo:=TDialog():New(nTop,nLeft,nWidth,nHeight,,,,.F.,NOR(268435456,4194304,1073741824,2097152),,,,oDlg,.T.,,,,,)
novo:Activate(novo:bLClicked,novo:bMoved,novo:bPainted,.F.,, .F. ,,novo:bRClicked,{||.T.},)
Return(Self)

yo gostaria que sumise no mostrase la SCROOL