Gradient-Tool Version 2.0 (FWH 9.08) UPDATE-DOWNLD.

[ukoenig]

Hello,

today the new Gradient-Tool will be ready for Download
Both Color and RGB-Values are calculated now.
Single Colors are supported as well.
Each Preview includes the needed Source.
The new xBrowse-Gradient-Background ( FWH 9.08 ) is supported :

The Main-Screen

The Painter

The Gradient-Bitmap-Creator

Window-Preview

Dialog-Preview

Folder-Preview

xBrowse-Preview


Best Regards
Uwe

[ukoenig]

Downloads :
( Some small changes will be added in next FWH-version )
Blustone.bmp was missing in the first Download Zip-file.
Please add this BMP from FWH Backgrounds, if You see white Browser-Backgrounds.
The BMP is included now.

Gradient-Tool ( 1.1 MB ):
http://www.pflegeplus.com/fw_downloads/Gradtool.zip

Freeimage.dll Version 3 ( 0.8 MB ) :
http://www.pflegeplus.com/fw_downloads/Freeimg3_12.zip

Best regards
Uwe

[hag]

UWE:

Downloaded your new gradient tool and it is very gool. I tried it on a dialog (resources) and it worked well. I have one problem. I have a number of say oSay. They do not come out well. the coloring is not good. The says are not transparent. Is there a way to over come this problem?

[ukoenig]

Harvey,

Is Your Question :
You want transparent SAY's on Gradient, or good looking SAY-Backgrounds working with the Dialog-Gradient ?
Both combinations You can test with the new Update ( will be finished on Sunday ).

The new VTitle-Class is very nice, to show Text on a defined Screen-Position,
but until now, it doesn't work together with Resources.

There is still another way, I'm using for the Moment to solve this Problem.
I added another Folder-page to the Tools, to define Text showing on a Gradient-Background.
I still have to add : Font- and Brush-Selection. A Preview for transparent Text works as well.
A Dialog-Preview shows the Text on different Positions on the selected Dialog-Gradient-Background.
The Text-Background can be a Gradient as well or any Color or Brush and is adjusted to the Font-Height.
The complete Height is calculated : defined Space between Text for Top and Bottom + Font-Height.

Best Regards
Uwe

[ukoenig]

The Update 2.0

Download : http://www.pflegeplus.com/fw_downloads/GrdTool1.zip

What's new :

Test of any Text with defined Font and Color on Dialog-Gradient-Background.
Titles from Resources with any Background and Font / Color.
You can change the Text-Background-Height.
The Calculation will be : 2 x Value ( Top + Bottom ) + Font-Height.
The Text is placed on different Postions on the Screen, to check, how it looks
together with the selected Gradient.

New Folder-Page for Text-Testing

Gradient Text-Background

Brush Text-Background

Transparent Text-Background

Source


Best Regards
Uwe

[hag]

UWE:

Wow! the tools that you have created have been extremely helpful. They save me great deal of time. Thanks do much.
The defined says are transparent and working fine. In gradTools1 ran into a bound aray access when I selected the dialog button.

[ukoenig]

Harvey,

Thank You for the Info.
It is fixed and You can Download the 2.0b - Version dated 6.09.2009 :
http://www.pflegeplus.com/fw_download/GrdTool1.zip

It was something copied from one part to another
We have Text with Gradient- and Brush-Background , Transparent Text.
I will still add a normal Textcolor-Background using the 2. Gradient-browser.


Say-Background added

Source added


Best regards
Uwe

[hag]

UWE

The color on the dialog is not appearing correctly. I change colors and dialog stays the same.

[ukoenig]

Harvey,

I think, it will be OK now.
Also the new 3. Test-Option ( normal Text-Background ) is added.
The 2. Color-Browser is used for the Text-Background.
The Start-Colors are better now.

Download ( 2.0b ) : http://www.pflegeplus.com/fw_downloads/GrdTool1.zip

I noticed, a normal :

REDEFINE SAY oSAY1 VAR cText1 ID 110 OF oDlg5 COLOR T_COLOR, T_COLOR2 FONT oTextFont

doesn't work with Dialog TRANSPARENT

In case You still find something, just let me now.
Also if You still have some ideas, to make it better.

Best regards
uwe

[Marcelo Via Giglio]

Hello UWE,

thanks very much for your contribitions this are really helpful, do you think to develop an integral tools with all in one?

thanks

Marcelo

[hag]

uwe:
I may be wrong but I downloaded 2.0b and pasted the code...colors work fine but the horizontal, vertical appear not working in the code writing. Always is vertical on the Diallog. I did not try the browse or screen.

[ukoenig]

Harvey,

I had a look at the Dialog-Preview. It seems to be OK
The difference is only :
Horizontal
GradientFill( hDC, 0, 0, oWnd:nHeight, oWnd:nWidth, aGrad, .T. )
Vertical
GradientFill( hDC, 0, 0, oWnd:nHeight, oWnd:nWidth, aGrad, .F. )





