Can I insert a dialog into TPanel ?
sample
Function test()
Local oDlg,oFld ,oSplit
DEFINE DIALOG oDlg TITLE "test " SIZE 450,500
oPanel:=Tpanel(0,0,145,100,oDlg )
oPanel:SetColor(0,RGB(143,175,230))
@ 148, 0 FOLDER oFld PROMPT "T&race Operations" ;
OF oDlg PIXEL SIZE 250, 50
@146,0 SPLITTER oSplit ;
HORIZONTAL ;
PREVIOUS CONTROLS oPanel ;
HINDS CONTROLS oFld ;
TOP MARGIN 150 ;
BOTTOM MARGIN 50 ;
SIZE 500, 2 PIXEL ;
OF oDlg ;
_3DLOOK
ACTIVATE DIALOG oDlg center ;
ON PAINT Show_dialog(oPanel)
retu nil
Function Show_dialog()
Local oDlgFtp
DEFINE DIALOG oDlgFtp
TRANSPARENT SIZE oPanel:nwidth,oPanel:nHeight PIXEL OF oPanel ;
STYLE nOr(WS_POPUP,WS_BORDER)
//here all controls
oDlgFtp:bStart := { ||msginfo("test")}
activate dialog oDlgFtp
retu nil
Falconi Silvio