FiveTech Software tech support forums

Twenty seven years ago Thomas R. Marchione wrote a class for creation rtf of files // Copyright: (C) 01/28/97 1997, Thomas R. Marchione oRTF := SetRT( cOutFile ) // Use this to write an entire paragraph, with optional formatting. NEW PARAGRAPH oRTF TEXT 'OOO «Text in aligned left»'; FONTNUMBER 1 ; ...

Twenty seven years ago Thomas R. Marchione wrote a class for creation rtf of files // Copyright: (C) 01/28/97 1997, Thomas R. Marchione oRTF := SetRT( cOutFile ) // Use this to write an entire paragraph, with optional formatting. NEW PARAGRAPH oRTF TEXT 'OOO «Text in aligned left»'; FONTNUMBER 1 ; ...

Twenty seven years ago Thomas R. Marchione wrote a class for creation rtf of files // Copyright: (C) 01/28/97 1997, Thomas R. Marchione oRTF := SetRT( cOutFile ) // Use this to write an entire paragraph, with optional formatting. NEW PARAGRAPH oRTF TEXT 'OOO «Text in aligned left»'; FONTNUMBER 1 ; A...

... / 0x00FF ) ? hb_NumToHex( hb_bitAnd( 6736896, 0x0000 FF ) ) In FWH\include\colors.ch there is a: #translate RGB( <nRed>, <nGreen>, <nBlue> ) => ; ( <nRed> + ( <nGreen> * 256 ) + ( <nBlue> * 65536 ) )

... 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 := 16777215 // white ENDIF http://www.service-fivewin.de/IMAGES/Contrast1.jpg ...

Günther, the pen-calculation-factor ( GdiPlus ) //New( nTrans, nRed, nGreen, nBlue, nSize, lRound, lAlign ) //nRed := nRGBRed( nColor ) //nGreen := nRGBGreen( nColor ) //nBlue := nRGBBlue( nColor ) oPen := Pen():New( 255, 0, 0, 255 , 8 , .T.) will show a 3 mm ...

... type @ 10,072 BITMAP oBmp File "" size 50, 100 pixel // NOBORDER oPen := Pen():New( 255, 0, 0, 255 ) // nTransparency, nRed, nGreen, nBlue oImage1:= GDIBmp():new("sample.png" ) hDC[1]:= oBmp:GetDc() oGraphics[1] := Graphics():New( hDC[1] ) n9:= -73 oGraphics[1]:DrawImage( ...

... 80, 125, "install", oFontLarge, 20 , oBrush1, hDC ) The 1. and 3. one works fine METHOD NewSolidBrush( nTrans, nRed, nGreen, nBlue ) :D METHOD NewTextureBrush( oGdiBmp ) :( ( wanted to be used for text ) METHOD NewGradientBrush( nTop, nLeft, nWidth, nHeight, nType,; :D nTrans1, ...

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 }

... ARGB is a 32 bit 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 ...

... ) - METHOD GetRedPix( nX, nY ) - METHOD GetGreenPix( nX, nY ) - METHOD GetBluePix( nX, nY ) - METHOD ConverColortoColor( nAlphaI, nRedI, nGreenI, nBlueI, nAlphaF, nRedF, nGreenF, nBlueF ) - METHOD GetAlphaPix( nX, nY ) INLINE GdiPlusImagePixGetAlpha ( ::hbmp, nX, nY ) - METHOD SetRecolorColorMatrix( ...

... ) the background of the image is white how I can make to make it transparent ? oPen := Pen():New( 255, 0, 0, 255 ) // nTransparency, nRed, nGreen, nBlue where I must insert oPen ?

... variable. Now it is ok - New: Implementation clausule NOBORDER in class TOutlook2003 and TOutlook2010 * New translate ARGB( nAlpha, nRed, nGreen, nBlue ) --> ARGB color constant Note: RGB format 0x00BBGGRR ARGB format 0xAARRGGBB * New function nARGB(...) --> nARGB constant. Syntax: 1. nARGB( ...

... variable. Now it is ok - New: Implementation clausule NOBORDER in class TOutlook2003 and TOutlook2010 * New translate ARGB( nAlpha, nRed, nGreen, nBlue ) --> ARGB color constant Note: RGB format 0x00BBGGRR ARGB format 0xAARRGGBB * New function nARGB(...) --> nARGB constant. Syntax: 1. nARGB( ...

... 1.1" .. .. DEFINE TIMER oTimer OF oWnd ; INTERVAL 70 ACTION ( nRGB := GetColor(), ; nRed := nRGBRed( nRGB ), ; nGreen := nRGBGreen( nRGB ), ; nBlue := nRGBBlue( nRGB ), ; cRGB := "nRGB( " + ALLTRIM(STR(nRed)) + ", " + ; ALLTRIM(STR(nGreen)) + ", " + ; ALLTRIM(STR(nBlue)) ...