topic-33692

Board index FiveWin para Harbour/xHarbour de msgbar y status bar

Posts: 564

Joined: Thu Oct 13, 2005 09:23 AM

de msgbar y status bar
Posted: Thu Feb 23, 2017 03:27 PM

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

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 (fw): Select all Collapse

   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

Posts: 6755

Joined: Wed Feb 15, 2012 08:25 PM

Re: de msgbar y status bar
Posted: Thu Feb 23, 2017 03:48 PM

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

Code (fw): Select all Collapse

   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 )

.../...

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces

Antonio Linares

Posts: 44162

Joined: Thu Oct 06, 2005 05:47 PM

Re: de msgbar y status bar
Posted: Thu Feb 23, 2017 09:00 PM

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.

regards, saludos

Antonio Linares
www.fivetechsoft.com

FiveTech Support Forums

Continue the discussion