Implementing FWH own Class TExplorerBar
Posted: Tue Jun 01, 2010 7:07 amStill working on it but you can already see its progress 
FiveTech Software tech support forums
www.FiveTechSoft.com
https://forums.fivetechsupport.com/
Implementing FWH own Class TExplorerBar
https://forums.fivetechsupport.com/viewtopic.php?f=3&t=18956
Page 1 of 4
Posted: Tue Jun 01, 2010 7:07 amRe: Implementing FWH own Class TExplorerBar
Posted: Tue Jun 01, 2010 2:40 pmGreat news, the more controls we have, the more powerful FWH will become... and the nicer applications can be designed.
Re: Implementing FWH own Class TExplorerBar
Posted: Tue Jun 01, 2010 4:36 pmNice! I have been looking forward to this control for years. I think this will be very useful.
Regards,
James
Regards,
James
Re: Implementing FWH own Class TExplorerBar
Posted: Wed Jun 02, 2010 4:27 amShowing the panels bitmaps (configurables) and the "hover" color (configurable) when the mouse is over a panel:
Re: Implementing FWH own Class TExplorerBar
Posted: Wed Jun 02, 2010 6:44 amDisplaying the items bitmaps
Example source code (compatible with Andres Reyes TExplorerBar):
Example source code (compatible with Andres Reyes TExplorerBar):
- Code: Select all Expand view
#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
//----------------------------------------------------------------------------//
Re: Implementing FWH own Class TExplorerBar
Posted: Wed Jun 02, 2010 7:02 amDear 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
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
Re: Implementing FWH own Class TExplorerBar
Posted: Wed Jun 02, 2010 9:03 amUsing a bitmap for each panel
- Code: Select all Expand view
#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
//----------------------------------------------------------------------------//
Re: Implementing FWH own Class TExplorerBar
Posted: Wed Jun 02, 2010 12:48 pmAntonio,
Could it run also to DIALOG system ?
Could it run also to DIALOG system ?
Re: Implementing FWH own Class TExplorerBar
Posted: Sat Jun 19, 2010 8:34 amUsing the Class TExplorerBar on a dialog from resources
explbar2.prg
explbar2.rc
explbar2.prg
- Code: Select all Expand view
- #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
- #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"
Re: Implementing FWH own Class TExplorerBar
Posted: Sat Jun 19, 2010 12:19 pmMr.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
Re: Implementing FWH own Class TExplorerBar
Posted: Sat Jun 19, 2010 4:54 pmRamesh,
Should it be just one popup associated to the latest Outlook item ?
Or better an optional popup to each item ?
Should it be just one popup associated to the latest Outlook item ?
Or better an optional popup to each item ?
Re: Implementing FWH own Class TExplorerBar
Posted: Sat Jun 19, 2010 10:34 pmNice 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 ?
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 ?
Re: Implementing FWH own Class TExplorerBar
Posted: Sun Jun 20, 2010 12:50 amDear 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
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
Re: Implementing FWH own Class TExplorerBar
Posted: Sun Jun 20, 2010 7:08 amEnhancing FWH Class TOutLook2003 painting
Re: Implementing FWH own Class TExplorerBar
Posted: Sun Jun 20, 2010 2:03 pmDear 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