FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour New FWH 16.04
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM

New FWH 16.04

Posted: Thu May 12, 2016 06:51 PM
regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 4043
Joined: Wed Dec 19, 2007 06:40 PM

Re: New FWH 16.04

Posted: Fri May 13, 2016 08:13 AM
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 :-)
Since 1995 ( the first release of FW 1.9 )

i work with FW.

If you have any questions about special functions, maybe i can help.
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM

Re: New FWH 16.04

Posted: Fri May 13, 2016 09:05 AM

Uwe,

Many thanks for your feedback. We are reviewing it

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 1048
Joined: Mon Oct 24, 2005 09:54 AM

Re: New FWH 16.04

Posted: Fri May 13, 2016 11:01 AM
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!
Regards,
Günther
---------------------------------
office@byte-one.com
Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM

Re: New FWH 16.04

Posted: Fri May 13, 2016 11:14 AM

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?

Regards



G. N. Rao.

Hyderabad, India
Posts: 1048
Joined: Mon Oct 24, 2005 09:54 AM

Re: New FWH 16.04

Posted: Fri May 13, 2016 12:20 PM

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

Regards,
Günther
---------------------------------
office@byte-one.com
Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM

Re: New FWH 16.04

Posted: Fri May 13, 2016 12:29 PM
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 (fw): Select all Collapse
XBROWSER "http://byte-one.com/link_big.bmp"


Regards



G. N. Rao.

Hyderabad, India
Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM

Re: New FWH 16.04

Posted: Fri May 13, 2016 01:25 PM
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 (fw): Select all Collapse
   local lStdBtn  := ! l2000 .and. ! ::lGDIP .and. ::oWnd:IsKindOf( "TBAR" )

Please add ".and. ::lBarBtn" to this line.
After revision, the line looks like this:
Code (fw): Select all Collapse
   local lStdBtn  := ! l2000 .and. ! ::lGDIP .and. ::oWnd:IsKindOf( "TBAR" ) .and. ::lBarBtn


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



G. N. Rao.

Hyderabad, India
Posts: 4043
Joined: Wed Dec 19, 2007 06:40 PM

Re: New FWH 16.04

Posted: Fri May 13, 2016 02:07 PM
Mr. Rao,

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



thank You
Uwe :-)
Since 1995 ( the first release of FW 1.9 )

i work with FW.

If you have any questions about special functions, maybe i can help.
Posts: 1048
Joined: Mon Oct 24, 2005 09:54 AM

Re: New FWH 16.04

Posted: Fri May 13, 2016 08:55 PM
* New: WinRT API support implemented in source\function\winrt.prg

The file is not present!?
Regards,
Günther
---------------------------------
office@byte-one.com
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM

Re: New FWH 16.04

Posted: Sat May 14, 2016 06:30 AM

Günther,

We finally decided to keep it private for some time

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 4043
Joined: Wed Dec 19, 2007 06:40 PM

Re: New FWH 16.04

Posted: Sat May 14, 2016 02:58 PM
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 :-)
Since 1995 ( the first release of FW 1.9 )

i work with FW.

If you have any questions about special functions, maybe i can help.
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM

Re: New FWH 16.04

Posted: Sun May 15, 2016 06:57 PM
regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM

Re: New FWH 16.04

Posted: Sun May 15, 2016 08:33 PM

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.

Regards



G. N. Rao.

Hyderabad, India
Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM

Re: New FWH 16.04

Posted: Sun May 15, 2016 08:36 PM

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.

Regards



G. N. Rao.

Hyderabad, India