Change headers in xbrowse

[Marc Vanzegbroeck]

Hi,

How can I change the Headers in xBrowse while it is displayed?

Thanks,
Marc

[ukoenig]

Hello Marc,

Change and Test all xBrowse-Settings at Runtime ( Header, Footer, Fonts, Background, Cells .... :
I think, You want to set new values for the header on Button-click ?.
Can You tell me the values, You want to change ?

Download :
http://www.pflegeplus.com/fw_downloads/BRWTools5.zip



Regards
Uwe :

[Marc Vanzegbroeck]

Uwe,

I want the customer to be able to change the header of the xBrowse.
In this example 'Marc' or 'Jan'



In tsbrowse I did something like this:

Code: Select all  Expand view

oBrw:SetHeaders( , , ahoofding,  , , ,  )
oBrw:DrawHeaders()


Regards,
Marc

[nageswaragunupudi]

Code: Select all  Expand view

oBrw:Jan:cHeader := 'cChangedJan'
oBrw:Refresh()


[Marc Vanzegbroeck]

NageswaraRao,

This is not working. Jan is the text that is in this sample in the cHeader of the 2e row. It's not a variable.

Regards,
Marc

[ukoenig]

Hello Marc,

any selected Mouse-Clicks inside the xBrowse, will change the Header-Text
Choose one, to do the defined Column-Title-Change ( You can use also VAR'S ).
Another option could be, to change the Head-color as well.

Code: Select all  Expand view

// Old Column-Titles
// ------------------------
oLbx:aCols[ 1 ]:cHeader = Padr("No.", 3)
oLbx:aCols[ 2 ]:cHeader = Padr("Start", 19)

// Define New Column-Titles on any Mouse-Click
// -----------------------------------------------------
for nFor := 1 to 2   // 2 Columns

   oLbx:aCols[ nFor ]:bRClickHeader := ;
   {|r,c,f,o| IIF( o:nCreationOrder = 1,  o:cHeader := "Text 1", o:cHeader := "Text 2"), oLbx:Refresh() }
   
   oLbx:aCols[ nFor ]:bLClickFooter := ;
   {|r,c,f,o| IIF( o:nCreationOrder = 1, o:cHeader := "Text 1", o:cHeader := "Text 2"), oLbx:Refresh() }
   
   oLbx:aCols[ nFor ]:bRClickFooter := ;
   {|r,c,f,o| IIF( o:nCreationOrder = 1, o:cHeader := "Text 1", o:cHeader := "Text 2"), oLbx:Refresh() }
   
   oLbx:aCols[ nFor ]:blDClickData  := ;
   {|r,c,f,o| IIF( o:nCreationOrder = 1, o:cHeader := "Text 1", o:cHeader := "Text 2"), oLbx:Refresh() }
   
   oLbx:aCols[ nFor ]:bRClickData := ;
   {|r,c,f,o| IIF( o:nCreationOrder = 1, o:cHeader := "Text 1", o:cHeader := "Text 2"), oLbx:Refresh() }

next



Regards
Uwe

[Marc Vanzegbroeck]

Thank you Uwe,

It's working very nice now!!

Regards,
Marc