topic-30258

Posts: 375

Joined: Tue Feb 10, 2015 09:48 AM

TTaskPanel
Posted: Thu Feb 26, 2015 02:18 PM

Hello,
Is it possible use TTaskPanel without a TExplorerBar or make the TExplorerBar totally transparent?
Thanks,
Antonino Perricone

AntoninoP

Posts: 375

Joined: Tue Feb 10, 2015 09:48 AM

Re: TTaskPanel
Posted: Fri Feb 27, 2015 02:00 PM

Hello,
I modified the texplbar.prg code at line 186:
old one was:

Code (fw): Select all Collapse

Gradient( ::hDC, { 0, 0, ::nHeight(), ::nWidth() }, ::nTopColor, ::nBottomColor, .T. )

new one is:

Code (fw): Select all Collapse

   if ::lTransparent
      ::PaintBack(::hDC)
   else
      Gradient( ::hDC, { 0, 0, ::nHeight(), ::nWidth() }, ::nTopColor, ::nBottomColor, .T. )            
   endif

I am not sure about Paint, PaintBack, BeginPaint, EndPaint, etc where is the correct point manage the transparency.

If anyone is interested, I create this batch to update a single prg inside FiveH32.lib

Code (dos): Select all Collapse

<div class="dos" id="{CB}" style="font-family: monospace;"><a href="http://www.ss64.com/nt/cd.html">cd</a> source\%1
hbmk2 %2 -clipper -i..\..\include
move /y %2.obj ..\..\lib\
<a href="http://www.ss64.com/nt/cd.html">cd</a> ..\..\lib
lib /remove:%2.obj fiveh32.lib
lib /remove:objh32\%2.obj fiveh32.lib
lib fiveh32.lib %2.obj
<a href="http://www.ss64.com/nt/cd.html">cd</a> .. </div>

It works with harbour and visual studio, it takes 2 parameters, the first one is the directory where is placed the prg and the second one is the filename without extension of prg.

I hope this fix will be included in fiveWin

Regards,
Antonino Perricone

AntoninoP

Posts: 375

Joined: Tue Feb 10, 2015 09:48 AM

Re: TTaskPanel
Posted: Fri Mar 20, 2015 02:36 PM

Hello,

I see that this modification is not present in FWH 15.03, why?
Is it so wrong to want a transparent TExplorerBar? We use TExplorerBar with TTaskPanel in a windows with image background...
It is not possible use TTaskPanel without TExplorerBar.
Regards,
Perry

nageswaragunupudi

Posts: 10733

Joined: Sun Nov 19, 2006 05:22 AM

Re: TTaskPanel
Posted: Fri Mar 20, 2015 02:50 PM

Is it so wrong to want a transparent TExplorerBar?

Not at all.

I see that this modification is not present in FWH 15.03, why?

Due to constraints of time, we may not be able to accommodate every proposal "immediately". Urgent changes and fixes get priority.
Meanwhile, would you be pleased to provide a screen-shot for the benefit of all users?

Regards

G. N. Rao.

Hyderabad, India

AntoninoP

Posts: 375

Joined: Tue Feb 10, 2015 09:48 AM

Re: TTaskPanel
Posted: Fri Mar 20, 2015 03:35 PM

Sorry, I thought you ignored my post.
For these screenshot I mixed the samples explbar3.prg and btntrans.prg, plus some modification to avoid the explorerBar occupies all window.

This image is without my modification, I setted oExBar:lTransparent := .T.:

This one, instead, is with my modification:

If one want the first look just set the transparent to false.

I saw on texplbar.prg line 74

Code (fw): Select all Collapse

   ::nBottom = nHeight - nTop
   ::nRight  = nWidth - nLeft

I think should be

Code (fw): Select all Collapse

   ::nBottom = nHeight + nTop
   ::nRight  = nWidth + nLeft

Regards,
Antonino Perricone

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: TTaskPanel
Posted: Fri Mar 20, 2015 04:20 PM

Antonino,

It looks nice, but as possibilities are endless, the question is:

will FWH users want this change ?

Lets see what the FWH users say :-)

regards, saludos

Antonio Linares
www.fivetechsoft.com

AntoninoP

Posts: 375

Joined: Tue Feb 10, 2015 09:48 AM

Re: TTaskPanel
Posted: Fri Mar 20, 2015 04:29 PM

As user, I should prefer to use TTaskPanel alone, as replacement of VBar.
But this solution is simpler.

FiveTech Support Forums

Continue the discussion