FiveTech Software tech support forums

... String)
- **Description**: The style of the brush (e.g., "HORIZONTAL", "VERTICAL", "CROSS", etc.). This is used for hatch brushes.

7. **`nRGBColor`**
- **Type**: Numeric
- **Description**: The RGB color value used for solid or hatch brushes.

8. **`cBmpFile`**
- **Type**: Character ...

... de código. El código de esta función parece correcto aunque todavía estamos haciendo pruebas
con ella.

* Nuevo: Nueva función nRGB2Array( nRGBColor ). Devuelve una matriz con los valores RGB { nRed, nGreen, nBlue }.

* Nuevo: Nuevo método Image( [nType], [aCropRect] ) --> pImage (puntero de ...

... process its messages using a codeblock. The code of this function seems ok
thughwe re still doing tests using it.

* New: function nRGB2Array( nRGBColor ) return an array with the RGB values { nRed, nGreen, nBlue }

* New: TWindow method Image( [nType], [aCropRect] ) --> pImage (gdi+ image pointer ...

Dear Tim,

> Also do we have a color selection popup that we can use for the values ?

ChooseColor( [ nInitialRGBColor ] ) --> nRGBColor

... 1342177280}, {NCLRPANE, 16777215}, {NCLRTEXT, 0}, {ACONTROLS, {}}, {OBRUSH, {{HBRUSH, 9437200}, {HBITMAP, 0}, {HBMPORGL, 0}, {NCOUNT, 6}, {NRGBCOLOR, 16777215}, {LSYSTEM, .T.}, {USOURCE, CLR_WHITE}}}, {OFONT, {{CFACENAME, TAHOMA}, {HFONT, 1242174205}, {HFONTOLD, 0}, {LBOLD, .F.}, {LITALIC, .F ...

... oBmp:GetDC() )
LOCAL hBmp := ReadBitmap( 0, "Picker.bmp" ) // the basic gradient bmp
LOCAL hOldBmp := SelectObject( hDC, hBmp )
LOCAL nRGBColor := GetPixel( hDC, nCol, nRow )

SelectObject( hDC, hOldBmp )
DeleteObject( hBmp )
DeleteDC( hDC )
oBmp:ReleaseDC()

RETURN nRGBColor

best ...

The result ( switchung from white to black ) is nearly the same
some colors with only a difference of 1 colorstep

From calculation

nRGBColor := 0
nRed := nRGBRed( nValRGB0 )
nGreen := nRGBGreen( nValRGB0 )
nBlue := nRGBBlue( nValRGB0 )

IF 0.3*nRed + 0.6*nGreen + 0.1*nBlue < 128
nRGBColor ...

Maurizio,

You may solve it this way for all your buttonbars:

DEFINE BUTTONBAR ... COLOR ButtonBarColor()

...

function ButtonBarColor()

return nRGBColor

... paramter to show only effect, where I can found an help for this ?

I saw on source code choosefont can have these parameters
// aPreviousFont, @nRGBColor, hPrinterDC, nFlags --> aNewFont
I not found the possibility to show effect( StrikeOut and Underline )

some one can help me pls ?
So I ...

No
this give me also the color and other effect

local aFont, nRGBColor := 0
aFont := ChooseFont( , @nRGBColor )
MsgInfo( nRGBColor )

... for record-display on top
nColPos := oBrw:nColSel
oSay[3]:Refresh()
oSay[4]:Refresh()
IIF( nBorder = 1,CELL_BORDER( oBrw, hDC, nRowPos, nColPos, nOption, nPenPos,;
nRGBColor, nPensize, nRound, nTranpL, lCol ), NIL )
RETURN NIL
>
You can download the new source and running exe

m

regards
Uwe

... a border on cellclick

The border is painted with :

oBrw:bPainted := < |hDC|
CELL_BORDER( oBrw, hDC, nColRow, nColPos, nOption, nPosition,;
nRGBColor, nPensize, nRound, nTranpL, lCol )
RETURN NIL
>

the new position the border has to be painted :

oBrw:bChange := { || nColPos := oBrw ...

... nWidth - 2, ::aClrGradBack )


...


//----------------------------------------------------------------------------//

METHOD DrawEllipse( hDC, nRGBColor, n ) CLASS TRBtn

local hOldBrush := SelectObject( hDC, GetStockObject( NULL_BRUSH ) )
local hPen := CreatePen( hDC, 1, nRGBColor )

DEFAULT n ...

FWH has inbuilt functions RGBTOHSL() and HSLTORGB()

Usage:
RGBTOHSL( nRGBColor )
or
RGBTOHSL( nRed, nGreen, nBlue )
or
RGBTOHSL( { nRed, nGreen, nBlue )

------> { nHue, nSatuation, nLuminence }

HSLTORGB( { h, s, l } ) --> { nRed, nGreen, nBlue, nRGB }

... number. Expressed in Hex: "AARRGGBB"

For quick usage FWH provides nARGB() function
Usage:
nARGB( nAlpha, nRed, nGreen, nBlue )
or
nARGB( nAlpha, nRGBColor )

Extensions to Gradient Array:
A valid Gradient array is a multi-dimensional Array, each element being an array defining a single gradient.
Now ...