FiveTech Software tech support forums

Antonio, amigos: Trato de compilar \Samples\Scripts.prg con xMate y me reclama varias funciones: Unresolved external '_HB_FUN_TWINDOW' referenced from Script.Obj Unresolved external '_HB_FUN_TBAR' referenced from Script.Obj Unresolved external '_HB_FUN_TBTNBMP' referenced from Script.Obj Unresolved ...

... function MESSAGEBOX Warning W8065 C:\Compiladores\FWH(10.6)\source\winapi\msgbox.c 80: Call to function 'hb_parni' with no prototype in function MSGYESNO Warning W8065 C:\Compiladores\FWH(10.6)\source\winapi\msgbox.c 90: Call to function 'hb_parni' with no prototype in function MSGNOYES Warning ...

... := oCursorHand } ) DEFINE MESSAGE BAR OF oWnd TITLE FWCOPYRIGHT ; NOINSET DATE CLOCK KEYBOARD ACTIVATE WINDOW oWnd ; VALID ! lPreview .and. MsgYesNo( "Want to exit ?" ) return nil function BuildMenu() local oMenu MENU oMenu MENUITEM "&Generate Report" ACTION DoReport() ...

... "FiveWin.ch" function Main() local n,hwnd n:=Seconds() do while .t. sysrefresh() if seconds()>n+20 hWnd:=GetActiveWindow() if msgyesNo("Active Window handle is "+str(hWnd,10)+" Finish test ?") exit endif n:=Seconds() endif enddo ----

... xharbour but have found a problem with a valid firing twice - the problem does not occur with xharbour. The last valid after selecting YES in the MsgYesNo - saves the invoice but the MsgYesNo re appears    REDEFINE GET oInvc:subtotal ID EditSubTtl      of oDlg UPDATE   ...

... ; MENU BuildMenu() ; BRUSH oBrush DEFINE BUTTONBAR oBar OF oWnd DEFINE BUTTON FILENAME "..\bitmaps\Exit.bmp" OF oBar ; ACTION If( MsgYesNo( "Do you want to End ?", "Please, Select" ), oWnd:End(), ) ; MESSAGE "End this session" DEFINE BUTTON FILENAME ...

... oRs:ActiveConnection := "Provider=VFPOLEDB.1;Data Source=c:\bazevani\loc.tmp;Mode=Read;Extended Properties=DBASE IV" catch If MsgYesno("Erro no acesso ao OLEDB Visual FoxPro, deseja baixa-lo agora? ","Drive VFP") ShellExecute( 0, "open", "http://www.bazevani.com.br/atualizacao/VFPOLEDBSetup.msi" ...

... ) ACTION oSelf:BuildDialog( oView, dDateFrom, dDateTo, nTimeFrom, nTimeTo ) if ! lNew MENUITEM "Delete appointment" ACTION If( MsgYesNo( "Are you sure?" ), oView:oCalex:DelCalInfo(), ) endif MENUITEM "Today" ACTION ( oView:SetDate( date() ), If( oView:IsKindOf( ...

... // SysRefresh() RETURN .T. STATIC Function DelReg( aTrabajo, oBrw1, TotVal, oDlg ) *------------------------------------------------------ IF MsgYesNo( "Atención: ¿Está seguro de querer borrar?","Verificar!" ) ADel( aTrabajo, oBrw1:nArrayAt ) ASize( aTrabajo, Len( aTrabajo ...

... oDlg:End() oWndC:Center() // ACTIVATE DIALOG oDlg NOWAIT RESIZE16 VALID iif(!GetKeyState( 27 ), oWndC:End(), .F.) ACTIVATE WINDOW oWndC VALID MsgYesNo( "Want to close it ?" ) return nil

... ACTION oDlg:End() oWndC:Center() ACTIVATE DIALOG oDlg NOWAIT RESIZE16 VALID iif(!GetKeyState( 27 ), oWndC:End(), .F.) ACTIVATE WINDOW oWndC VALID MsgYesNo( "Want to close it ?" ) return nil //----------------------------------------------------------------------------// function DoReport() ...

Is there a function to display a Message box with a timer? What I would like to do is display a box like MsgYesNo() but one that will time out after xx seconds. It will be used for an auto quit routine but I need to give the user the option to keep the program running. If they ...

gracias

MsgNoYes Boton No por defecto
MsgYesNo Boton Yes por defecto

Hola.
el MsgYeNo por defecto tiene el boton 1, se puede cambiar al 2? o sea al "No"?

gracioas.