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两种颜色来实现？

就換成你要的顏色就好了啊!
不知道你的問題是什麼 ?

===================引 用 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两种颜色来实现？

------
將問題盡快結案也是一種禮貌!

我在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]


执行后 出来的是很难看的颜色 绿红黑三色