洛阳市新区建设投资有限公司网站百度识图扫一扫
XLSReadWriteII5 Color 颜色l的调用和使用
一、色彩三原色
自然界，颜色是由红、绿、蓝三色组成，人眼的可见的颜色，可以通过红、绿、蓝三色按照不同的比例合成产生。
任意一种颜色由这三种原色按照一定的比例混合出来。
二、Windows系统 TColor
1、使用二进制字符串，显示TColor值
使用三组16进制的字符（对应0-255值），组建色彩。
Uses Graphics;
function StringToColor(const s:string):TColor; // 将字符串转换成TColor值，如将'clBtnFace'转换成 $02FF8800
function ColorToString(Color: TColor): string; // 将颜色值转换成字符串值
2、通过RGB值，显示TColor值
RGB中建立三个原色的亮度值：0-255，通过三个原色的（0-255）建立该色彩。
（1）RGB转换为Tcolor
function RGBToColor(R,G,B: byte): Tcolor;
beginResult := B Shl 16 or G shl 8 or R;
end;（2）Tcolor转换为RGB
Program ColorToRGB(Color: TColor;Var R,G,B: byte);
beginR := Color and $FF;G := (Color and $FF00) shr 8;B := (Color and $FF0000) shr 16;
end; 三、XLSReadWriteII Color使用Cardnal值
经过分析Cardnal值也是三原色组成与RGB的值有一定的规则：
TColor的RGB的色彩排列值是RGB(红绿蓝)，而Cardnal色彩的排列值是BGR(蓝绿红)。二者的色彩排列是反向的。
四、建立XLSReadWriteII色彩值函数
function BGRToColor(R,G,B: byte): Tcolor;
beginResult := R Shl 16 or G shl 8 or B;
end;五、运用
procedure TOld_ON_Frm.sButton2Click(Sender: TObject);
var s1,S2,Date1,Title1,Title2,Title3,TailTag,FileName:string;ColWith : array[0..100] of integer; // 列宽度RowHeight : array[0..7] of integer; // 行标题高度i:Integer;Font1,Font2,Font3,Font4,Font5,Font6:TFont;function BGRToColor(R,G,B: byte): Tcolor;
beginResult := R Shl 16 or G shl 8 or B;
end;beginFont1:=TFont.Create;Font2:=TFont.Create;Font3:=TFont.Create;Font4:=TFont.Create;Font5:=TFont.Create;Font6:=TFont.Create;Font1.Name:='宋体';Font1.Size:=12;Font1.Color:=BGRToColor(200,0,0); // Blue Green Red......XLS_DBGridEh_EXCEL_Title3_Select_Ord(Self, //Sender 主窗体（父窗口）DBGridEh1, //DBGrid DBGridEhFileName, //FileName 生成文件名Title1, //Title 标题Title2, //Title 标题Title3, //Title 标题TailTag, //TailTag 尾标注'C', //Title_1_HorizAlignmen 标题1水平对齐 L、C、R'C', //Title_2_HorizAlignmen 标题2水平对齐'C', //Title_3_HorizAlignmen 标题3水平对齐'L', //TailTag_HorizAlignmen 尾标注水平对齐Font1,Font2,Font3,Font4,Font5,Font6,0, //Pagetype 页面样式（0纵向，1横向）0, //ShowZero 显示 0 （0不显示，1显示）0, //DoSum 底栏统计汇总（0不，1可）'', //NoSum 强制非汇总的列 格式：AAAA,BBBB,CCCC'排序,统计,选择,入住类型,出院日期,分支,ID', // NoCol 强制非显示的列 同上100, //percent 显示百分比True, //SelectEnd 选择有效'选择', //SelectField 选择字段名ColWith, //ColWith 列宽RowHeight, //RowHeight 行高（标题）True, //DuplicateTitle 重复打印标题True //Serialnumber 首列加入临时字段“序号”并加入序列号);end;