网站品牌建设建议,云指官网,旅游公司的网站怎么做,苏州网站建设哪家效果好XLSReadWriteII5 Color 颜色l的调用和使用 一、色彩三原色 自然界#xff0c;颜色是由红、绿、蓝三色组成#xff0c;人眼的可见的颜色#xff0c;可以通过红、绿、蓝三色按照不同的比例合成产生。 任意一种颜色由这三种原色按照一定的比例混合出来。 二、Windows系…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建立该色彩。 1RGB转换为Tcolor
function RGBToColor(R,G,B: byte): Tcolor;
beginResult : B Shl 16 or G shl 8 or R;
end; 2Tcolor转换为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、RC, //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;
