Page 1 of 1
TTaskPanel
Posted: Thu Feb 26, 2015 2:18 pm
by AntoninoP
Hello,
Is it possible use TTaskPanel without a TExplorerBar or make the TExplorerBar totally transparent?
Thanks,
Antonino Perricone
Re: TTaskPanel
Posted: Fri Feb 27, 2015 2:00 pm
by AntoninoP
Hello,
I modified the texplbar.prg code at line 186:
old one was:
Code: Select all | Expand
Gradient( ::hDC, { 0, 0, ::nHeight(), ::nWidth() }, ::nTopColor, ::nBottomColor, .T. )
new one is:
Code: Select all | Expand
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
cd source\%
1hbmk2 %
2 -clipper -i..\..\include
move /y %
2.obj ..\..\lib\
cd ..\..\lib
lib /
remove:%2.obj fiveh32.liblib /
remove:objh32\%2.obj fiveh32.liblib 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
Re: TTaskPanel
Posted: Fri Mar 20, 2015 2:36 pm
by 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
Re: TTaskPanel
Posted: Fri Mar 20, 2015 2:50 pm
by 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?
Re: TTaskPanel
Posted: Fri Mar 20, 2015 3:35 pm
by 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
I think should be
Regards,
Antonino Perricone
Re: TTaskPanel
Posted: Fri Mar 20, 2015 4:20 pm
by 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
Re: TTaskPanel
Posted: Fri Mar 20, 2015 4:29 pm
by AntoninoP
As user, I should prefer to use TTaskPanel alone, as replacement of VBar.
But this solution is simpler.