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

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

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

... return {|| { 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://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 ...

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 :D 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

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

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

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

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

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

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

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

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