Page 2 of 3
Re: ExplorerBar with Windows 7 look
Posted:
Sun Jul 24, 2011 12:18 pm
by Daniel Garcia-Gil
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
Re: ExplorerBar with Windows 7 look
Posted:
Sun Jul 24, 2011 2:14 pm
by ukservice
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)
Re: ExplorerBar with Windows 7 look
Posted:
Sun Jul 24, 2011 2:48 pm
by Daniel Garcia-Gil
ukservice wrote:Thank you for info about Ttitle. t is very powerful. Who made it?. It is great.
Thanks... me
Re: ExplorerBar with Windows 7 look
Posted:
Sun Jul 24, 2011 6:07 pm
by 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.
Re: ExplorerBar with Windows 7 look
Posted:
Sun Jul 24, 2011 8:12 pm
by MdaSolution
If you use Vtaskbar , you can change the vmenu look for windows seven
use clausole XBOX and the color of system (windows seven)
Re: ExplorerBar with Windows 7 look
Posted:
Sun Jul 24, 2011 8:44 pm
by 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.
Re: ExplorerBar with Windows 7 look
Posted:
Sun Jul 24, 2011 10:33 pm
by 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 "
Re: ExplorerBar with Windows 7 look
Posted:
Sun Jul 24, 2011 10:53 pm
by 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!!.
Re: ExplorerBar with Windows 7 look
Posted:
Mon Jul 25, 2011 10:58 am
by 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)
Re: ExplorerBar with Windows 7 look
Posted:
Mon Jul 25, 2011 1:35 pm
by 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.
Re: ExplorerBar with Windows 7 look
Posted:
Wed Jul 27, 2011 3:15 pm
by 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
Re: ExplorerBar with Windows 7 look
Posted:
Wed Jul 27, 2011 4:02 pm
by ukservice
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?.
Re: ExplorerBar with Windows 7 look
Posted:
Wed Jul 27, 2011 7:10 pm
by 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))
Re: ExplorerBar with Windows 7 look
Posted:
Wed Jul 27, 2011 10:23 pm
by ukservice
Thank you.
It works perfect.
Have you finished changing VMENU not to use canal5.lib?.
Do you plan to sell it?.
Re: ExplorerBar with Windows 7 look
Posted:
Sat Jul 30, 2011 8:57 am
by MdaSolution
we're working also!!