ALTERAR FUNCAO MSGINFO

[rogeriohfb]

Boa tarde
É possível alterar a função MSGINFO do Harbour ?
Mudar a fonte, cor ou icone por exemplo ?
Obrigado

[alxsts]

Olá!

É possível alterar a função MSGINFO do Harbour ?

Pelo que conheço, o Harbour não tem nenhuma função com este nome.
Provavelmente você se refere a alguma biblioteca gráfica. Estas bibliotecas normalmente são de código aberto e vem com os fontes. Neste caso é só alterar no local apropriado e recompilar a lib...

[asimoes]

hwg_MsgInfo -> HwGui
MsgInfo -> MiniGui Ex

[Ana Mitoooo]

WVT / WVG

Código: Selecionar todos

// *---------------------------------------------------------------------------*
// Native Habour MsgInfo
// *---------------------------------------------------------------------------*
PROC My_MsgInfo( cMessage, cTitle )

   LOCAL nWindow := wapi_GetActiveWindow()

   wapi_MessageBox( nWindow, cMessage, cTitle, WIN_MB_ICONASTERISK )

 RETURN

*\contrib\hbwin\hbwin.ch

/* wapi_MessageBox()/wapi_MessageBeep() flags */
#define WIN_MB_OK 0x00000000
#define WIN_MB_OKCANCEL 0x00000001
#define WIN_MB_ABORTRETRYIGNORE 0x00000002
#define WIN_MB_YESNOCANCEL 0x00000003
#define WIN_MB_YESNO 0x00000004
#define WIN_MB_RETRYCANCEL 0x00000005
#define WIN_MB_CANCELTRYCONTINUE 0x00000006
#define WIN_MB_ICONHAND 0x00000010
#define WIN_MB_ICONQUESTION 0x00000020
#define WIN_MB_ICONEXCLAMATION 0x00000030
#define WIN_MB_ICONASTERISK 0x00000040
#define WIN_MB_USERICON 0x00000080

[asimoes]

Tanto na hwgui como na MiniGui Ex tem os fontes da função e muito mais, além do próprio harbour, o negócio é futucar nos fontes sempre acha