FiveTech Software tech support forums

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

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

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 )

... 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 http://www.pflegeplus.com/DOWNLOADS/Border4.zip ...

... 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:SelectedCol():nCreationOrder, ...

... ::nWidth - 2, ::aClrGradBack ) ... //----------------------------------------------------------------------------// METHOD DrawEllipse( hDC, nRGBColor, n ) CLASS TRBtn local hOldBrush := SelectObject( hDC, GetStockObject( NULL_BRUSH ) ) local hPen := CreatePen( hDC, 1, nRGBColor ) DEFAULT ...

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 }

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

James,

FWH provides a function LightColor( nScale, nRGBColor ) --> nRGBLightColor

There are samples of its use in Class TGraph

... is enabled) (e) Improvement: Fast Edit now works with MarqueeStyle MARQSTYLE_HIGHLROWRC also. (f) New DATA oBrw:nColorBox Default CLR_BLACK (nRGBColor or hPen or Codeblock returning same. Evaluated with Col object) Used to draw oCol:Box() when Marqueestyle is MARQSTYLE_SOLIDCELL or MARQSTYLE_HIGHLROWRC ...

... ARGB format 0xAARRGGBB * New function nARGB(...) --> nARGB constant. Syntax: 1. nARGB( nAlpha, nRed, nGreen, nBlue ) 2. nARGB( nAlpha, nRGBcolor ) 3. nARGB( nRGBcolor ) // Assumes nAlpha as 255 * Implementation of GDI+ At present, BMPs and ICO (files and resources) are read by classic ...