CREATE TABLE orders (订单号 C(2),订单日期 d ,发货日期 d, 订单金额 N(6))
INSERT INTO (订单号,订单日期,发货日期,订单金额) VALUES ("01",{^2008-10-1},{^2008-10-25})
create report report1.frx

添加域控件订单号，订单日期，发货日期，订单金额，并设置保存在USER 字段中的
指令为："*:EFFECTSFORECOLOR=IFF(发货日期> 订单日期+10，RGB(255,0,0),RGB(0,0,0)"
接着
建一个EffectsListener的派生类，该类保存在DyFormat.prg文件中。
DEFINE CLASS EffectsListener AS ReportListener  

  PROCEDURE EvaluateContents(tnFRXRecno, toObjProperties)
  LOCAL lcEffect,lnSession,lcExpression  
 
  lcEffect="*:EFFECTS FORECOLOR"
  lnSession=SET("Datasession") &&保存当前数据工作期
  
  SET DATASESSION TO This.FRXDataSession &&转到报表定义文件数据工作期
  SELECT FRX &&选择报表定义文件工作区
  GO tnFRXRecno &&根据记录号定位记录
   
  IF ATC(lcEffect,FRX.User)>0 &&查找USER字段中是否包含“*:EFFECTS FORECOLOR”标记
  lcExpression=STREXTRACT(FRX.User,lcEffect+'=',CHR(13),1,3) &&提取出IIF()函数语句
  LOCAL lnColor,lnPenRed,lnPenGreen,lnPenBlue
   
  SET DATASESSION TO lnSession &&返回报表数据工作期
  SELECT Orders &&转换到Orders临时表来计算发货日期是否大于定货日期+10
  lnColor=EVALUATE(lcExpression) &&根据表达式计算颜色值
  IF VARTYPE(lnColor)='N'
&&&  如果用lnColor=EVALUATE(lcExpression) &&根据表达式计算颜色值，lncolor=255

有以下几个问题请教：


*!* 根据颜色值重新分离为RGB颜色值   &&1。颜色值与RGB颜色值的区别？


  lnPenRed=BITAND(lnColor, 0x0000FF)     &&&2。lncolor为什么与0x0000FF比较
  lnPenGreen=BITRSHIFT(BITAND(lnColor, 0x00FF00), 8)  &&&3。lncolor为什么与0x00FF00比较并称位8
lnPenBlue=BITRSHIFT(BITAND(lnColor, 0xFF0000), 16))   &&&4。lncolor为什么与0xFF0000比较并称位16

  WITH toObjProperties
  IF .PenRed<>lnPenRed OR .PenGreen<>lnPenGreen OR .PenBlue<>lnPenBlue
  .PenRed=lnPenRed  
  .PenGreen=lnPenGreen
  .PenBlue=lnPenBlue
  .FontStyle=129 &&粗体（1）+删除线（128），见表12-17中的说明
  .Reload=.T. &&通知ReportListener进行重绘
  ENDIF  
  ENDWITH  
  ENDIF  
  ENDIF  

  SET DATASESSION TO lnSession

  *!* 执行默认行为
  DODEFAULT(tnFRXRecno, toObjProperties)
  ENDPROC  


要在报表中使用EffectsListener类，建立一个名为runreport1.prg,代码如下：
loListener=NEWOBJECT("EffectsListener","DyFormat.prg")
loListener.ListenerType = 1 &&输出到预览窗口
loListener.OutputType = 1
REPORT FORM Report1.frx OBJECT loListener

[ 本帖最后由 sylknb 于 2012-1-17 18:24 编辑 ]

分離顏色值為RGB三色基值，下面是我寫的代碼，與上面的一樣原理：

