New FWH 16.04

[Antonio Linares]

viewtopic.php?f=16&t=32427&start=0

[ukoenig]

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

[Antonio Linares]

Uwe,

Many thanks for your feedback. We are reviewing it

[byte-one]

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!

[nageswaragunupudi]

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?

[byte-one]

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

[nageswaragunupudi]

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  RUN

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

[nageswaragunupudi]

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  RUN

  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  RUN

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

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

[ukoenig]

Mr. Rao,

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



thank You
Uwe

[byte-one]

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

The file is not present!?

[Antonio Linares]

Günther,

We finally decided to keep it private for some time

[ukoenig]

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

[Antonio Linares]

viewtopic.php?p=190546#p190546

[nageswaragunupudi]

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.

[nageswaragunupudi]

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.