FiveTech Software tech support forums

if ! PDFActivex(@arq) return(.f.) endif DEFINE WINDOW oWndpdf MDICHILD OF oWnd vscroll icon oico TITLE ALLTRIM(cFile) pdfoActiveX = TActiveX():New( oWndpdf, arq ) oWndpdf:oClient = pdfoActiveX pdfoActiveX:Do( "LoadFile", cFile ) pdfoActiveX:Do( "SetCurrentPage", ...

... "+xLOGIN+" Rights "+cRIGHTS+ ; " Default= "+cDEFA+" Rdd= "+cRDD+ ; " Revision "+DTOC(dEXE)+; " -r"+str(nSCR1,4)+" x "+STR(nSCR2,4) DEFINE ICON oICO RESOURCE "COUPLE" DEFINE WINDOW oWind ; FROM 0,2 to 28,78 ; TITLE "PCAS Time and Data entry Program" ; MENU BuildMenu(cOLDDEFA,dEXE,cRDD,nSCR1,nSCR2) ...

... // Ejemplo de Prueba de Fivewin + Crystal Report 6.0 #include "FiveWin.ch" static oWnd static oCrw static wInstalado Function prueba() local oBar, oIco SET 3DLOOK ON sethandlecount(90) // Inicializa el entorno de Crystal y carga librerias oCrw := CrystalReport():New() // Dice donde esta el programa ...

... from: cxturno.prg => FWHCXTURNO(109) Fonte: acaixas:={{"","","","","","",""}} DEFINE DIALOG oDlg RESOURCE "CAIXATURNO" FONT ownd:ofont ICON OICO REDEFINE BROWSE oBrw2 ID 4016 OF oDlg COLOR CLR_BLACK,CLR_LGREEN obRW2:lNoVScroll := .F. //Tem que estar aqui obRW2:lNoHScroll := .T. //Tem que ...

... NONE NOMINIMIZE NOMAXIMIZE ; TITLE "Sample " + LTrim( Str( nSample ) ) BRUSH aBrush[ 8 ] ; FROM 0,0 TO oWnd:nBottom, oWnd:nRight PIXEL ; ICON oIco ; MDICHILD Else DEFINE WINDOW aWChild[ nSample ] OF oWnd BORDER NONE NOMINIMIZE NOMAXIMIZE ; TITLE "Sample " + LTrim( Str( nSample ) ) ; FROM 0,0 ...

Antolin,

En tu PRG:

local oIco

DEFINE ICON oIco RESOURCE 1

DEFINE DIALOG oDlg ;
TITLE "Test Folder Design" ;
FROM 5, 5 TO 25, 49 ICON oIco

En tu fichero RC:

1 ICON FiveWin.ico

... #define CLR_1 nRGB( 190, 215, 190 ) #define CLR_2 nRGB( 230, 230, 230 ) #define CLR_3 nRGB( 217, 217, 255 ) // REQUEST DBFCDX, DBFFPT Static oWnd, oIco, aWChild, aFont[ 5 ], aBrush[ 8 ], aBmp[ 6 ] //----------------------------------------------------------------------------// Function Main() //----------------------------------------------------------------------------// ...

... else Define Font fonte_TC2 Name 'Lucida Console' Size -6,16 endif DEFINE WINDOW oWndChild OF ownd MDICHILD TITLE "Touch Screen - "+mesatitulo icon oico color GetSysColor(COLOR_BTNFACE),GetSysColor(COLOR_BTNFACE) @ 8, 0 TABS oTabs PROMPTS " Vendas "," Outras Opções " OF oWndChild ; message "Escolha ...

DEFINE WINDOW oWndChild OF ownd MDICHILD TITLE "Touch Screen" icon oico color GetSysColor(COLOR_BTNFACE),GetSysColor(COLOR_BTNFACE) @ 8, 0 TABS oTabs PROMPTS " Vendas "," Outras Opções " OF oWndChild ; message "Escolha a opção"; ACTION ( aDlgs[ nDlg ]:Hide(), ...

... a selection to change the form of the dialog IF lStandard // active standard calc DEFINE DIALOG oDlg SIZE 255, 245 TITLE cTitle FONT oFont ICON oIco ELSE DEFINE DIALOG oDlg SIZE 485, 245 TITLE cTitle FONT oFont ICON oIco ENDIF I want only refresh the dialog and change the form iand esecute DEFINE ...

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 ...

... BrwClientes() NO ME FUNCIONA #Include "FiveWin.Ch" static oWnd, oClientes, oClient, oName static cName Function Main() Local oBarBtn,oFont,oIcon,oBtns[10] Public oWndMain,aUsuarios:={}, oDlg USE cat_cli ALIAS Clientes USE tab_emp New Select Clientes //Inicio() // DEFINE ICON oIcon RESOURCE ...

... BrwClientes() NO ME FUNCIONA #Include "FiveWin.Ch" static oWnd, oClientes, oClient, oName static cName Function Main() Local oBarBtn,oFont,oIcon,oBtns[10] Public oWndMain,aUsuarios:={}, oDlg USE cat_cli ALIAS Clientes USE tab_emp New Select Clientes //Inicio() // DEFINE ICON oIcon RESOURCE ...

... quero deixar a pessoa ter acesso a digitar. como fiz: cBanda := "" DEFINE DIALOG oMFW RESOURCE "LEITURADECHEQUES" TITLE "Cheques pela Banda ICON OICO FONT ownd:ofont REDEFINE GET oLeget var nVarLe id 4004 of oMFW VALID !EMPTY(nVarLe) .and. (lLido:=.t.,oMFW:end(),.t.) REDEFINE BUTTONBMP ID 4002 ...

Prueba al terminar tu aplicacion

ACTIVATE WINDOW oWnd MAXIMIZED

dbCloseAll()
oIco:End() //si tienes un icono
oBmp:End() //si tienes alguna imagen
Memory(-1)
PostQuitMessage( 0 )

return nil