Function Alert

Post Reply
User avatar
fespinoza
Posts: 188
Joined: Wed Feb 01, 2006 6:59 pm
Location: Ecuador

Function Alert

Post by fespinoza »

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.
User avatar
Armando
Posts: 2479
Joined: Fri Oct 07, 2005 8:20 pm
Location: Toluca, México
Contact:

Post by Armando »

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
SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero
User avatar
ADBLANCO
Posts: 299
Joined: Mon Oct 22, 2007 3:03 pm
Location: Valencia - Venezuela

Post by ADBLANCO »

*******************************************************************************
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)
User avatar
ADBLANCO
Posts: 299
Joined: Mon Oct 22, 2007 3:03 pm
Location: Valencia - Venezuela

Post by ADBLANCO »

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

Espero que te sirva.



Angel
User avatar
ADBLANCO
Posts: 299
Joined: Mon Oct 22, 2007 3:03 pm
Location: Valencia - Venezuela

Post by ADBLANCO »

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)
User avatar
ADBLANCO
Posts: 299
Joined: Mon Oct 22, 2007 3:03 pm
Location: Valencia - Venezuela

Post by ADBLANCO »

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)
User avatar
fespinoza
Posts: 188
Joined: Wed Feb 01, 2006 6:59 pm
Location: Ecuador

Post by fespinoza »

Muchas gracias a todos
Post Reply