FiveTech Software tech support forums

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

OF oTitle

Hello.

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

Code: Select all  Expand view

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

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

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

Thanks... me

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.

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

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

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.

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 "

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

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)

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.

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

Thank you.

But it does not show as yours:



Uploaded with ImageShack.us

Code: Select all  Expand view

   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

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

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

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

Thank you.

It works perfect.

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

Do you plan to sell it?.

we're working also!!