FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin for Harbour/xHarbour ExplorerBar with Windows 7 look
Daniel Garcia-Gil
Posts: 2365
Joined: Wed Nov 02, 2005 11:46 PM
Re: ExplorerBar with Windows 7 look
Posted: Sun Jul 24, 2011 12:18 PM
ukservice wrote:Testing you sample, TExplorerList() is invading Title. See picture:


Yes it's only a sample, you should control the position

ukservice wrote:Also, I would like that tin SAY not to be printed with a white background, but in the blue background of Title.

Please Look the ttitle class, is very powerful, it use you own text and image control

ukservice wrote:Also, Action clause in get is not working, it does nothing.

you have a mistake in code, if you want the GET and SAY inside the TTitle please use
Code (fw): Select all Collapse
OF oTitle
our best documentation is the source code
Isla de Margarita Venezuela.
danielgarciagil@gmail.com
http://tdolphin.blogspot.com/
https://www.dropbox.com/referrals/NTI5Njk4MDc1OQ?src=global9
ukservice
Posts: 417
Joined: Tue Feb 23, 2010 03:09 PM
Re: ExplorerBar with Windows 7 look
Posted: Sun Jul 24, 2011 02:14 PM
Hello.

I change coords of tExlorerlist but it is always printed on top:
Code (fw): Select all Collapse
 oExplorerList = TExplorerList():New( 2000, 0, oWnd, .t., .f., 200, 300 )


Thank you for info about Ttitle. t is very powerful. Who made it?. It is great.

I share the correct code:

Code (fw): Select all Collapse
   @ 10,370 TITLETEXT TEXT "I am a Say:" of oTitle
   @ 0.5,55 GET cGet of oTitle SIZE 310, 22 ;
      ACTION MSGALERT(CGET)
FWH 11.11, Harbour 3.1 and Borland C++ 5.82
Daniel Garcia-Gil
Posts: 2365
Joined: Wed Nov 02, 2005 11:46 PM
Re: ExplorerBar with Windows 7 look
Posted: Sun Jul 24, 2011 02:48 PM
ukservice wrote:Thank you for info about Ttitle. t is very powerful. Who made it?. It is great.


Thanks... me :-)
our best documentation is the source code
Isla de Margarita Venezuela.
danielgarciagil@gmail.com
http://tdolphin.blogspot.com/
https://www.dropbox.com/referrals/NTI5Njk4MDc1OQ?src=global9
ukservice
Posts: 417
Joined: Tue Feb 23, 2010 03:09 PM
Re: ExplorerBar with Windows 7 look
Posted: Sun Jul 24, 2011 06:07 PM

Congrats Mr. Danel.

Please, when you have time check coords. I change but it is drawn at the same coords, invading Title.

Also, Tooltips are very important.

Thank you.

FWH 11.11, Harbour 3.1 and Borland C++ 5.82
MdaSolution
Posts: 401
Joined: Tue Jan 05, 2010 02:33 PM
Re: ExplorerBar with Windows 7 look
Posted: Sun Jul 24, 2011 08:12 PM
If you use Vtaskbar , you can change the vmenu look for windows seven

use clausole XBOX and the color of system (windows seven)

FWH .. BC582.. xharbour
ukservice
Posts: 417
Joined: Tue Feb 23, 2010 03:09 PM
Re: ExplorerBar with Windows 7 look
Posted: Sun Jul 24, 2011 08:44 PM

I prefer to use native FWH controls as Canalfive does not exist any longer.

Also, we need to produce 64 bits exes, so Borland C+, used by Canalfive, is not compatible.

Thank you.

FWH 11.11, Harbour 3.1 and Borland C++ 5.82
MdaSolution
Posts: 401
Joined: Tue Jan 05, 2010 02:33 PM
Re: ExplorerBar with Windows 7 look
Posted: Sun Jul 24, 2011 10:33 PM

Sorry , you 'are wrong

we use EXE's 64 bits on Windows Seven compiled with borland 582 with Canalfive controls for our applications!!!!

Canalfive is compatible with borland c++ last release

Perhaps you have an old version of canalfive ...or you not Know How compile it ...

Or I not understood what you mean ...with " canalfive is not compatible "

FWH .. BC582.. xharbour
ukservice
Posts: 417
Joined: Tue Feb 23, 2010 03:09 PM
Re: ExplorerBar with Windows 7 look
Posted: Sun Jul 24, 2011 10:53 PM

Thanks for reply.

What is the colour of Windows 7?

I can compile with latest Harbour and Bcc 5.8.2.

But Canal five is abandoned by Paco, so there won´t be updates or support.

Also, when I compile .c files I get some warnings.

So that´s why I want to use native FWH controls.

Always I can hire Fivetech for support!!.

