Implementing FWH own Class TExplorerBar

[Antonio Linares]

Still working on it but you can already see its progress

[Bayron]

Great news, the more controls we have, the more powerful FWH will become... and the nicer applications can be designed.

[James Bott]

Nice! I have been looking forward to this control for years. I think this will be very useful.

Regards,
James

[Antonio Linares]

Showing the panels bitmaps (configurables) and the "hover" color (configurable) when the mouse is over a panel:

[Antonio Linares]

Displaying the items bitmaps



Example source code (compatible with Andres Reyes TExplorerBar):

Code: Select all  Expand view  RUN

#include "FiveWin.ch"

//----------------------------------------------------------------------------//

function Main()

   local oWnd, oExBar, oPanel1, oPanel2, oPanel3, oPanel4
   local bClick := { | o | MsgInfo( o:GetText() ) }
     
   DEFINE WINDOW oWnd TITLE "FWH Class TExplorerBar"
   
   oWnd:SetSize( 350, 600 )

   oExBar = TExplorerBar():New()

   oPanel1 = oExBar:AddPanel( "One" )
   oPanel1:lSpecial = .T.
   oPanel1:AddLink( "First item", bClick, "..\bitmaps\16x16\additem.bmp" )
   oPanel1:AddLink( "Second item", bClick, "..\bitmaps\16x16\copy.bmp" )
     
   oPanel2 = oExBar:AddPanel( "Two" )
   oPanel2:AddLink( "First item", bClick, "..\bitmaps\16x16\adddbf.bmp" )
   oPanel2:AddLink( "Second item", bClick, "..\bitmaps\16x16\delete0.bmp" )
   oPanel2:AddLink( "Third item", bClick, "..\bitmaps\16x16\envelope.bmp" )
   oPanel2:AddLink( "Fourth item", bClick, "fourthBMP" )

   oPanel3 = oExBar:AddPanel( "Three" )
   
   oPanel4 = oExBar:AddPanel( "Four" )
   oPanel4:AddLink( "First item", bClick, "firstBMP" )
   oPanel4:AddLink( "Second item", bClick, "secondBMP" )

   oWnd:oClient = oExBar

   ACTIVATE WINDOW oWnd

return nil

//----------------------------------------------------------------------------//
 

[fraxzi]

Dear Mr. Antonio,

This is a great addition! I hope you can pin/unpin (hide to the left).. revealing the whole dialog/windows client area

Just 2 cents..


Regards,
Frances

[Antonio Linares]

Using a bitmap for each panel

Code: Select all  Expand view  RUN

#include "FiveWin.ch"

//----------------------------------------------------------------------------//

function Main()

   local oWnd, oExBar, oPanel1, oPanel2, oPanel3, oPanel4
   local bClick := { | o | MsgInfo( o:GetText() ) }
     
   DEFINE WINDOW oWnd TITLE "FWH Class TExplorerBar"
   
   oWnd:SetSize( 350, 600 )

   oExBar = TExplorerBar():New()

   oPanel1 = oExBar:AddPanel( "One", "..\bitmaps\32x32\people.bmp" )
   oPanel1:lSpecial = .T.
   oPanel1:AddLink( "First item", bClick, "..\bitmaps\16x16\additem.bmp" )
   oPanel1:AddLink( "Second item", bClick, "..\bitmaps\16x16\copy.bmp" )
     
   oPanel2 = oExBar:AddPanel( "Two", "..\bitmaps\32x32\case.bmp" )
   oPanel2:AddLink( "First item", bClick, "..\bitmaps\16x16\adddbf.bmp" )
   oPanel2:AddLink( "Second item", bClick, "..\bitmaps\16x16\delete0.bmp" )
   oPanel2:AddLink( "Third item", bClick, "..\bitmaps\16x16\envelope.bmp" )
   oPanel2:AddLink( "Fourth item", bClick, "fourthBMP" )

   oPanel3 = oExBar:AddPanel( "Three", "..\bitmaps\32x32\graphics.bmp" )
   
   oPanel4 = oExBar:AddPanel( "Four" )
   oPanel4:AddLink( "First item", bClick, "firstBMP" )
   oPanel4:AddLink( "Second item", bClick, "secondBMP" )

   oWnd:oClient = oExBar

   ACTIVATE WINDOW oWnd

return nil

//----------------------------------------------------------------------------//
 

