FiveTech Software tech support forums

Antonio,

testing FWH 16.4

there is a problem with changes of Buttonbar

until FWH 16.3, I could place BtnBmp's inside a buttonbar on any position.
That doesn't work anymore like the screenshot shows.

Images are NOT transparent and left images are shown on TOP



a typicak button
// oBBtn[11]:lTransparent := .t.
doesn't work if defined or not defined

@ 5, 620 BTNBMP oBBtn[11] OF oBar ;
SIZE 120, 32 PIXEL ;
BORDER ;
PROMPT "&Excel" ;
FILENAME c_Pfad1 + "Excel1.Bmp" ;
ACTION ( oBrw1:ToExcel(), ;
SetFocusAfter(FindWindow( "XLMAIN", 0 ) ) ) ;
FONT oFontSys ;
LEFT
oBBtn[11]:bClrGrad := { | lMouseOver | If( ! lMouseOver,;
{ { aVal[112], aVal[110], aVal[111] }, ;
{ aVal[112], aVal[111], aVal[110] } }, ;
{ { aVal[116], aVal[114], aVal[115] }, ;
{ aVal[116], aVal[115], aVal[114] } } ) }
oBBtn[11]:cToolTip = { "nach EXEL" + CRLF + "exportieren","EXCEL", 1, CLR_BLACK, 14089979 }
oBBtn[11]:SetColor( 0, )

any idea ?

best regards
Uwe

Uwe,

Many thanks for your feedback. We are reviewing it

Antonio, try with this file http://byte-one.com/link_big.bmp to use msgsplash(). The quality is not so good as in last FWH-Version. If i convert this file to PNG, all is ok!

I do not know if it is my internet issue, but I am unable to access the file.
Can you email to any one of us?

I forgot, that in internet all is case-sensitive. Now is functioning! Thanks.

Thanks
I see the picture now. We shall test and get back to you.

Meanwhile, just for fun you may run this one line code:

Code: Select all  Expand view

XBROWSER "http://byte-one.com/link_big.bmp"
 

Mr Uwe

Can you please make this small modification in btnbmp.prg and test ?

In method METHOD Paint() CLASS TBtnBmp please locate this line

Code: Select all  Expand view

  local lStdBtn  := ! l2000 .and. ! ::lGDIP .and. ::oWnd:IsKindOf( "TBAR" )

Please add ".and. ::lBarBtn" to this line.
After revision, the line looks like this:

Code: Select all  Expand view

  local lStdBtn  := ! l2000 .and. ! ::lGDIP .and. ::oWnd:IsKindOf( "TBAR" ) .and. ::lBarBtn
 

After making this change please check if the buttons are painted ok.

Mr. Rao,

PERFECT it works again.
As well I added and tested the counters at record-selector.



thank You
Uwe

* New: WinRT API support implemented in source\function\winrt.prg

The file is not present!?

Günther,

We finally decided to keep it private for some time

Mr. Rao,

maybe possible, to add these few lines to xbrowse because of the missing textcolor ?
( like the background-color, textcolor can be changed at runtime )



new DATA

nRecSelColor,; // Background color for the record selector column, by default uses the backgrounf footer
nRecTxtColor // Text color for the record selector column, by default black
...
...
if ::nRecSelColor == nil
::nRecSelColor := If( ::l2000, nRGB( 231, 242, 255 ), Eval( ::bClrHeader )[ 2 ] )
endif
if ::nRecTxtColor == nil
::nRecTxtColor := nRGB( 0, 0, 0 )
endif
...
...
added to all selector text / font-defines :

IfNil( ::oRecSelFont, ::oFont, ::nRecTxtColor ) )

best regards
Uwe

Mr Uwe

In the present release we can change nRecSelColor during runtime.
But we did not have time to provide for text color. This will be done in next version.

Mr Günther

Thanks for pointing this out. This was the result of painting non-alpha images also transparently.
We restored the earlier behavior in the revised build.