ExplorerBar with Windows 7 look

[Daniel Garcia-Gil]

Testing you sample, TExplorerList() is invading Title. See picture:

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

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

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: Select all  Expand view  RUN

OF oTitle

[ukservice]

Hello.

I change coords of tExlorerlist but it is always printed on top:

Code: Select all  Expand view  RUN

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: Select all  Expand view  RUN

   @ 10,370 TITLETEXT TEXT "I am a Say:" of oTitle
   @ 0.5,55 GET cGet of oTitle SIZE 310, 22 ;
      ACTION MSGALERT(CGET)

[Daniel Garcia-Gil]

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

Thanks... me

[ukservice]

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.

[MdaSolution]

If you use Vtaskbar , you can change the vmenu look for windows seven

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

[ukservice]

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.

[MdaSolution]

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 "

[ukservice]

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!!.

[MdaSolution]

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)

[ukservice]

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.

[MdaSolution]

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

[ukservice]

Thank you.

But it does not show as yours:



Uploaded with ImageShack.us

Code: Select all  Expand view  RUN

   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: Select all  Expand view  RUN

 @ 10, 10 VMENU oVMenu SIZE 120, 350 OF oPDlg ;
      XBOX   ;  // BORDER
      HEIGHT ITEM 25 ;
      BORDER
 

So you are creating an stand-alone VMenu class?.

[MdaSolution]

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))

[ukservice]

Thank you.

It works perfect.

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

Do you plan to sell it?.

[MdaSolution]

we're working also!!