ButtonBar in Folders

[nageswaragunupudi]

I like to have two or more buttonbars ( tbar() ) in folders, so that the user can switch button bars by choosing the folder tab.

We can do with rebars and toolbars, but I like to do it with FWH buttonbars and folders.

Can this be done easily ?

[Antonio Linares]

NageswaraRao,

Please post a screenshot, thanks

[nageswaragunupudi]

This is a part of the screen shot from rebars.prg. This is done thro rebars and toolbar.

Instead I like to get similar functionality using FWH Buttonbar ( tbar() ) in FWH folders.



If can be done, this will have simpler functionality as officebar, without all that ornamentation and should be easier for development.

[Antonio Linares]

NageswaraRao,

Do you mean that you want to place a buttonbar on each dialog of a folder ?

If yes, then you can do it from the ON INIT clause of the main dialog:

Code: Select all  Expand view  RUN

ACTIVATE DIALOG oDlg ;
   ON INIT BuildBars( oFolder )

...

function BuildBars( oFolder )

   local oBar

   DEFINE BUTTONBAR oBar OF oFolder:aDialogs[ 1 ] 3D

   DEFINE BUTTON OF oBar ...

   ...

return nil