fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

2010-04-08 07:48 UTC-0800 Pritpal Bedi (pritpal@vouchcac.com)

Browse Source 
* contrib/hbxbp/xbpgra.prg
    ! GraGetRGBIntensity() function body updated with code sent by Shum
      after applying formatting and variable declaration optimization.
      UNTESTED.
This commit is contained in:
Pritpal Bedi
2010-04-08 14:53:13 +00:00
parent 56d7ec14ba
commit 36067bea05
2 changed files with 15 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
harbour/ChangeLog
View File

@@ -17,6 +17,12 @@
past entries belonging to author(s): Viktor Szakats.
*/
2010-04-08 07:48 UTC-0800 Pritpal Bedi (pritpal@vouchcac.com)
* contrib/hbxbp/xbpgra.prg
! GraGetRGBIntensity() function body updated with code sent by Shum
after applying formatting and variable declaration optimization.
UNTESTED.
2010-04-08 00:32 UTC+0200 Mindaugas Kavaliauskas (dbtopas/at/dbtopas.lt)
* harbour/contrib/sddodbc/sddodbc.c
+ VARBINARY, LONGVARBINARY type support

11
harbour/contrib/hbxbp/xbpgra.prg
View File

@@ -149,9 +149,16 @@ FUNCTION GraFocusRect( oPS, aStartPoint, aEndPoint )
/*----------------------------------------------------------------------*/
FUNCTION GraGetRGBIntensity( nRGBColor )
LOCAL aRGB := {}
LOCAL aRGB, cRGBHex
HB_SYMBOL_UNUSED( nRGBColor )
IF nRGBColor == NIL
nRGBColor := 0
ENDIF
cRGBHex := HB_HexToStr( HB_NumToHex( nRGBColor ) )
cRGBHex := PADL( cRGBHex, 6, "0" )
aRGB := { SubStr( cRGBHex, 1, 2 ), SubStr( cRGBHex, 3, 2 ), SubStr( cRGBHex, 5, 2 ) }
aRGB := { HB_HexToNum( aRGB[ 1 ] ), HB_HexToNum( aRGB[ 2 ] ), HB_HexToNum( aRGB[ 3 ] ) }
RETURN aRGB