>nRedVal = 0 >nGreenVal = 0 >nBlueVal = 0 >SET Library to Foxtools.fll ADDITIVE >llresult = RGBComp(nRGBColor, @nRedVal, @nGreenVal, @nBlueVal) >Thanks!
SCAN m.ForeRed = crsRemarks.f_Red m.ForeGreen = crsRemarks.f_Green m.ForeBlue = crsRemarks.f_Blue cRGBForeColor = ALLTRIM(crsRemarks.sch_ForeColor) m.ForeResult = RGBComp(EVALUATE(cRGBForeColor), @ForeRed, @ForeGreen, @ForeBlue) REPLACE crsRemarks.f_Red WITH m.ForeRed REPLACE crsRemarks.f_Green WITH m.ForeGreen REPLACE crsRemarks.f_Blue WITH m.ForeBlue m.BackRed = crsRemarks.b_Red m.BackGreen = crsRemarks.b_Green m.BackBlue = crsRemarks.b_Blue cRGBBackColor = ALLTRIM(crsRemarks.sch_BackColor) m.BackResult = RGBComp(EVALUATE(cRGBBackColor), @BackRed, @BackGreen, @BackBlue) REPLACE crsRemarks.b_Red WITH m.BackRed REPLACE crsRemarks.b_Green WITH m.BackGreen REPLACE crsRemarks.b_Blue WITH m.BackBlue ENDSCAN