FiveTech Software tech support forums

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 ...

... 46;png

If I make

For n= 1 to Len(aPos)
nRow:= aPos[n][1]
nCol:= aPos[n][2]

oBrw1:aCols[nCol]:bClrStd := {|| { CLR_BLACK,IIf(oBrw1:nArrayAt=nRow, nColor1,CLR_WHITE) } }

next

it colorize only the last nRow , so I think it need to make a codeblock but I not Know How make it

Can U help me pls

... 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 ...

... CLR_BLACK, ColorCell( 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 ...

... Gradient, 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 ...

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


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

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

... Yes, 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 ...

... T. vertical or horizontal
// cBrush := "Brush.bmp" Brush
// cImage := "image.jpg" Image

// 2 = gradient selected
// D_BACKGRD( oDlg, nStyle, nColor1, nColor2, nMove, lDirect, cBrush, cImage )

ACTIVATE DIALOG oDlg ;
ON INIT D_BACKGRD( oDlg, 2, 116443068, 10899511, 0.5, "Brush.bmp", "image.jpg ...

... PIXEL ;
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 ...

... 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',SELECT ...

... a Image.

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 ...

... would like, 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 ...

... 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

... many Calculations.
The calculation is the same in all Functions :

MSG_ALERT(oBrush, ;
oFont1, ;
oFont2, ;
cTitle, ;
cTxt1, ;
cTxt2, ;
cTxt3, ;
nColor1, nColor2, ;
nSpace, nTop, nLeft, ;
cImage1, cImage2)

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

1. Get the Text-len from ...