Still working on it but you can already see its progress 
Great news, the more controls we have, the more powerful FWH will become... and the nicer applications can be designed.
Board index FiveWin for Harbour/xHarbour Implementing FWH own Class TExplorerBar
=====>
Bayron Landaverry
xBasePHP.com
(215)2226600 Philadelphia,PA, USA
MayaBuilders@gMail.com
Guatemala
FWH25.06--Harbour 3.0.0--BCC7.7--UEstudio 10.10
Windows 10
FiveWin, One line of code and it's done...
Nice! I have been looking forward to this control for years. I think this will be very useful.
Regards,
James
FWH 18.05/xHarbour 1.2.3/BCC7/Windows 10
Showing the panels bitmaps (configurables) and the "hover" color (configurable) when the mouse is over a panel:
Displaying the items bitmaps
Example source code (compatible with Andres Reyes TExplorerBar):
Example source code (compatible with Andres Reyes TExplorerBar):
#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
//----------------------------------------------------------------------------//
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
Kind Regards,
Frances
Fivewin for xHarbour v18.07
xHarbour v1.2.3.x
BCC 7.3 + PellesC8 ( Resource Compiler only)
ADS 10.1 / MariaDB
Crystal Reports 8.5/9.23 DE
xMate v1.15
Frances
Fivewin for xHarbour v18.07
xHarbour v1.2.3.x
BCC 7.3 + PellesC8 ( Resource Compiler only)
ADS 10.1 / MariaDB
Crystal Reports 8.5/9.23 DE
xMate v1.15
Using a bitmap for each panel
#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
//----------------------------------------------------------------------------//
Antonio,
Could it run also to DIALOG system ?
FWH .. BC582.. xharbour
Using the Class TExplorerBar on a dialog from resources
explbar2.prg
explbar2.rc
explbar2.prg
#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
#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"
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
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
Ramesh,
Should it be just one popup associated to the latest Outlook item ?
Or better an optional popup to each item ?
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 ?
Best Regards, Saludos
Falconi Silvio
Falconi Silvio
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
Enhancing FWH Class TOutLook2003 painting
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
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