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

... 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://www.pflegeplus.com/IMAGES/FolderGrp.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 :D 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 ) ) viewing ...

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

... 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() ) hBmp = ...

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

... 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://www.pflegeplus.com/pictures/Imgsel1.jpg ...

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

... 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://www.pflegeplus.com/pictures/about15.jpg As soon I select a Gradient-background there ...

... : 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://www.pflegeplus.com/pictures/about14.jpg Best Regards Uwe :lol:

... 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://www.pflegeplus.com/pictures/dlgsize.jpg 1. Get the Text-len from all included ...