I don't know the FWH-Version You are using.
I my Background-Tools, I included a Version-Check for the Gradient-Painting.
Using a Version < FWH 8.07, GradientFill must be changed.

Code: Select all  Expand view  RUN

IF DIRECTION = .T.  // Horizontal
      IF FWHVERS < 7.09
            Degrade( hDC, oWnd )  
      ENDIF
      IF FWHVERS >= 7.09 .and. FWHVERS < 8.07   
            Gradient( hDC, { 0, 0, oWnd:nHeight, oWnd:nWidth }, COLOR1, COLOR2, .T. )
      ENDIF
      IF FWHVERS >= 8.07
            GradientFill( hDC,  0, 0, oWnd:nHeight, oWnd:nWidth, aGrad, .T. )
      ENDIF
ELSE
      IF FWHVERS < 7.09
            Degrade( hDC, oWnd )  
      ENDIF
      IF FWHVERS >= 7.09 .and. FWHVERS < 8.07   
            Gradient( hDC, { 0, 0, oWnd:nHeight, oWnd:nWidth }, COLOR1, COLOR2, .F. )
      ENDIF
      IF FWHVERS >= 8.07
            GradientFill( hDC,  0, 0, oWnd:nHeight, oWnd:nWidth, aGrad, .F. )
      ENDIF 
ENDIF

// ------- NO Vertical !!! -----------------------------

STATIC FUNCTION Degrade( hDC, oWnd )
LOCAL nStep , nStepY
LOCAL oBrush
LOCAL i, r,g,b
LOCAL r0,g0,b0
LOCAL r1, g1, b1
LOCAL rD, gD, bD
LOCAL aRect := GETCLIENTRECT( oDlg:hWnd )

nStep  := ( aRect[ 3 ] - aRect[ 1 ] )
nStepY := ( aRect[ 3 ] - aRect[ 1 ] ) / nStep
aRect[ 3 ] = aRect[ 1 ] + nStepY

r0 := nRGBRed (COLOR1)
g0 := nRGBGreen (COLOR1)
b0 := nRGBBlue (COLOR1)
r1 := nRGBRed (COLOR2)
g1 := nRGBGreen (COLOR2)
b1 := nRGBBlue (COLOR2)
rD := r1-r0
gD := g1-g0
bD := b1-b0

r := 256*rD/Max(nStep,1)
g := 256*gD/Max(nStep,1)
b := 256*bD/Max(nStep,1)

r0*=256
g0*=256
b0*=256

FOR i = 0 TO nStep-1 STEP nStepY
   r0 += r
   g0 += g
   b0 += b
   DEFINE BRUSH oBrush COLOR nRGB( r0/256, g0/256, b0/256 )
   FILLRECT( hDC, aRect, oBrush:hBrush )
   RELEASE BRUSH oBrush

   aRect[ 1 ] += nStepY
   aRect[ 3 ] += nStepY
NEXT

RETURN (nil)
 

Marcelo,

After a new FWH-Version, I'm doing changes in the different Tools.
There will be a Main-Module, from where it is possible to start the different Parts.
As long there are still changes in different Classes, I use seperate Tools,
because it is better to control, what to do.

Some nice Extensions for a new Update :
1. Complete Resizing of the Titles.
2. Control from the Background-Gradient
3. Now it is possible, to design the Title with real Size and Font,
in Relation to the Background-Gradient on the Main-Page.

New Settings :


Real Size-Preview :

Best Regards
Uwe

[TimStone]

Does the gradient tool replace all of the previous tools you released ( xbrowse, bar, button, background )

[ukoenig]

Hello Tim,

This one is just for a quick Gradient-Preview together with Text and
using Text on BMP-Headlines.
It is useful, as long You need just the Gradient-values and check Text on
different Screen-Positions with Gradient-Background.
Text is nowhere tested with the other Tools.
Testing Text on Images and Brushes, will be included in the next Update as well.

it is planned, to collect the different Tests to only one big Application.
For the moment ( as long there are still changes in FWH ),
I will keep the Tests in different Applications.
I'm working on Ribbonbars and VTitles as well.

Best regards
Uwe

[TimStone]

Uwe,

You are providing an incredible set of tools for FWH developers and I'm sure they all appreciate your work. Thank you.

I've been using Five Win since its early days, and FWH since it was first introduced. I have been very impressed with the many changes and enhancements we have seen in recent years. As a PC programmer since 1982, I can tell you that new ideas will always contribute changes to good products. I think you will continue to see additions to FWH for several years to come. My own clients continue to come up with new features and methodologies they want to see employed in my product.

Even with the alternative programming options available to us, the xBase community still has a presence and still produces products that work. Consumers, for the most part, don't care what was used to write a program. They just want it to work. That gives us the freedom to work with a product that is flexible and reliable.

Again, thanks for all your work ! It is impressive and appreciated.

Tim