*-------------------------------
* 求出长整型颜色值的RGB分量
* 参数：tnColor -- 长整型颜色值
*       tnRed   -- 红色分量（引用传递）
*       tnGreen -- 绿色分量（引用传递）
*       tnBlue  -- 蓝色分量（引用传递）
* 备注：通过参数返回值
*-------------------------------
PROCEDURE RGBComp(tnColor, tnRed, tnGreen, tnBlue)
    tnBlue = BITRSHIFT(tnColor, 16)
    tnGreen = MOD(BITRSHIFT(tnColor, 8), 256)
    tnRed = MOD(tnColor, 256)
ENDPROC

這個分離顏色的函數，在VFP9自帶的工具文件夾中有，不過明白它的原理，自己寫一個也很方便，省得多調用一個外部庫。

[ 本帖最后由 TonyDeng 于 2012-1-17 18:34 编辑 ]

在24位真彩色系統中，每個點的顏色由3個字節（3*8=24）構成，故稱24位顏色。3個字節是按順序排列的，從低位到高位（人的閱讀順序即是從右至左）依次是紅、綠、藍，每個字節代表一個分色值。整個8字節24位二進制數在內存中是長整型數（對16位機器而言這是長整型，即long int）。

現在看看黃色，它的RGB表示法是RGB(255,255,0)，轉換為內存數據，是CHR(0)+CHR(255)+CHR(255)，這是一個3字節的字符串，從右到左就是紅、綠、藍分色的內碼，這個字符串就是24位二進制數據。

這個表示法相當於如下操作：Color = red + 256 * green + 256 * 256 * blue，每乘一個256，數據增加一個字節，即是左移8位，逆運算就是右移。
要從這樣的數據反求三色，執行逆運算即可。比如求紅色，用Color值除以256（256是1個字節的滿位值，ASCII字符是256進制的），餘數就是紅色值，其餘類推。


[ 本帖最后由 TonyDeng 于 2012-1-17 18:56 编辑 ]

还是不明确，能简单一点，太笨了。

Color = red + 256 * green + 256 * 256 * blue
總之，你想辦法從上面的公式反求r、g、b吧，自己想通了，就知道怎麼做了，呵呵~

还没有转过来，举一个简单列子好吗？

當數學題做嘛。你看那個公式，右側三項，兩項是256的倍數，只要除以256，餘下的就是第一項red，然後把red減掉，剩下右邊兩項，刨去一個256之後，情形跟剛才一樣。如此反復，就把三項都提取出來了。用移位運算，也是要把每個字節提煉出來，移位及與三個16進制書與運算，都是為了提取字節數據。0x0000FF、0x00FF00、0xFF0000，FF（即256）分別處於三個不同位置，正是三分色的滿值，分別對應我上面所說的三個位置。

求三色值

Color = red + 256 * green + 256 * 256 * blue
是不是这样理介;
第1次除256，red/256除不尽余256，为F；(256 * green )/256 没有余数，为0，(256 * 256 * blue)/256没有余数，为0,color=f,0,0
第2次除256,green/256除不尽余256，为F,，( 256 * blue)/256没有余数，为0,color=0,f,0

第3次除256,( blue)/256除不尽余256，为F,color=0,0,f

对公式还不是清楚能否举一个运算过程好吗？下面三张图是各16进制化二进制

如果用lnColor=EVALUATE(lcExpression) &&根据表达式计算颜色值
程序运行是用   ？lnColor，时lncolor=255



为什么：BITAND(lnColor, 0x0000FF)                 它按位与变成什么色？
        BITRSHIFT(BITAND(lnColor, 0x00FF00),  8)   为什么与0x00FF00按位与，并转位8，它结果变成什么色？
        BITRSHIFT(BITAND(lnColor, 0xFF0000), 16) 为什么与0x00FF00按位与，并转位16，  它转位变成什么色？

24位16進制數Color，當我們用0x0000FF與它的時候，因為前16位全是0，後8位全是1，根據與邏輯運算，把Color的前16位全部覆蓋為0，只留下後面8位的數據，而這正是我們需要提取的red數據。同樣，跟0x00FF00與運算，就是提取中間的1個字節（8位），因為右邊多了8位0，所以全體右移8位把那8個0擠掉，就是green值。blue也一樣。