Page 1 of 1

MsgWait con FiveLinux

Posted: Wed Mar 30, 2011 6:45 pm
by jgayoso
Buenas a todos, ya estoy compilando mi proyecto en FiveLinux utilizando Ubuntu, y hasta el momento voy bien, avanzando.
En FiveWin existe la función MsgWait, consulta:

¿Habra algo parecido en FiveLinux o xHarbour para Linux?
¿Alguien tiene un código?

La idea es colocar "Espere procesando..." o cualquier texto parecido para indicar al usuario que se esta realizando un proceso.

U otra forma de hacerlo... tambie es bienvenida.

Se agradece desde ya.

Jorge Gayoso :oops:

Re: MsgWait con FiveLinux

Posted: Wed Mar 30, 2011 7:28 pm
by pablovidal
Esto me funciona en Windows

Code: Select all

function aMsgWait( bAction, cCaption, cCLR )
LOCAL oDlg, nWidth
Local oFont
Local oSay

     DEFAULT cCaption := "Un momento..."
     DEFAULT bAction  := { || WaitSeconds( 05 ) }
     DEFAULT cClr     := CLR_BLUE

 DEFINE FONT oFont NAME "TAHOMA" SIZE 0,-15 BOLD ITALIC

 DEFINE DIALOG oDLG RESOURCE "DLG_WAIT" Font oFont

 REDEFINE SAY oSay PROMPT cCaption ID 102 OF oDlg FONT oFont COLOR CLR_WHITE

 oDlg:bStart := { || Eval( bAction, oDlg ), oDlg:End(), SysRefresh() }
 oDlg:lHelpIcon := .F.
 Activate Dialog oDlg Center 

Return Nil