FiveTech Software tech support forums

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

... ( 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 :D

... 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 ) http://www.pflegeplus.com/IMAGES/Cellborder9.jpg ...

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

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

... 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" ) // MsgAlert( nBrightness, ...

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

... nHiWord() 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() ...

Vladimir,

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

... "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]) MESSAGE "Seleccionar Equipo" ...

... if lPuro == .T. oWnd:SetColor( 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() ...

... ) => ; 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> )+<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> )+<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> )+<nVar> ...