Problema con SysRefresh()
Posted: Thu Aug 02, 2012 9:18 pm
Esta función despliega un mensaje en pantalla dejando continuar el proceso, pero lo hace de manera irregular, muestra el cuadro de dialogo pero no los SAY, para mi hay un problema con la función SysRefresh().
Function fVerExijaBoleta(cTexto)
DEFINE DIALOG oDlg_ExijaBoleta TITLE ' ' SIZE 400, 100
@1,1 SAY oSay Prompt cTexto OF oDlg_ExijaBoleta SIZE 380,nAltoLetra
fCambia_Font(oSay:hWnd, helvetica_bold_italic_18)
fCambia_Color(oSay:hWnd, 1)
oSay:Show()
@5,1 SAY oSay Prompt TXTp05_042 OF oDlg_ExijaBoleta SIZE 380,nAltoLetra
fCambia_Font(oSay:hWnd, helvetica_bold_italic_18)
fCambia_Color(oSay:hWnd, 2)
oSay:Show()
oDlg_ExijaBoleta:Center()
oDlg_ExijaBoleta:Show()
oDlg_ExijaBoleta:SetPos(450,300)
SysRefresh()
inkey(1)
Return .T.
Function fVerExijaBoleta(cTexto)
DEFINE DIALOG oDlg_ExijaBoleta TITLE ' ' SIZE 400, 100
@1,1 SAY oSay Prompt cTexto OF oDlg_ExijaBoleta SIZE 380,nAltoLetra
fCambia_Font(oSay:hWnd, helvetica_bold_italic_18)
fCambia_Color(oSay:hWnd, 1)
oSay:Show()
@5,1 SAY oSay Prompt TXTp05_042 OF oDlg_ExijaBoleta SIZE 380,nAltoLetra
fCambia_Font(oSay:hWnd, helvetica_bold_italic_18)
fCambia_Color(oSay:hWnd, 2)
oSay:Show()
oDlg_ExijaBoleta:Center()
oDlg_ExijaBoleta:Show()
oDlg_ExijaBoleta:SetPos(450,300)
SysRefresh()
inkey(1)
Return .T.