MsgInfo

[asimoes]

Amigos,

Tem como usar outro tipo de fonte no MsgInfo e MsgStop por exemplo Courier New?

[]´s

[sygecom]

Ola Asimões,
Isso é controlado pelo Windows, só muda se você mudar nas fontes de configuração do seu windows,
Agora o que você pode fazer é uma simples DIALOG igual a MgsInfo() e MsgStop() com as fontes que você deseja !!!

[Wellington]

Tbem gostaria de utilizar outra fonte no MsgInfo. Alguem tem alguma rotina pronta para tal ?

[asimoes]

Olá Wellington,

Veja o exemplo para adaptar:

Código: Selecionar todos

FUNCTION QualEscolha
LOCAL oJanela
MEMVAR nValRet
PARAMETER cTitulo,cMensagem,cBut1,cBut2,cBut3

   INIT DIALOG oJanela TITLE HB_OemToAnsi(cTitulo) ;
   AT 100,150 SIZE 550,200 NOEXITESC;
   FONT HFont():Add( 'Courier New',0,-16,400,,,) ;
   STYLE WS_CAPTION + WS_DLGFRAME + WS_SYSMENU + DS_CENTER

   @ 20, 050  SAY HB_OemToAnsi(cMensagem) SIZE 500,30 STYLE SS_CENTER

   @ 25, 120 BUTTON HB_OemToAnsi(cBut1) SIZE 140,32 ON CLICK {||Clicou(1)} STYLE WS_TABSTOP
   @ 205,120 BUTTON HB_OemToAnsi(cBut2) SIZE 140,32 ON CLICK {||Clicou(2)} STYLE WS_TABSTOP
   @ 380,120 BUTTON HB_OemToAnsi(cBut3) SIZE 140,32 ON CLICK {||Clicou(3)} STYLE WS_TABSTOP

   ACTIVATE DIALOG oJanela

RETURN nValRet

FUNCTION Clicou
PARAMETER nResp
nValret:=0
IF nResp=1
   nValRet:=1
   EndDialog()
ELSEIF nResp=2
   nValRet:=2
   EndDialog()
ELSE
   nValRet:=3
   EndDialog()
ENDIF
RETURN

FUNCTION Opc_Impr
nValRet := 0
nValRet:=QualEscolha("Op‡äes para ImpressÆo","Escolha o direcionamento da ImpressÆo","&Tela","&Impressora","&Sair")
IF nValRet=1
   lVideo := .T.
ELSEIF nValRet=2
   lVideo := .F.
ELSEIF nValRet=0 .OR. nValRet=3
   lVideo:=Nil
   RETURN
ENDIF
RETURN