FiveTech Software tech support forums

... 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 imagen gdi+) en la clase TWindow.
nType (default 1 ): Imagen del ...

... 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)
nType (default 1 ): Image of the window's client area ...

... oRTF TEXT 'OOO «Text in aligned left»';
FONTNUMBER 1 ;
APPEARANCE BOLD_OFF+ITALIC_OFF+CAPS_OFF;
FONTSIZE 12 ;
FONTCOLOR CLR_WHITE,CLR_NBLUE ;
ALIGN LEFT ;
SPACEBEFORE .12 ;
SETDEFAULT

// Use this to begin a new table
DEFINE NEWTABLE oRTF ; // Specify the RTF object
ALIGN LEFT ...

... oRTF TEXT 'OOO «Text in aligned left»';
FONTNUMBER 1 ;
APPEARANCE BOLD_OFF+ITALIC_OFF+CAPS_OFF;
FONTSIZE 12 ;
FONTCOLOR CLR_WHITE,CLR_NBLUE ;
ALIGN LEFT ;
SPACEBEFORE .12 ;
SETDEFAULT

// Use this to begin a new table
DEFINE NEWTABLE oRTF ; // Specify the RTF object
ALIGN LEFT ...

... oRTF TEXT 'OOO «Text in aligned left»';
FONTNUMBER 1 ;
APPEARANCE BOLD_OFF+ITALIC_OFF+CAPS_OFF;
FONTSIZE 12 ;
FONTCOLOR CLR_WHITE,CLR_NBLUE ;
ALIGN LEFT ;
SPACEBEFORE .12 ;
SETDEFAULT

// Use this to begin a new table
DEFINE NEWTABLE oRTF ; // Specify the RTF object
ALIGN LEFT ...

... hb_bitAnd( 6736896, 0x FF 0000 ) / 0xFF00 )
? hb_NumToHex( hb_bitAnd( 6736896, 0x00 FF 00 ) / 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 ) )

... 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&#58;//www&#46;service-fivewin&#46 ...

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 pen
1 mm = 2.834645669

regards
Uwe

... please
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( oImage1 , 1 ...

... DrawTextLFont( 80, 125, "install", oFontLarge, 20 , oBrush1, hDC )

The 1. and 3. one works fine

METHOD NewSolidBrush( nTrans, nRed, nGreen, nBlue )
METHOD NewTextureBrush( oGdiBmp )
( wanted to be used for text )
METHOD NewGradientBrush( nTop, nLeft, nWidth, nHeight, nType,;
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 }

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

... Gbmp class to load a PNG FILE

and I use drawimage to show the image

oGraphics:DrawImage( aImages[i] , 1, aPos[i] )

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