FiveTech Software tech support forums

... ( 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 := 16777215 ...

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

... once a style 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() ...

Antonio buenos dias, gracias por la ayuda Agrego la VM.LIB (xharbour), y me manda estos errorres :( :( Proyecto: Kept5, Entorno: BorlandDLL: [1]:Harbour.Exe Source\Tseguro.prg /m /n /es2 /ki /iP:\32bits\xharbour\include;P:\32bits\FWH\INCLUDE /i /oObj\Tseguro.c xHarbour Compiler build 1.2.1 (SimpLex)...

... 10, 10 TO 270, 290 PIXEL 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)) + ", " + ; ...

... a value from > 127.5 to 255 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 ) ...

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

... 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() Saludos, Carlos ...

Vladimir,

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

... RUTBMP+"ADDREC.BMP" ACTION 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 ...

... 0, nColor ) oWnd:Refresh() else 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 ...

... la propia clase porque las tengo 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> ) ) ...

... u oscurecer colores especificos. 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> ) ) ...

... u oscurecer colores especificos. 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> ) ) ...