Problems with msgbar

[Franklin Demont]

Hello,

I try to use the messagebar from a MDICHILD window (xbrdbu)

CODE: SELECT ALL EXPAND VIEW

....
DEFINE MSGITEM aItem[4] OF oMsgBar PROMPT IIF(Deleted(),"Deleted","") SIZE 80 COLOR CLR_HRED,CLR_HBLUE
.....
oBrw:bChange := {||aItem[4]:Settext(IIF(Deleted(),"Deleted","")),aItem[4]:Refresh()}



1) The refresh() item from bchange generates a windows error (ends the program , no error log)

2) Background color doesn't change

I tryed also with

::oWnd:oMsgBar:aItems[6]:nClrText(CLR_WHITE)
::oWnd:oMsgBar:aItems[6]:nClrPane(CLR_HRED)
::oWnd:oMsgBar:aItems[6]:SetText("Exclusive")
::oWnd:oMsgBar:aItems[6]:Refresh()

Colors doesn't change


Frank

[Enrico Maria Giordano]

::oWnd:oMsgBar:aItems[6]:nClrText(CLR_WHITE)
::oWnd:oMsgBar:aItems[6]:nClrPane(CLR_HRED)

Try

Code: Select all  Expand view

::oWnd:oMsgBar:aItems[6]:SetColor(CLR_WHITE,CLR_HRED)

EMG

[Franklin Demont]

::oWnd:oMsgBar:aItems[6]:nClrText(CLR_WHITE)
::oWnd:oMsgBar:aItems[6]:nClrPane(CLR_HRED)

Try

Code: Select all  Expand view

::oWnd:oMsgBar:aItems[6]:SetColor(CLR_WHITE,CLR_HRED)

EMG

Enrico ,

Thanks for the sugestion , but tMsgBar has no method setcolor.

I made a mistake , it must be :
::oWnd:oMsgBar:aItems[6]:nClrText := CLR_WHITE
::oWnd:oMsgBar:aItems[6]:nClrPane := CLR_HRED
Anyway the back ground color doesn't change

The windows error is gone away after discarding DATE KEYBOARD from Defining the messagebar

Frank

[Enrico Maria Giordano]

Thanks for the sugestion , but tMsgBar has no method setcolor.

Ops, right, TMsgItem class has no SetColor() method (TMsgBar has it as it inherits from TControl). Try to add

Code: Select all  Expand view

oMsg:Refresh()

It works for me.

EMG

[Franklin Demont]

Thanks for the sugestion , but tMsgBar has no method setcolor.

Ops, right, TMsgItem class has no SetColor() method (TMsgBar has it as it inherits from TControl). Try to add

Code: Select all  Expand view

oMsg:Refresh()

It works for me.

EMG

oMsg:refresh() doesn't change background color

[Enrico Maria Giordano]

oMsg:refresh() doesn't change background color

Please build a reduced and self-contained sample that I can compile and run here.

EMG

[Franklin Demont]

oMsg:refresh() doesn't change background color

Please build a reduced and self-contained sample that I can compile and run here.

EMG

I work on xbrdbu ( fivewin contributions xbrdbu.zop 29/8/2011) , also in samples from fwh

In file2brw i have :

DEFINE MSGITEM aItem[3] OF oMsgBar PROMPT STR(Recno(),6) + "/" + STR(Reccount(),6) SIZE 80 COLOR CLR_HRED ,CLR_HBLUE

i can't change the background color

Frank

[Antonio Linares]

Frank,

This example is working fine:

frank.prg

Code: Select all  Expand view

#include "FiveWin.ch"

function Main()

   local oWnd, oMsgBar, oItem

   DEFINE WINDOW oWnd
   
   DEFINE MSGBAR oMsgBar OF oWnd NOINSET

   DEFINE MSGITEM oItem OF oMsgBar PROMPT "Item"

   ACTIVATE WINDOW oWnd ;
      ON CLICK ( oItem:nClrPane := CLR_BLUE, oItem:nClrText := CLR_WHITE, oMsgBar:Refresh() )

return nil

[Antonio Linares]

And here is a new Method SetColor() for the Class TMsgItem:

Code: Select all  Expand view

METHOD SetColor( nClrText, nClrPane ) CLASS TMsgItem

   if ValType( nClrText ) == "N"
      ::nClrText = nClrText
   endif  

   if ValType( nClrPane ) == "N"
      ::nClrPane = nClrPane
   endif  
         
   if ValType( nClrText ) == "C"
      ::nClrText = nGetForeRGB( nClrText )
      ::nClrPane = nGetBackRGB( nClrPane )
   endif
   
   ::oMsgBar:Refresh()
   
return nil      
 

So now we can simplify the previous example like this:

Code: Select all  Expand view

  ACTIVATE WINDOW oWnd ;
      ON CLICK oItem:SetColor( "W+/B" )

or

Code: Select all  Expand view

  ACTIVATE WINDOW oWnd ;
      ON CLICK oItem:SetColor( CLR_WHITE, CLR_BLUE )

[Franklin Demont]

Antonio ,

Disabling 2007 clausule solved the problem

On xbrdbu i have now new modules for :

Index management

Utilties
Append from
Copy to
Delete
Recall
Replace
Pack
Zap

Next days also other items from utilities will be ready

Frank

[Franklin Demont]

Antonio ,
May i sugest next code ?

Code: Select all  Expand view

Method SetColor( nClrText, nClrPane ) CLASS TMsgItem
   //local self := HB_QSelf() method defined with __objaddmethod
   local MemColor := {::nClrText, ::nClrPane }
     if PCOUNT() == 1 .AND. Valtype(nClrText) == "A"
        IF LEN(nClrText) == 2
            nClrPane := nClrText[2]
            nClrText := nClrText[1]
        END
     END
   if ValType( nClrText ) == "N"
      ::nClrText = nClrText
   endif  

   if ValType( nClrPane ) == "N"
      ::nClrPane = nClrPane
   endif  
         
   if ValType( nClrText ) == "C"
      ::nClrText = nGetForeRGB( nClrText )
      ::nClrPane = nGetBackRGB( nClrPane )
   endif
   
   ::oMsgBar:Refresh()
   
return MemColor      
 

The original colors can be restored when necessary

Frank

[Antonio Linares]

Frank,

That behavior would not being coherent with current FWH SetColor() methods.

What I mean is: all Method SetColor() should behave the same way