TTaskPanel

[AntoninoP]

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

[AntoninoP]

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

Code: Select all  Expand view  RUN

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

new one is:

Code: Select all  Expand view  RUN

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

cd source\%1
hbmk2 %2 -clipper -i..\..\include
move /y %2.obj ..\..\lib\
cd ..\..\lib
lib /remove:%2.obj fiveh32.lib
lib /remove:objh32\%2.obj fiveh32.lib
lib fiveh32.lib %2.obj
cd .. 

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]

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]

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?

[AntoninoP]

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

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

I think should be

Code: Select all  Expand view  RUN

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

Regards,
Antonino Perricone

[Antonio Linares]

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

[AntoninoP]

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