I made this on code
nMod :=1
ACTIVATE DIALOG oApp():oDlg NOWAIT;
ON PAINT (oApp():AdjClient() ,oApp():AdjRight());
ON INIT ( BuildPanel(nMod) ,;
.....
Function BuildPanel(nMod)
oApp():oTaskPanel := TExplorerBar():New( 0, 0,oApp():oPanelLeft:nwidth-5, oApp():oPanelLeft:nbottom, oApp():oPanelLeft )
oApp():oCont = oApp():oTaskPanel:AddPanel( "Customer", "c:\work\fwh\bitmaps\32x32\people.bmp",1 )
oApp():lSpecial = .T.
oApp():oCont2 = oApp():oTaskPanel:AddPanel(oApp():cTitle,"c:\work\fwh\bitmaps\32x32\people.bmp" )
oApp():AddLink( "Nuovo utente", Sol_Datos(.t.), "c:\work\fwh\bitmaps\16x16\additem.bmp" )
Before to create the dialog it run Sol_Datos(.t.) Function ....WHY ?
nMod :=1
ACTIVATE DIALOG oApp():oDlg NOWAIT;
ON PAINT (oApp():AdjClient() ,oApp():AdjRight());
ON INIT ( BuildPanel(nMod) ,;
.....
Function BuildPanel(nMod)
oApp():oTaskPanel := TExplorerBar():New( 0, 0,oApp():oPanelLeft:nwidth-5, oApp():oPanelLeft:nbottom, oApp():oPanelLeft )
oApp():oCont = oApp():oTaskPanel:AddPanel( "Customer", "c:\work\fwh\bitmaps\32x32\people.bmp",1 )
oApp():lSpecial = .T.
oApp():oCont2 = oApp():oTaskPanel:AddPanel(oApp():cTitle,"c:\work\fwh\bitmaps\32x32\people.bmp" )
oApp():AddLink( "Nuovo utente", Sol_Datos(.t.), "c:\work\fwh\bitmaps\16x16\additem.bmp" )
Before to create the dialog it run Sol_Datos(.t.) Function ....WHY ?
Best Regards, Saludos
Falconi Silvio
Falconi Silvio