Where is the error ?

[lailton.webmaster]

Hey there,
i wanna a class that make a dialog inside of other dialog, only to insert
button to action the same toolbar.

Code: Select all  Expand view

Function main()

DEFINE DIALOG oDlg From 00,00 to 325,355 TITLE "titulo." PIXEL OF oWndIni COLORS CLR_WHITE,CLR_WHITE STYLE nOr(DS_MODALFRAME)

oFld := cFolder():New(05,05,{"Aba1","Aba2","Aba3"},oDlg,CLR_BLUE,CLR_WHITE,CLR_WHITE,300,300,oFonSay,.T.,1,.F.)


ACTIVATE DIALOG oDlg CENTERED

return(Nil)


*----------------------------------------------------*

CLASS cFolder
DATA aDialogs
METHOD New(nTop,nLeft,aPrompts,oDlgPai,nCor1,nCor2,nCor3,nWidth,nHeight,oFonte,lPixel,nOption,lDesign) CONSTRUCTOR
ENDCLASS

METHOD New(nTop,nLeft,aPrompts,oDlgPai,nCor1,nCor2,nCor3,nWidth,nHeight,oFonte,lPixel,nOption,lDesign) CLASS cFolder
Local i,oDlgFld,oAbas
DEFAULT aPrompts := {"Aba&1","Aba&2","Aba&3"} , oDlgPai := GetWndDefault() ,nCor1 := CLR_BLUE , nCor2 := CLR_WHITE , nCor3 := CLR_BLACK ,;
nWidth := 100 , nHeight := 100 , oFonte := oFonSay , lPixel := .T. , nOption := 1 , lDesign := .F.


oDlgFld:=TDialog():New(nTop,nLeft,nWidth,nHeight,,,,.F.,NOR(268435456,4194304,1073741824,2097152),nCor3,nCor3,,oDlgPai,.T.,,,,,)
TTabs():New(nTop,nLeft,aPrompts,{||.t. },oDlgFld,nOption,nCor1,nCor2,lPixel,lDesign,nWidth,nHeight,)
oDlgFld:Activate(oDlgFld:bLClicked,oDlgFld:bMoved,oDlgFld:bPainted,.F.,, .F. ,,oDlgFld:bRClicked,{||.T.},)
Return(Self)

i found this code mora i think that have error
someone can help me

thanks so much.

[Antonio Linares]

Try it this way:

Code: Select all  Expand view

DEFINE DIALOG oDlg From 00,00 to 325,355 TITLE "titulo." PIXEL OF oWndIni COLORS CLR_WHITE,CLR_WHITE STYLE nOr(DS_MODALFRAME)

ACTIVATE DIALOG oDlg CENTERED ;
   ON INIT oFld := cFolder():New(05,05,{"Aba1","Aba2","Aba3"},oDlg,CLR_BLUE,CLR_WHITE,CLR_WHITE,300,300,oFonSay,.T.,1,.F.)


[lailton.webmaster]

thanks antonio