[MdaSolution]

Antonio,
Could it run also to DIALOG system ?

[Antonio Linares]

Using the Class TExplorerBar on a dialog from resources

explbar2.prg

Code: Select all  Expand view  RUN

#include "FiveWin.ch"

//----------------------------------------------------------------------------//

function Main()

   local oDlg, oExBar
     
   DEFINE DIALOG oDlg RESOURCE "Test"
   
   oExBar = TExplorerBar():Redefine( 100 )

   ACTIVATE DIALOG oDlg CENTERED ;
      ON INIT ExplBarInit( oExBar )

return nil

//----------------------------------------------------------------------------//

function ExplBarInit( oExBar )

   local oPanel1, oPanel2, oPanel3, oPanel4
   local bClick := { | o | MsgInfo( o:GetText() ) }

   oPanel1 = oExBar:AddPanel( "One", "people" )
   oPanel1:lSpecial = .T.
   oPanel1:AddLink( "First item", bClick, "additem" )
   oPanel1:AddLink( "Second item", bClick, "copy" )
     
   oPanel2 = oExBar:AddPanel( "Two", "case" )
   oPanel2:AddLink( "First item", bClick, "adddbf" )
   oPanel2:AddLink( "Second item", bClick, "delete" )
   oPanel2:AddLink( "Third item", bClick, "envelope" )
   oPanel2:AddLink( "Fourth item", bClick, "envelope" )

   oPanel3 = oExBar:AddPanel( "Three", "graphics" )
   oPanel3:AddLink( "First item", bClick, "adddbf" )
   
   oPanel4 = oExBar:AddPanel( "Four" )
   oPanel4:AddLink( "First item", bClick, "copy" )
   oPanel4:AddLink( "Second item", bClick, "additem" )

return nil

//----------------------------------------------------------------------------//
 

explbar2.rc

Code: Select all  Expand view  RUN

#include <windows.h>

#ifdef __FLAT__
   1 24 "WinXP/WindowsXP.Manifest"
#endif

#ifdef __64__
   1 24 "WinXP/WindowsXP.Manifest64"
#endif

Test DIALOG 17, 36, 400, 350
STYLE DS_MODALFRAME | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU
CAPTION "FWH Class TExplorerBar"
FONT 8, "MS Sans Serif"
{
 CONTROL "Test", 100, "TEXPLORERBAR", 0 | WS_CHILD | WS_VISIBLE, 0, 0, 150, 350
 DEFPUSHBUTTON "OK", 1, 341, 327, 50, 14
}

people   BITMAP "..\bitmaps\32x32\people.bmp"
case     BITMAP "..\bitmaps\32x32\case.bmp"
graphics BITMAP "..\bitmaps\32x32\graphics.bmp"
additem  BITMAP "..\bitmaps\16x16\additem.bmp"
copy     BITMAP "..\bitmaps\16x16\copy.bmp"
adddbf   BITMAP "..\bitmaps\16x16\adddbf.bmp"
delete   BITMAP "..\bitmaps\16x16\delete0.bmp"
envelope BITMAP "..\bitmaps\16x16\envelope.bmp"
 

[RAMESHBABU]

Mr.Antonio,

TExplorerBar would be another feather in the cap of FWH Controls

By the way even TOutLook2003 is also one of the best controls. I use this control very well in my applications.
There is a need of of Popup Menus added to the each button of this control, as shown in the picture below ?



If this feature is added, then this would be a full OutLook2003 control.

Regards,

- Ramesh Babu P

[Antonio Linares]

Ramesh,

Should it be just one popup associated to the latest Outlook item ?

Or better an optional popup to each item ?

[Silvio]

Nice Antonio,
Just an Idea ....
U can insert also an image on each Panel as "Watermake" at the right part of panel
Have U an idea how create it GLASS for windows seven style ?

[RAMESHBABU]

Dear Mr.Antonio,

Thank you very much for your attention to my post.

As you feel that it would be very good, if popups are provided to each item.

Regards,

- Ramesh Babu P

[Antonio Linares]

Enhancing FWH Class TOutLook2003 painting

[RAMESHBABU]

Dear Mr.Antoni,

I am highly excited to have these changes in our next FWH Version.
Finally will it look like this ?



And I feel that it is the high time for me to go for FWH Upgrade.

Regards,

- Ramesh Babu P