FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour xBrowse Gradient-Background
Posts: 4043
Joined: Wed Dec 19, 2007 06:40 PM
xBrowse Gradient-Background
Posted: Fri Jul 24, 2009 10:06 PM
Hello,

because of the new xBrowse-Background-Functions ( stretching ),
I finished my Tool to define any Gradient, resize and save as BMP
and test as xBrowse-Background.
For a xBrowse-Test, You can load any saved Gradient-BMP from the
Sub-Directory /Images and add Font and Fontcolor.
It also can be used, for a quick Gradient-Array Define
or just get the Color-Values.
The Gradient-Array You can copy from the Bottom of the Gradient-Preview.
I still have to add Font and Fontcolor for the xBrowse-Test.
As soon it is finished, I will put it on this place for Download.

I noticed : without Footer, the Background is not stretched completely to the Bottom
of the Browser ( You can see this in the xBrowse-Preview, it shows a small 2 mm tiled Part )
Much better to see in Screenshot 2, there is the last Row shown tiled.

The Gradient-Tool :


The xBrowse-Preview :




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: 598
Joined: Tue Apr 15, 2008 04:51 PM
Re: xBrowse Gradient-Background
Posted: Sat Jul 25, 2009 05:28 AM

Where can I get the background tool?

Thank you

Harvey
Posts: 4043
Joined: Wed Dec 19, 2007 06:40 PM
Re: xBrowse Gradient-Background
Posted: Sat Jul 25, 2009 06:00 AM

Harvey,

I think it will be finished this Weekend for Download.
Font-Select and Color-Select for xBrowse-Test, I have still to add.

Best Regards
Uwe :lol:

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: 598
Joined: Tue Apr 15, 2008 04:51 PM
Re: xBrowse Gradient-Background
Posted: Sat Jul 25, 2009 06:19 AM

The colors in the browse look great. I look forward to testing it.

Thank you

Harvey
Posts: 4043
Joined: Wed Dec 19, 2007 06:40 PM
Re: xBrowse Gradient-Background
Posted: Sat Jul 25, 2009 08:08 AM
Hello Harvey,

I added the Font and Fontcolor-Define for the xBrowse-Test.
Still any ideas, to add something ?



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: xBrowse Gradient-Background
Posted: Sat Jul 25, 2009 12:59 PM

Uwe,

As of now, stretching background image is working perfectly in case of xbrowse created from code both in windows and dialogs, but not in xbrowse created from resource.

In case of browse created from resource, stretch is working only in the area occupied the data cells, and rest of the area is
pained tiled. This is fixed in version 9.07 under release.

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 4043
Joined: Wed Dec 19, 2007 06:40 PM
Re: xBrowse Gradient-Background
Posted: Sat Jul 25, 2009 03:11 PM

Antonio,

Thank You very much for the Information.
For the Tool, I use only Resources.
I think, using a Photo ( many Colors ), nobody will notice it.
It is just the Gradient-BMP, where 2 Colors are used.
I will finish the Tool this Weekend and make a Update after the new FWH-release.

Best Regards
Uwe :lol:

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: 4043
Joined: Wed Dec 19, 2007 06:40 PM
Re: xBrowse Gradient-Background
Posted: Sun Jul 26, 2009 03:21 PM
Antonio,

carry on with testing, I noticed the following with
oBrw:SetBackGround( cFile, BCK_STRETCH )



Loading the Dialog with a new Image, it works only with ON INIT.
Loading a Image from inside the Dialog, it is OK.

------------------------------------
DBSELECTAREA(2)
REDEFINE XBROWSE oBrw ID 110 OF oDlg5 AUTOCOLS ALIAS "Customer"

Doesn't work at Start !!! ( only from inside the Dialog ).
The Image is shown Tiled.
-----------------------------------------------------------------
oBrw:SetBackGround( cFile, BCK_STRETCH )

oBrw:nColDividerStyle := LINESTYLE_BLACK
oBrw:nRowDividerStyle := LINESTYLE_BLACK
oBrw:nMarqueeStyle := MARQSTYLE_HIGHLROW
oBrw:bClrSel = { || { 0, 16314573 } }
AEval( oBrw:aCols, { |o| o:oDataFont := oFONT } )
oBrw:bClrStd := { || { D_TCOLOR, 15724527 } }
------------------------------------

Include it in ON INIT, it works stretched at Dialog-Start.
-----------------------------------------------------------------
ACTIVATE DIALOG oDlg5 CENTERED ;
ON INIT oBrw:SetBackGround( cFile, BCK_STRETCH ) ;
ON PAINT( SETUP_GRAD( hDC, oDlg5 ), ;
GradBrush( oDlg5, { { 0.2, 15180357, 16379082 },;
{ 0.2, 16379082, 15180357 } }, 1 ) )



The Quality gets completely lost ( color-depth ) with BCK_STRETCH :
( The left Picture-Area shows the difference )

The Quality stays the same, using BCK_TILED :


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: 4043
Joined: Wed Dec 19, 2007 06:40 PM
Re: xBrowse Gradient-Background
Posted: Mon Jul 27, 2009 01:07 PM
I defined :

REDEFINE XBROWSE oBrw1 ID 110 OF oDlg6 AUTOCOLS ALIAS "Desktop"

oBrw1:nColDividerStyle := LINESTYLE_BLACK
oBrw1:nRowDividerStyle := LINESTYLE_BLACK
oBrw1:nMarqueeStyle := MARQSTYLE_HIGHLROW
AEval( oBrw1:aCols, { |o| o:oDataFont := oFONT } )

oBrw1:SetBackGround( cFile1, BCK_TILED )

oBrw1:bClrSelFocus = { || { 16777215,128 } } // White / Red
oBrw1:bClrSel = { || { 16777215,8388608 } } // White / Blue
oBrw1:bClrStd := { || { 0, 65535 } } // Black / Yellow


Result ( didn't work, colors ignored ) :

Focus :


Lost Focus :


I changed the Position ( works ) :

oBrw1:bClrSelFocus = { || { 16777215,128 } } // White / Red
oBrw1:bClrSel = { || { 16777215,8388608 } } // White / Blue
oBrw1:bClrStd := { || { 0, 65535 } } // Black / Yellow


oBrw1:SetBackGround( cFile1, BCK_TILED )

Focus :


Lost Focus :


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.

Continue the discussion