FiveTech Software tech support forums

Tengo un problema al usuar la función Alert de FiveWin (esta función creo que tambien exisitia en Clipper y se la creo en FW para mantener una sietria con Cliper).

En FW 2.4 me funcionaba bien, pero ahora en FWH el texto del mensaje no se muestra; solo aparece el borde; es como que el texto fuera más alto que el alto definido para el control Text. Los botones se muestran bien.

¿Existe otra función que cumpla una función parecida?, es decir una ventana donde se puede elegir entre 2 o mas opciones, con la opción de incluir un texto para la pregunta.

Fernando:

Tienes estas alternativas

MsgInfo()
MsgNoYes()
MsgYesNo()

La primera solo es informativa y te muestra solo un boton (ACEPTAR)

Las otras dos tienes dos botones SI o NO, la función MsgNoYes() aparece activo el boton NO mientras que MsgYesNo() aparece activo el boton SÍ

En las tres puedes mostrar el texto que quieras y en varios renglones con el uso de CRLF.

Saludos

*******************************************************************************
function MsgSel(cTitle,aData,cText,nSel) // Titulo,Arreglo,Texto,nSel
// Retorna: 0 = Nada
// n = Selección
*******************************************************************************
local oFont,oDlg,oLst,nTop,nLeft,nBottom,nRight,nItem,oText,oBtnClose,oCbx,;
ccTitle:="Seleccione Salida"
IF nSel=nil
nSel:=1
ENDIF
IF cText=nil
cText:=""
ENDIF
DEFAULT nTop := 9, nLeft := 9, nBottom := 15, nRight := 45
DEFINE FONT oFont NAME GetSysFont() SIZE 0, -8
DEFINE DIALOG oDlg FROM nTop, nLeft TO nBottom, nRight ;
FONT oFont ;
title cTitle;
STYLE nOr(WS_POPUP, WS_BORDER, WS_THICKFRAME,WS_DLGFRAME )
@ 0.9, 0.5 SAY oText VAR cText SIZE 130, 10 OF oDlg
@ 4, 60 LISTBOX oLst VAR nItem ITEMS aData OF oDlg PIXEL SIZE 50,40
oLst:bLDblClick := {|| oDlg:End() }
@ 34, 112 BUTTON oBtnClose PROMPT "Ok" DEFAULT SIZE 25, 11 PIXEL ACTION oDlg:End()
ACTIVATE DIALOG oDlg CENTERED
oFont:End()
return ascan(aData,nItem)

Está echa a pico y pala, pero a mi me trabaja.

Espero que te sirva.



Angel

Disculpa, esta es la correcta:

*******************************************************************************
function MsgSel(cTitle,aData,cText,nSel) // Titulo,Arreglo,Texto,nSel
// Retorna: 0 = Nada
// n = Selección
*******************************************************************************
local oFont,oDlg,oLst,nTop,nLeft,nBottom,nRight,nItem,oText,oBtnClose,oCbx,;
ccTitle:="Seleccione Salida"
IF nSel=nil
nSel:=1
ENDIF
IF cText=nil
cText:=""
ENDIF
DEFAULT nTop := 9, nLeft := 9, nBottom := 15, nRight := 45
DEFINE FONT oFont NAME GetSysFont() SIZE 0, -8
DEFINE DIALOG oDlg FROM nTop, nLeft TO nBottom, nRight ;
FONT oFont ;
title cTitle;
STYLE nOr(WS_POPUP, WS_BORDER, WS_THICKFRAME,WS_DLGFRAME )
@ 0.9, 0.5 SAY oText VAR cText SIZE 130, 10 OF oDlg
@ 4, 60 LISTBOX oLst VAR nItem ITEMS aData OF oDlg PIXEL SIZE 50,40
oLst:bLDblClick := {|| oDlg:End() }
@ 34, 112 BUTTON oBtnClose PROMPT "Ok" DEFAULT SIZE 25, 11 PIXEL ACTION oDlg:End()
ACTIVATE DIALOG oDlg CENTERED;
on init oLst:select(nSel)
oFont:End()
return ascan(aData,nItem)

Disculpa, esta es la correcta:

*******************************************************************************
function MsgSel(cTitle,aData,cText,nSel) // Titulo,Arreglo,Texto,nSel
// Retorna: 0 = Nada
// n = Selección
*******************************************************************************
local oFont,oDlg,oLst,nTop,nLeft,nBottom,nRight,nItem,oText,oBtnClose,oCbx,;
ccTitle:="Seleccione Salida"
IF nSel=nil
nSel:=1
ENDIF
IF cText=nil
cText:=""
ENDIF
DEFAULT nTop := 9, nLeft := 9, nBottom := 15, nRight := 45
DEFINE FONT oFont NAME GetSysFont() SIZE 0, -8
DEFINE DIALOG oDlg FROM nTop, nLeft TO nBottom, nRight ;
FONT oFont ;
title cTitle;
STYLE nOr(WS_POPUP, WS_BORDER, WS_THICKFRAME,WS_DLGFRAME )
@ 0.9, 0.5 SAY oText VAR cText SIZE 130, 10 OF oDlg
@ 4, 60 LISTBOX oLst VAR nItem ITEMS aData OF oDlg PIXEL SIZE 50,40
oLst:bLDblClick := {|| oDlg:End() }
@ 34, 112 BUTTON oBtnClose PROMPT "Ok" DEFAULT SIZE 25, 11 PIXEL ACTION oDlg:End()
ACTIVATE DIALOG oDlg CENTERED;
on init oLst:select(nSel)
oFont:End()
return ascan(aData,nItem)

Muchas gracias a todos