nageswaragunupudi wrote:Waiting for a solution with OemToAnsi() and CodePage()
Do you have problem with FWH1905 or FWH2409 only?
Master Nages, COMPILE please, the program will speak for me.
Maestro Nages, COMPILA por favor, el programa hablará por mí.
// -> By Joao Santos - Sao Paulo - Brazil - kapiabafwh@gmail.com
// -> Participacao Especial, Vailton Renato - renato@kssoftware.com.br
#include "FiveWin.Ch"
STATIC oDlgRelog, oTimerRelog, lDesliga := .F., oWnd, oTimerPorta
STATIC oFnt, oSaida, oBtnTimer, oGetRao
FUNCTION RELOG()
LOCAL oSayMens, oFnt2, aGrad, oSayRao
oSayMens := "FWH24.09 it's Terrible! JESUS!!"
oSayRao := "FWH24.09: Fix OemtoAnsi() RAO!!"
aGrad := { { 0.30, CLR_BLACK, CLR_YELLOW }, { 0.70, CLR_YELLOW, CLR_BLACK } }
DEFINE FONT oFnt NAME "Arial" SIZE 08, 20 BOLD
DEFINE FONT oFnt2 NAME "Arial" SIZE 00, -12 BOLD
DEFINE DIALOG oDlgRelog FROM 3, 3 TO 20, 50 ;
TITLE "Test of Message with Timer" ;
GRADIENT aGrad TRANSPARENT STYLE nOR( DS_MODALFRAME )
oDlgRelog:lHelpIcon := .F.
@ .5, 07 SAY oSayMens OF oDlgRelog SIZE 100, 12 ;
COLOR CLR_BLACK, CLR_WHITE TRANSPARENT ADJUST UPDATE
@ 5.50, 05 GET oGetRao VAR oSayRao OF oDlgRelog SIZE 120, 10 PICTURE "@" ;
COLORS METRO_MAGENTA, CLR_WHITE UPDATE NOBORDER CENTER
@ 5, 09 BUTTON oBtnTimer PROMPT "&Click-me Rao" OF oDlgRelog ;
SIZE 70, 16 ACTION( ACIONA_TIMER( oWnd ) )
oBtnTimer:cToolTip := "Timer Action Rao"
SET FONT OF oBtnTimer TO oFnt
SET FONT OF oDlgRelog TO oFnt2
ACTIVATE DIALOG oDlgRelog CENTERED ON INIT( oGetRao:Hide() )
IF lDesliga
oTimerRelog:DeActivate()
oTimerPorta:DeActivate()
ENDIF
oFnt:End()
oFnt2:End()
RETURN NIL
FUNCTION ACIONA_TIMER( oWnd )
DEFINE TIMER oTimerPorta INTERVAL 50 OF oDlgRelog ;
ACTION ACIONA_RELOGIO( oWnd )
ACTIVATE TIMER oTimerPorta
RETURN NIL
FUNCTION ACIONA_RELOGIO( oWnd )
LOCAL oFont
DEFINE FONT oFont NAME "Arial" SIZE 0, -70 BOLD
DEFINE FONT oFnt NAME "Arial" SIZE 08, 20 BOLD
DEFINE TIMER oTimerRelog INTERVAL 50 ;
ACTION ExibeRelogio()
ACTIVATE TIMER oTimerRelog
SET FONT OF oDlgRelog TO oFont
SET FONT OF oBtnTimer TO oFnt
oFont:End()
lDesliga := .T. // -> Para Desligar o Timer
oTimerPorta:DeActivate()
RETURN NIL
FUNCTION ExibeRelogio()
LOCAL NewMensa := "FWH24.09 RAO!"
// Mensageria
IF ISWINDOWVISIBLE( oDlgRelog:hWnd )
oDlgRelog:Say( 3, 01, NewMensa, ;
CLR_YELLOW, CLR_BLACK,, .F. )
// .T. Esquerda - .F. Direita da Dialog.
oGetRao:Show()
ENDIF
RETURN NIL
// FIN / END - kapiabafwh@gmail.com .and. jairfab@gmail.com
Regards, saludos.
