FiveTech Support Forums

Hi,

What is the best option to create a gradient ?. For example a light red to a dark red, light green to dark green, know the values ​​... as easy way. Exist some tool?

Thanks

Uwe,

Can i download this tool ?

Thanks.

Charles,

YES, I will add a extra downloadlink, as soon it is finished.
Just some small things to do.

Best regards
Uwe

Uwe,

Perfect !. Im waiting news...

Thanks.

Carles wrote:Hi,

What is the best option to create a gradient ?. For example a light red to a dark red, light green to dark green, know the values ​​... as easy way. Exist some tool?

Thanks

#include "fivewin.ch"

function Main()

   local oDlg, oFont, oBrush
   local aGrad

   // Stadard way to define gradients in FWH
   //
   aGrad    := {  { 0.55, CLR_HBLUE, CLR_WHITE  }, ;
                  { 0.45, CLR_WHITE, CLR_HGREEN }  }

   // 55% of the area transition from CLR_HBLUE to CLR_WHITE
   // Next 45% from CLR_WHITE to CRLR_HGREEN
   // Can have single step gradient or unlimited multiple step gradient


   DEFINE FONT oFont NAME "ARIAL" SIZE 0,-16 BOLD

   // Simplest way to define gradiet for a dialog/ or window

   DEFINE DIALOG oDlg TRANSPARENT FONT oFont GRADIENT aGrad
   @ 40,40 SAY "Fivewin Gradients" SIZE 100,10 PIXEL OF oDlg
   ACTIVATE DIALOG oDlg CENTERED


   // Can also define Gradient Brush and use

   DEFINE BRUSH oBrush GRADIENT aGrad HORIZONTAL
   DEFINE DIALOG oDlg TRANSPARENT FONT oFont BRUSH oBrush
   @ 40,40 SAY "Five Win Gradients" SIZE 100,10 PIXEL OF oDlg
   ACTIVATE DIALOG oDlg CENTERED

   RELEASE BRUSH oBrush
   RELEASE FONT oFont

return nil

Mr. Rao,

Thanks a lot , maybe i need to know a easy way to know the color values...

You may use:

nSelectedColor := ChooseColor( [nStartColor] )

or just
nSelecedColor := ChooseColor()

This opens colors dialog. You can choose any color and shade and if you press ok, it returns numeric value of the colour.
You can use the numeric value as it is in the place of a color definition.

Still if you like to have a human readable form of the color number:
You can use

cClr := cClrToCode( nColorNumber )
cClr is a familiar character string like:
CLR_HRED
RGB( r, g, b ), etc/
You can paste this into your program

Mr. Rao,

Eaaaasy !

Maybe a stupid question...

Thanks a lot !