QUICKREP的 Detail中的数据在列印时 颜色相间 |
缺席
|
baby2321
初階會員 發表:52 回覆:165 積分:48 註冊:2005-06-11 發送簡訊給我 |
QUICKREP的 Detail中的数据在列印时 颜色相间
如:希望是Clwhite 和 clmedgrey两种颜色来相间 如何实现? 谢谢大家 看到一篇 http://delphi.ktop.com.tw/board.php?cid=30&fid=100&tid=73584 其中 [code delphi] function TForm2.GetColor(Color:int64):int64; begin if (Color=clRed) then Color:=clBlue//如果是紅色就換成藍色 else Color:=clRed; end; [/code] 列印后 觉得颜色好难看...能否用Clwhite 和 clmedgrey两种颜色来实现? |
danny
版主 發表:100 回覆:522 積分:595 註冊:2002-03-11 發送簡訊給我 |
就換成你要的顏色就好了啊!
不知道你的問題是什麼 ? ===================引 用 baby2321 文 章=================== QUICKREP的 Detail中的数据在列印时 颜色相间 如:希望是Clwhite 和 clmedgrey两种颜色来相间 如何实现? 谢谢大家 看到一篇 http://delphi.ktop.com.tw/board.php?cid=30&fid=100&tid=73584 其中 [code delphi] function TForm2.GetColor(Color:int64):int64; begin if (Color=Clwhite) then Color:=clmedgrey//如果是Clwhite就換成clmedgrey else Color:=Clwhite; end; [/code] 列印后 觉得颜色好难看...能否用Clwhite 和 clmedgrey两种颜色来实现?
------
將問題盡快結案也是一種禮貌! |
baby2321
初階會員 發表:52 回覆:165 積分:48 註冊:2005-06-11 發送簡訊給我 |
我在quickrep1的bands中 设置hasdetail为true 具体的数据也是通过 detailband1来展现的
[code delphi] function TForm1.GetColor(Color:int64):int64; begin if (Color=clSkyBlue) then Color:=clmedGray else Color:=clSkyBlue; end; procedure TForm1.QuickRep1BeforePrint(Sender: TCustomQuickRep; var PrintReport: Boolean); begin Color:=clSkyBlue; end; procedure TForm1.DetailBand1BeforePrint(Sender: TQRCustomBand; var PrintBand: Boolean); begin Color:=GetColor(Color); DetailBand1.Color:=Color; end; [/code] 执行后 出来的是很难看的颜色 绿红黑三色 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |