摘要:
1.RGB转换为Tcolor function RGBToColor(R,G,B: byte): Tcolor;begin Result := B Shl 16 or G shl 8 or R;end; 2.Tcolor转换为RGB proceudre Tform1.Button1Clink(Sen 阅读全文
posted @ 2016-05-27 14:44 ╰★张志峰★╮ 阅读(543) 评论(0) 推荐(0)
|
||
|
摘要:
1.RGB转换为Tcolor function RGBToColor(R,G,B: byte): Tcolor;begin Result := B Shl 16 or G shl 8 or R;end; 2.Tcolor转换为RGB proceudre Tform1.Button1Clink(Sen 阅读全文
posted @ 2016-05-27 14:44 ╰★张志峰★╮ 阅读(543) 评论(0) 推荐(0) |
||