FWH 11.11, Harbour 3.1 and Borland C++ 5.82
MdaSolution
Posts: 401
Joined: Tue Jan 05, 2010 02:33 PM
Re: ExplorerBar with Windows 7 look
Posted: Mon Jul 25, 2011 10:58 AM
I write you on quote


Thanks for reply.

What is the colour of Windows 7?

I can compile with latest Harbour and Bcc 5.8.2.

But Canal five is abandoned by Paco, so there won´t be updates or support.

If you have canalfive controls you have also the sources code ( class and c functions) why you need the support ?

Also, when I compile .c files I get some warnings.

also if you compile some c fwh functio have warning I compile with W2 with no problems
perhaps you have a c5.c wrong ( oldest 16 bit ) and not the c5new.c of canalfive good for 64 bit and borland 5.82

So that´s why I want to use native FWH controls.
Always I can hire Fivetech for support!!.

Good , Mr. Ukservice But I think they'll not modify never texplorerbar as vtaskbar of canalfive ( I mean as vitem class do)
FWH .. BC582.. xharbour
ukservice
Posts: 417
Joined: Tue Feb 23, 2010 03:09 PM
Re: ExplorerBar with Windows 7 look
Posted: Mon Jul 25, 2011 01:35 PM

Thanks for reply.

Yes, I have full source code for Harbour. I am able to run it.

Could you please share the code you have to get Windows 7 look?.

Thank you very much.

FWH 11.11, Harbour 3.1 and Borland C++ 5.82
MdaSolution
Posts: 401
Joined: Tue Jan 05, 2010 02:33 PM
Re: ExplorerBar with Windows 7 look
Posted: Wed Jul 27, 2011 03:15 PM

On Vitem class :
search

case XBox

GradientFill( hDC, aRect[ 1 ] - 2, aRect[ 2 ] - 3, aRect[ 3 ] + 1, aRect[ 4 ] + 5,;
{ { 1, RGB( 220, 235, 252 ), RGB (199, 223, 252) } }, .T. )

BoxEx( hDC, {aRect[1], aRect[2], aRect[3]+1, aRect[4]-1}, nColor )

from last week we are trying to convert for vtaskbar class all functions to native or with native fwh functions

FWH .. BC582.. xharbour
ukservice
Posts: 417
Joined: Tue Feb 23, 2010 03:09 PM
Re: ExplorerBar with Windows 7 look
Posted: Wed Jul 27, 2011 04:02 PM
Thank you.

But it does not show as yours:



Uploaded with ImageShack.us


Code (fw): Select all Collapse
   case ::oParent:nTipoSel == XBOX

        nColor := if( ::oParent:nClrBox != nil, ::oParent:nClrBox, ::oParent:nClrText )
        //BoxEx( hDC, {aRect[1], aRect[2], aRect[3], aRect[4]}, nColor )

        GradientFill( hDC, aRect[ 1 ] - 2, aRect[ 2 ] - 3, aRect[ 3 ] + 1, aRect[ 4 ] + 5,;
                      { { 1, RGB( 220, 235, 252 ), RGB (199, 223, 252) } }, .T. )

        BoxEx( hDC, {aRect[1], aRect[2], aRect[3]+1, aRect[4]-1}, nColor )



   case ::oParent:nTipoSel == INSET



Maybe when defining I miss something?

Code (fw): Select all Collapse
  @ 10, 10 VMENU oVMenu SIZE 120, 350 OF oPDlg ;
      XBOX   ;  // BORDER
      HEIGHT ITEM 25 ;
      BORDER




So you are creating an stand-alone VMenu class?.
FWH 11.11, Harbour 3.1 and Borland C++ 5.82
MdaSolution
Posts: 401
Joined: Tue Jan 05, 2010 02:33 PM
Re: ExplorerBar with Windows 7 look
Posted: Wed Jul 27, 2011 07:10 PM
you must set the color of xbox

@ 24, 05 VMENU oBar SIZE nSplit-10, 270 OF oApp():oDlg ;
COLOR CLR_BLACK, GetSysColor(15) ;
HEIGHT ITEM 35 XBOX


oBar:nCLRBox := MIN(GetSysColor(13), GetSysColor(14))
FWH .. BC582.. xharbour
ukservice
Posts: 417
Joined: Tue Feb 23, 2010 03:09 PM
Re: ExplorerBar with Windows 7 look
Posted: Wed Jul 27, 2011 10:23 PM

Thank you.

It works perfect.

Have you finished changing VMENU not to use canal5.lib?.

Do you plan to sell it?.

FWH 11.11, Harbour 3.1 and Borland C++ 5.82
MdaSolution
Posts: 401
Joined: Tue Jan 05, 2010 02:33 PM
Re: ExplorerBar with Windows 7 look
Posted: Sat Jul 30, 2011 08:57 AM

we're working also!!

FWH .. BC582.. xharbour
Static archive · New replies & topics via GitHub Discussions