FiveTech Software tech support forums

... SIZE 220,45; ITEMS "5", "10", "15", "20", "30", "60" ; GRADIENT OUTTRACK { { 1/2, nRGB( 219, 230, 244 ), nRGB( 207-50, 221-25, 255 ) }, ; { 1/2, nRGB( 201-50, 217-25, 255 ), nRGB( 231, 242, 255 ) } }; LINECOLORS nRGB( 237, 242, 248 ...

... Con una Base de datos lo hago asi: oCol:aCols[1]:bClrStd:= {|| if(Material->Estado = "S", {CLR_WHITE,CLR_RED}, {CLR_BLACK,nRGB(255,248,220)}) } Pero con Array y que la condicion la tiene una columna que no es parte del Xbrowse, no se me hace ni idea. Muchos Saludos, Antonio

... // Con cursor de todo el renglón oBrw:nColDividerStyle := LINESTYLE_RAISED oBrw:nRowDividerStyle := LINESTYLE_RAISED oBrw:bClrSelFocus := {|| { nRGB( 0, 0, 0), nRGB(128,255,128) } } // para barra de linea selecc cuando el control tiene el foco oBrw:lColDividerComplete := (.t.) // (.T.) Mantiene ...

... }. Defaults to { CLR_BLACK, 1 } uBrush: If specified, fills the area. If omitted, the inner area is left transparent. uBrush can be Brush object, nRGB color or Alpha Color, Gradient Array with RGB and Alpha colors. aText: Optional array of { text, font, color }. If specified, prints the text at ...

... }. Defaults to { CLR_BLACK, 1 } uBrush: If specified, fills the area. If omitted, the inner area is left transparent. uBrush can be Brush object, nRGB color or Alpha Color, Gradient Array with RGB and Alpha colors. aText: Optional array of { text, font, color }. If specified, prints the text at ...

... PROMPT  "Término"                PIXELOF oDlg_Fec   FONT oFont_f1 @ 30, 42 DTPICKER oIni VAR Ini1 SIZE65, 10PIXELOF oDlg_Fec COLOR nRGB (240, 240, 240), nRGB (240, 016, 016) @ 30,172 DTPICKER oFin    Var Fin1  SIZE65,10      PIXELOF oDlg_Fec   PICTURE"@d"COLOR RGB(0,0,128) ...

::oTree :=TTreeView(): REDEFINE( 201, odlg,0,nrgb(255,255,255)) // 201 id ::oTree:bChanged := {|oTree,oItem|eng0303(self) } // dynamic add items .rc / .dll : CONTROL "", 201, "SysTreeView32", 0 | WS_CHILD | WS_VISIBLE | WS_BORDER ...

I don't Know .. remember Antonio sad me ...
try with ocontrol:nClrBorder := { || (IIF(ocontrol:lMOver,nColorBorder,nRgb(225, 225, 225))) }

Inside Your function You defined Function SetGradientBtnbmp(ntype,ocontrol,nColorBorder) DEFAULT nColorBorder := nRGB(116,165,216 ) Do case Case ntype = 2007 ... ... //2007 ocontrol:bClrGrad = { | lInvert | If( ! lInvert,; ... ocontrol:nClrBorder := { || (IIF(ocontrol:lMOver,nColorBorder,nRgb(225, ...

... @ 0,0 TITLE oTitle SIZE 800, 60 TRUEPIXEL OF oDialog ; SHADOW NOSHADOW ; COLORBOX nRGB( 107, 141, 184 ), nRGB( 107, 141, 184 ) ; GRADIENT { nRGB( 107, 141, 184 ), nRGB( 107, 141, 184 ) } @ 10, 10 TITLETEXT OF oTitle TEXT ".::Aluno" ...

... left. I tried with Many gradient but I not arrive to the result I wish How can I solve? I found the color I need No Over nColorBorder_Initial:= nRGB( 173,173,173) nColorback_Initial:= nRgb(225,225,225) Over Mouse nColorBorder_over:= nRGB(0,120,215) nColorback_over:= nRgb(229,241,251) I try also ...

... DEFINE BUTTONBAR oBar OF oWnd SIZE 80,80 2007 oBar:SetFont( oFont ) oBar:SetColor(0) oBar:bClrGrad := { | lPressed | If( ! lPressed,; { { 1, nRGB( 255, 255, 255 ), nRGB( 255, 255, 255 ) } },; { { 1, nRGB( 253, 254, 255 ), nRGB( 192, 192, 192 ) } } ) } DEFINE BUTTON oBtn OF oBar PROMPT "Nuevo" ...

... other platforms colors are expressed as "#RRGGBB" In such cases nHex( cHex ) or HEXTONUM( cHex ) do not give the correct color constant. nRGB( cHexClr ) gives the correct color constant. What is important is the source of cHex Mr Otto is referring to.

If you have the color in the hex-format "#rrggbb"

then

nRGB( cHexClr ) --> nColor

... Function DlgStatusBar(oDlg, nHeight, nCorrec , lColor ) Local nDlgHeight := oDlg:nHeight Local aColor := { { 0.40, nRGB( 200, 200, 200 ), nRGB( 184, 184, 184 ) },; { 0.60, nRGB( 184, 184, 184 ), nRGB( 150, 150, 150 ) } } DEFAULT nHeight := 72 DEFAULT nCorrec := 0 ...