by MGA » Wed Mar 05, 2008 11:20 am
Antonio,
ventana principal:
DEFINE WINDOW oWnd ;
ICON OICO ;
TITLE ".:: SISTEMAS ::. "+NomeCliente;
MENU PreparaMenu() MENUINFO 4 MDI
vendata para controle de pedidos, utilizando tabs:
DEFINE WINDOW oWndDisk OF ownd MDICHILD TITLE "Pedidos" icon oico color GetSysColor(COLOR_BTNFACE),GetSysColor(COLOR_BTNFACE)
@ 8, 0 TABS oTabs PROMPTS " Pedidos "," Mapa " OF oWndDisk ;
BITMAPS "PROD2", "GOOGLE";
ACTION ( aDlgs[ nDlg ]:Hide(), nDlg := nOption,;
aDlgs[ nOption ]:Show(), aDlgs[ nOption ]:SetFocus(), if(nDlg=2,(FWHmostramapa(),refresharrayall(o2says)),) ) color CLR_BLACK
oWndDisk:obottom := oTabs
oWndDisk:Resize()
DEFINE DIALOG oDlg1 RESOURCE "PEDIDO1" OF oWndDisk
ACTIVATE DIALOG oDlg1 NOWAIT ON INIT (oDlg1:Move( 0, 0 ))
DEFINE DIALOG oDlg2 RESOURCE "PEDIDO2" OF oWndDisk
ACTIVATE DIALOG oDlg2 NOWAIT ON INIT (oDlg2:Move( 0, 0 ))
oDlg2:Hide()
oDlg1:SetFocus()
aDlgs:={ oDlg1, oDlg2 }
ACTIVATE WINDOW oWndDisk maximized