FiveTech Software tech support forums

... 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 := 16777215 // white
ENDIF

http&#58;//www&#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

... is selected it should be defined once on top of Your prg like

LOCAL lDel := .F. // status
LOCAL oPen := Pen():New( 255, nRGBRed( 16777215 ), ;
nRGBGreen( 16777215 ), ;
nRGBBlue( 16777215 ), 5 )

don*t forget

ACTIVATE DIALOG oDlg2 CENTER
RELEASE FONT oFont, oFont1
oPen:Destroy()

RETURN( NIL ...

... VALBLANK
Error: Unresolved external '_HB_FUN_NRGBRED' referenced from P:\32BITS\FWH\LIB\FIVEHX.LIB|VALBLANK
Error: Unresolved external '_HB_FUN_NRGBGREEN' referenced from P:\32BITS\FWH\LIB\FIVEHX.LIB|VALBLANK
Error: Unresolved external '_HB_FUN_NRGBBLUE' referenced from P:\32BITS\FWH\LIB\FIVEHX.LIB ...

... TITLE "COLOR-PICKER 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 ...

... You can use the function like :

FUNCTION GET_BRIGHT( nColor )
LOCAL nRGBProz := 0, nBlue, nGreen, nRed

nRed := nRGBRed( nColor )
nGreen := nRGBGreen( nColor )
nBlue := nRGBBlue( nColor )

nBrightness := INT( 0.299 * nRed ;
+ 0.587 * nGreen ;
+ 0.114 * nBlue )

// MsgAlert( nColor, "Color ...

Jairo
nColor:=ChooseColor()
nRedText:=nRGBRed(nColor)
nGreenText:=nRGBGreen(nColor)
nBlueText:=nRGBBlue(nColor)

remplazas en tu dbf
afile->Rojo := nRedText
afile->Verde := nGreenText
afile->Azul := nBlueText

y cuando quieras verlo
REDEFINE SAY PROMPT "color de mi texto" ID 103 OF oDlg ;
COLOR nRGB ...

... nIcons()
nLoByte()
nLoWord()
nMakeLong()
nMciOpen()
nMciPlay()
nMciWindow()
nMidiDevices()
nMsgBox()
nNot()
nOr()
nRandom()
nRGB()
nRGBBlue()
nRGBGreen()
nRGBRed()
nSerialA()
nSerialHD()
nStrCrc()
nStrHash()
nTcwRow()
NtxPos()
nTxtLines()
nWindows()
nWndChrHeight()
nWRow()
nWRows()
nXOr ...

Vladimir,

nRed = nRGBRed( nRGBColor )
nGreen = nRGBGreen( nRGBColor )
nBlue = nRGBBlue( nRGBColor )

... NombreArDeb(oDlgING,1) MESSAGE "Seleccione nuevo Arbitro"

REDEFINE SAY oSay ID 1422 OF oDlgING COLOR RGB(255,0,0),RGB(nRGBRed(oDlgING:nClrPane),nRGBGreen(oDlgING:nClrPane),nRGBBlue(oDlgING:nClrPane))
REDEFINE COMBOBOX oCom[5] VAR EDC[6] ITEMS EQUIPO ID 1421 OF oDlgING ON CHANGE CambiaBMP(EDC[6 ...

... lPuro := .F.
endif

if !lPuro // El color no es puro, entonces degradado
nBlue := nRGBBlue( nColor )
nRed := nRGBRed( nColor )
nGreen := nRGBGreen( nColor)

DEFAULT nSaltos := 3
nSteps := ( aRect[ 3 ] - aRect[ 1 ] ) / nSaltos

oWnd:GetDC()

aRect[ 3 ] = 0

for n = 1 to nSteps
aRect[ 3 ...

... en un fichero de cabecera propio, éstas son:

#xTranslate OSCURO( <nColor>,<nVar> ) => ;
RGB( MAX(0,nRGBRed( <nColor> )-<nVar> ) , ;
MAX(0,nRGBGreen( <nColor> )-<nVar> ) , ;
MAX(0,nRGBBlue( <nColor> )-<nVar> ) )

#xTranslate ACLARO( <nColor>,<nVar> ) => ;
RGB( MIN(255,nRGBRed( <nColor ...

... Por Ejemplo ACLORO(CLR_BLUE,64) probadlas.

#xTranslate OSCURO( <nColor>,<nVar> ) => ;
RGB( MAX(0,nRGBRed( <nColor> )-<nVar> ) , ;
MAX(0,nRGBGreen( <nColor> )-<nVar> ) , ;
MAX(0,nRGBBlue( <nColor> )-<nVar> ) )

#xTranslate ACLARO( <nColor>,<nVar> ) => ;
RGB( MIN(255,nRGBRed( <nColor ...

... Por Ejemplo ACLORO(CLR_BLUE,64) probadlas.

#xTranslate OSCURO( <nColor>,<nVar> ) => ;
RGB( MAX(0,nRGBRed( <nColor> )-<nVar> ) , ;
MAX(0,nRGBGreen( <nColor> )-<nVar> ) , ;
MAX(0,nRGBBlue( <nColor> )-<nVar> ) )

#xTranslate ACLARO( <nColor>,<nVar> ) => ;
RGB( MIN(255,nRGBRed( <nColor ...