de msgbar y status bar

[José Luis Sánchez]

Hola,
En mis programas tengo una msgbar en la venana principal que defino de esta manera:

Code: Select all  Expand view

SET MESSAGE OF ::oWndMain TO ::cMsgBar CENTER NOINSET
    ::oWndMain:oMsgBar:SetFont(::oFont)

    DEFINE MSGITEM ::oMsgItem2;
       OF ::oWndMain:oMsgBar;
       PROMPT iif(::cUser!=SPACE(15),::cUser,"acerca de el Puchero");
       SIZE len(::cUser)*12;
       BITMAPS "MSG_LOTUS", "MSG_LOTUS";
       TOOLTIP " " + i18n("Acerca de...") + " "
    ::oMsgItem2:bAction := { || AppAcercade( .f. ) }

   DEFINE MSGITEM ::oMsgItem3 OF ::oWndMain:oMsgBar ;
      SIZE 152 ;
      PROMPT "www.alanit.com" ;
      COLOR RGB(3,95,156), GetSysColor(15)    ;
        BITMAPS "MSG_ALANIT", "MSG_ALANIT";
      TOOLTIP i18n("visitar la web de alanit");
      ACTION WinExec('start '+'.\alanit.url', 0)

   ::oWndmain:oMsgBar:DateOn()

En toda la aplicación uso la fuente del sistema

Code: Select all  Expand view

   DEFINE FONT ::oFont;
      NAME GetDefaultFontName() ;
      SIZE 0, GetDefaultFontHeight()

tal como cuento en https://cincomundos.wordpress.com/2006/03/08/fuentes-grandes-en-fwh/

En uno de los programas, la fuente se vuelve 'gorda' como cuando no quedan recursos de GDI. En el resto del programa no pasa, sólo en la MsgBar. ¿ Cómo puedo solucionarlo ?

Por otra parte, he vsto que hay una clase StatusBar que desconocía ¿ Puedo sustituir MsgBar por StatusBar ?

Saludos,

[cnavarro]

Yo lo hago asi con un Font definido para la aplicacion y no tengo ningun problema

Code: Select all  Expand view

   DEFINE MSGBAR ::oMsgBar OF ::oWnd ;
      PROMPT FWString( "Source Code Editor and Projects Manager" ) 2010 //+ ;
   ::oMsgBar:nClrText := CLR_BLUE
   ::oMsgBar:SetFont( ::oFontX )

   DEFINE MSGITEM ::oMsgCompiler PROMPT ::cFileDescrip ;
      OF ::oMsgBar SIZE 280 ACTION ::Preferences( 7 )

.../...

 

[Antonio Linares]

José Luis,

> Por otra parte, he vsto que hay una clase StatusBar que desconocía ¿ Puedo sustituir MsgBar por StatusBar ?

Comprueba primero que la Clase StatusBar te proporcione toda la funcionalidad que usas con MsgBar.

La clase StatusBar es propia de Windows y no ofrece toda la funcionalidad que ofrece MsgBar.