FiveTech Software tech support forums

... with the specified dimensions and colors. The bitmap is used to create the brush.

---

### METHODS

#### 1. **`New(nWidth, nHeight, nColor, nColor2, lVGrad)`**
- **Type**: Constructor
- **Parameters**:
- `nWidth`: The width of the bitmap.
- `nHeight`: The height of the bitmap.
- `nColor ...

coloring alternate rows we can do

oBrw:bClrStd := { || { CLR_BLACK, If( oBrw:KeyNo % 2 == 0, nColor1, nColor2 ) } }

how can we color the columns alternately?


For a sample if I wish colorized only the 4th colomn I made


Function Alternate_Columns(nColor1,oBrw)
local aPos := { { 1, 4 }, { 2, 4 ...

... I made
nRowSelect:=Colorize_Max(oBrw,RGB( 255, 0,0 ),RGB( 252, 235, 220 ))
oBrw:KeyNo:= nRowSelect

static Function Colorize_Max(oBrw,nColor1,nColor2)
local avals:= oBrw:aArraydata
local atest:= aFindMax( aVals )
local nRow:= atest[1]
local nCol:= atest[2]
oBrw:aCols[nCol]:bClrStd ...

... oBrw:aRow[ n ]:VALUE ) } }

static function ColorCell( num )
local nColor := GetSysColor( 15 ) //for demo
local nColor1 := CLR_HGREEN
local nColor2 := CLR_HRED
local ncolor3 := GetSysColor( 15 )


/* IF num<3
nColor :=nColor1
elseif num>3
nColor := nColor2
elseif num<9
nColor := nColor3 ...

... Color )

http&#58;//www&#46;pflegeplus&#46;com/IMAGES/FolderGrp&#46;jpg

...
ACTIVATE DIALOG oDlg ;
ON INIT ( DLG_BACK( oDlg, nDStyle, nColor1, nColor2, lDirect, nGrdPos, nCGrdPos, cBrush, cImage ), ;
FLD_BACK( oFld, nTColor, nColor1, nColor2, lDirect, nGrdPos, nCGrdPos, cBrush, cImage ) )


The ...

... 3 is Circle-painting and new

I think Your FWH-version doesn't support it.

circle syntax
IF nStyle = 3 // GRADIENT CIRCLE
aGrad := { nColor1,nColor2 }
DEFINE BRUSH oBrush GRADIENT aGrad
ENDIF

regards
Uwe


Thank you Uwe. Probably my version of FWH1701 that does not support the command. Many ...

nStyle 3 is Circle-painting and new

I think Your FWH-version doesn't support it.

circle syntax
IF nStyle = 3 // GRADIENT CIRCLE
aGrad := { nColor1,nColor2 }
DEFINE BRUSH oBrush GRADIENT aGrad
ENDIF

regards
Uwe

... on startup I use ON INIT

ACTIVATE DIALOG oDlg ;
ON PAINT ABPaint( hDC, 100, 20, oImg:hBitmap, 255 ) ;
ON INIT ( DLG_BACK( oDlg, nDStyle, nColor1, nColor2, lDirect, nGrdPos, nCGrdPos, cBrush, cImage ), ;
FLD_BACK( oFld, nTColor, nColor1, nColor2, lDirect, nGrdPos, nCGrdPos, cBrush, cImage ...

... on Dialog-init like

// nStyle := 1 1=Color, 2 = Gradient, 3 = Brush and 4 = Image
// nColor := 116443068 Color or 1. Calor of gradient
// nColor2 := 10899511 2. Gradient-color
// nMove := 0.5 Color-position
// lDirect := .T. vertical or horizontal
// cBrush := "Brush.bmp" Brush
// cImage ...

... ACTION oDlg3:End()

ACTIVATE DIALOG oDlg3 ;
ON INIT oDlg3:Move(250, 250)

RETURN NIL

// --------

FUNCTION DLG_BACK( oWnd, lDirect, nColor1, nColor2, nMove )
local oBrush

aGrad := { { nMove, nColor1, nColor2 }, { nMove, nColor2, nColor1 } }
hDC = CreateCompatibleDC( oWnd:GetDC() )
hBmp ...

... nRight-230 PIXEL TITLE "Inventario de Armas" NOSYSMENU NOICONIZE NOCAPTION OF oWnd1

SELE INV_EQ

@ 0,0 BROWSE oBrw ALIAS "INV_EQ" OF oWnd2 COLOR nCOLOR2,nCOLOR1
ADD COLUMN TO oBrw DATA FieldWBlock('MODELO',SELECT()) HEADER "MODELO" ALIGN 0,1,1 FIXED
ADD COLUMN TO oBrw DATA FieldWBlock('MACADDRESS ...

... You can change the Dialog-background :
// nStyle
// 1 = Color, 2 = Gradient, 3 = Brush, 4 = Image
// D_BACKGRD( oDlg, nStyle, lDirect, nColor1, nColor2, nMove, cBrush, cImage )
D_BACKGRD( oDlg, 2, .T., 10899511, 16777215, 0.5, "Marble5.bmp", "Fantasy2.jpg" )

http&#58;//www&#46;pflegeplus&#46 ...

there're many functions are the same on fwh

sample : DegradaSO( hDC, aRect, nColor2, nColor, .f.) = GradientFill( hDC, aRect[ 1 ] - 2, aRect[ 2 ] - 3, aRect[ 3 ] + 1, aRect[ 4 ] + 5,;
{ { 1, RGB( 220, 235, 252 ), RGB (199, 223, 252) } }, .T. )


we're seeing if tc5imagelist run as our Timglist

... to keep the round Button ).
Otherwise I have to change the Button-class using Gradient-background.

oBar1:aGrdBack := { { nGradPos, nColor1, nColor2 },{ nGradPos, nColor2, nColor1 } }

http&#58;//www&#46;pflegeplus&#46;com/pictures/about15&#46;jpg

As soon I select a Gradient-background ...

... Lines needed :

1.
@ nTop, nLeft TITLE oBar1 SIZE nWidth, nHeight OF oContrl TRANSPARENT BORDER BASE SHADOWSIZE 0

2.
oBar1:aGrdBase := { { nGradPos, nColor1, nColor2 } , ;
{ 10 - nGradPos, nColor2, nColor1 } }

http&#58;//www&#46;pflegeplus&#46;com/pictures/about14&#46;jpg

Best Regards
Uwe