文档章节

Delphi 中的颜色

涂孟超
 涂孟超
发布于 2014/09/26 15:35
字数 740
阅读 4
收藏 0
点赞 0
评论 0
//全以红色举例:

//1. RGB 模式:
Self.Color := $0000ff; 
//不过和HTML中的 #ff0000 是反的,应该叫 BGR。

 
 
 
 
 

 

 

  
//2. RGB 分值,譬如: Self.Color := RGB(255,0,0);
//3. Delphi 中的标准模式: Self.Color := $000000ff; //其中低3位字节代表RGB(BGR)相应的颜色; //如果最高位字节是$00,则表示用系统调色板中最相近的颜色; //最高位字节是$01,则表示用当前调色板中最相近的颜色匹配; //最高位字节是$02,则用当前设备描述表中逻辑调色板的次相近颜色匹配。
//4. 整数: Self.Color := 255; //十六进制转换来的整数。
//5. 颜色常量: Self.Color := clRed; //Delphi 预定义的常量有: clSystemColor = $FF000000; clScrollBar = TColor(clSystemColor or COLOR_SCROLLBAR); clBackground = TColor(clSystemColor or COLOR_BACKGROUND); clActiveCaption = TColor(clSystemColor or COLOR_ACTIVECAPTION); clInactiveCaption = TColor(clSystemColor or COLOR_INACTIVECAPTION); clMenu = TColor(clSystemColor or COLOR_MENU); clWindow = TColor(clSystemColor or COLOR_WINDOW); clWindowFrame = TColor(clSystemColor or COLOR_WINDOWFRAME); clMenuText = TColor(clSystemColor or COLOR_MENUTEXT); clWindowText = TColor(clSystemColor or COLOR_WINDOWTEXT); clCaptionText = TColor(clSystemColor or COLOR_CAPTIONTEXT); clActiveBorder = TColor(clSystemColor or COLOR_ACTIVEBORDER); clInactiveBorder = TColor(clSystemColor or COLOR_INACTIVEBORDER); clAppWorkSpace = TColor(clSystemColor or COLOR_APPWORKSPACE); clHighlight = TColor(clSystemColor or COLOR_HIGHLIGHT); clHighlightText = TColor(clSystemColor or COLOR_HIGHLIGHTTEXT); clBtnFace = TColor(clSystemColor or COLOR_BTNFACE); clBtnShadow = TColor(clSystemColor or COLOR_BTNSHADOW); clGrayText = TColor(clSystemColor or COLOR_GRAYTEXT); clBtnText = TColor(clSystemColor or COLOR_BTNTEXT); clInactiveCaptionText = TColor(clSystemColor or COLOR_INACTIVECAPTIONTEXT); clBtnHighlight = TColor(clSystemColor or COLOR_BTNHIGHLIGHT); cl3DDkShadow = TColor(clSystemColor or COLOR_3DDKSHADOW); cl3DLight = TColor(clSystemColor or COLOR_3DLIGHT); clInfoText = TColor(clSystemColor or COLOR_INFOTEXT); clInfoBk = TColor(clSystemColor or COLOR_INFOBK); clHotLight = TColor(clSystemColor or COLOR_HOTLIGHT); clGradientActiveCaption = TColor(clSystemColor or COLOR_GRADIENTACTIVECAPTION); clGradientInactiveCaption = TColor(clSystemColor or COLOR_GRADIENTINACTIVECAPTION); clMenuHighlight = TColor(clSystemColor or COLOR_MENUHILIGHT); clMenuBar = TColor(clSystemColor or COLOR_MENUBAR); clBlack = TColor($000000); clMaroon = TColor($000080); clGreen = TColor($008000); clOlive = TColor($008080); clNavy = TColor($800000); clPurple = TColor($800080); clTeal = TColor($808000); clGray = TColor($808080); clSilver = TColor($C0C0C0); clRed = TColor($0000FF); clLime = TColor($00FF00); clYellow = TColor($00FFFF); clBlue = TColor($FF0000); clFuchsia = TColor($FF00FF); clAqua = TColor($FFFF00); clLtGray = TColor($C0C0C0); clDkGray = TColor($808080); clWhite = TColor($FFFFFF); StandardColorsCount = 16; clMoneyGreen = TColor($C0DCC0); clSkyBlue = TColor($F0CAA6); clCream = TColor($F0FBFF); clMedGray = TColor($A4A0A0); ExtendedColorsCount = 4; clNone = TColor($1FFFFFFF); clDefault = TColor($20000000); { The following "cl" values come from the Web Named Color palette and are stored in the Windows COLORREF byte order x00bbggrr } clWebSnow = $FAFAFF; clWebFloralWhite = $F0FAFF; clWebLavenderBlush = $F5F0FF; clWebOldLace = $E6F5FD; clWebIvory = $F0FFFF; clWebCornSilk = $DCF8FF; clWebBeige = $DCF5F5; clWebAntiqueWhite = $D7EBFA; clWebWheat = $B3DEF5; clWebAliceBlue = $FFF8F0; clWebGhostWhite = $FFF8F8; clWebLavender = $FAE6E6; clWebSeashell = $EEF5FF; clWebLightYellow = $E0FFFF; clWebPapayaWhip = $D5EFFF; clWebNavajoWhite = $ADDEFF; clWebMoccasin = $B5E4FF; clWebBurlywood = $87B8DE; clWebAzure = $FFFFF0; clWebMintcream = $FAFFF5; clWebHoneydew = $F0FFF0; clWebLinen = $E6F0FA; clWebLemonChiffon = $CDFAFF; clWebBlanchedAlmond = $CDEBFF; clWebBisque = $C4E4FF; clWebPeachPuff = $B9DAFF; clWebTan = $8CB4D2; // yellows/reds yellow -> rosybrown clWebYellow = $00FFFF; clWebDarkOrange = $008CFF; clWebRed = $0000FF; clWebDarkRed = $00008B; clWebMaroon = $000080; clWebIndianRed = $5C5CCD; clWebSalmon = $7280FA; clWebCoral = $507FFF; clWebGold = $00D7FF; clWebTomato = $4763FF; clWebCrimson = $3C14DC; clWebBrown = $2A2AA5; clWebChocolate = $1E69D2; clWebSandyBrown = $60A4F4; clWebLightSalmon = $7AA0FF; clWebLightCoral = $8080F0; clWebOrange = $00A5FF; clWebOrangeRed = $0045FF; clWebFirebrick = $2222B2; clWebSaddleBrown = $13458B; clWebSienna = $2D52A0; clWebPeru = $3F85CD; clWebDarkSalmon = $7A96E9; clWebRosyBrown = $8F8FBC; // greens palegoldenrod -> darkseagreen clWebPaleGoldenrod = $AAE8EE; clWebLightGoldenrodYellow = $D2FAFA; clWebOlive = $008080; clWebForestGreen = $228B22; clWebGreenYellow = $2FFFAD; clWebChartreuse = $00FF7F; clWebLightGreen = $90EE90; clWebAquamarine = $D4FF7F; clWebSeaGreen = $578B2E; clWebGoldenRod = $20A5DA; clWebKhaki = $8CE6F0; clWebOliveDrab = $238E6B; clWebGreen = $008000; clWebYellowGreen = $32CD9A; clWebLawnGreen = $00FC7C; clWebPaleGreen = $98FB98; clWebMediumAquamarine = $AACD66; clWebMediumSeaGreen = $71B33C; clWebDarkGoldenRod = $0B86B8; clWebDarkKhaki = $6BB7BD; clWebDarkOliveGreen = $2F6B55; clWebDarkgreen = $006400; clWebLimeGreen = $32CD32; clWebLime = $00FF00; clWebSpringGreen = $7FFF00; clWebMediumSpringGreen = $9AFA00; clWebDarkSeaGreen = $8FBC8F; // greens/blues lightseagreen -> navy clWebLightSeaGreen = $AAB220; clWebPaleTurquoise = $EEEEAF; clWebLightCyan = $FFFFE0; clWebLightBlue = $E6D8AD; clWebLightSkyBlue = $FACE87; clWebCornFlowerBlue = $ED9564; clWebDarkBlue = $8B0000; clWebIndigo = $82004B; clWebMediumTurquoise = $CCD148; clWebTurquoise = $D0E040; clWebCyan = $FFFF00; // clWebAqua clWebAqua = $FFFF00; clWebPowderBlue = $E6E0B0; clWebSkyBlue = $EBCE87; clWebRoyalBlue = $E16941; clWebMediumBlue = $CD0000; clWebMidnightBlue = $701919; clWebDarkTurquoise = $D1CE00; clWebCadetBlue = $A09E5F; clWebDarkCyan = $8B8B00; clWebTeal = $808000; clWebDeepskyBlue = $FFBF00; clWebDodgerBlue = $FF901E; clWebBlue = $FF0000; clWebNavy = $800000; // violets/pinks darkviolet -> pink clWebDarkViolet = $D30094; clWebDarkOrchid = $CC3299; clWebMagenta = $FF00FF; // clWebFuchsia clWebFuchsia = $FF00FF; clWebDarkMagenta = $8B008B; clWebMediumVioletRed = $8515C7; clWebPaleVioletRed = $9370DB; clWebBlueViolet = $E22B8A; clWebMediumOrchid = $D355BA; clWebMediumPurple = $DB7093; clWebPurple = $800080; clWebDeepPink = $9314FF; clWebLightPink = $C1B6FF; clWebViolet = $EE82EE; clWebOrchid = $D670DA; clWebPlum = $DDA0DD; clWebThistle = $D8BFD8; clWebHotPink = $B469FF; clWebPink = $CBC0FF; // blue/gray/black lightsteelblue -> black clWebLightSteelBlue = $DEC4B0; clWebMediumSlateBlue = $EE687B; clWebLightSlateGray = $998877; clWebWhite = $FFFFFF; clWebLightgrey = $D3D3D3; clWebGray = $808080; clWebSteelBlue = $B48246; clWebSlateBlue = $CD5A6A; clWebSlateGray = $908070; clWebWhiteSmoke = $F5F5F5; clWebSilver = $C0C0C0; clWebDimGray = $696969; clWebMistyRose = $E1E4FF; clWebDarkSlateBlue = $8B3D48; clWebDarkSlategray = $4F4F2F; clWebGainsboro = $DCDCDC; clWebDarkGray = $A9A9A9; clWebBlack = $000000; WebColorsCount = 140; { Two of which are duplicates Aqua/Cyan Fuchsia/Magenta }

本文转载自:http://www.cnblogs.com/del/archive/2007/12/08/987652.html

共有 人打赏支持
涂孟超
粉丝 12
博文 2004
码字总数 14107
作品 0
深圳
程序员
支持Delphi/C++Builder的文字处理控件TRichView

TRichView 是一套支持Delphi/C++Builder的控件,有和Word相似的功能,主要用于编辑、显示和打印超文本文档。该控件支持各种各样不同的属性(字体、下标和上标,自定义下拉列表,文本背景颜色...

yidongkaifa ⋅ 2014/04/22 ⋅ 0

cxStyleRepository的使用方法

在Delphi中使用cxGrid或cxTreeList时,对原生的控件配色不满意,需要定制更友好的颜色,这时候cxStyleRepository就派上用场了。 工具:向窗体添加一个cxGrid,并设置好几列: 修改cxGridDBT...

reherin ⋅ 2016/01/11 ⋅ 0

15 款代码语法高亮工具,美化你的代码

语法高亮是文本编辑器用来显示文本的,特别是源代码,根据不同的类别来用不同的颜色和字体显示。这个功能有助于编写结构化的语言,比如编程语言,标记语言,这些语言的语法错误显示是有区别的...

oschina ⋅ 2014/03/13 ⋅ 11

创建交互式地项目甘特图​以及日程安排图的控件GTP.NET

GTP.NET是一个综合全面的基于.NET的甘特图控件,可以帮助软件开发人员可视化和熟练地操作基于时间的信息,控件包含了一系列界面控件以便操作时间块。使用该控件可以创建交互式地项目甘特图以及...

netkongjian ⋅ 2014/06/10 ⋅ 0

集成开发环境--Delphi

Delphi,是美国Borland(宝兰)公司於1995年开发在Windows平台下的快速应用程式开发工具(Rapid Application Development,简称RAD),它的前身是在DOS下的产品Borland Turbo Pascal。(非开源...

匿名 ⋅ 2009/03/11 ⋅ 1

Delphi惹谁了?

Delphi惹谁了? 最早的时候就有C++程序员做Win23的产品没有Delphi程序员快,不服气地说Delphi的不好,理由是Delphi只能拖拉控件,不能OOP。几年以前,当Java刚刚火起来的时候,Java程序员说D...

vga ⋅ 2016/08/09 ⋅ 6

Delphi的网友评论

Delphi,是美国Borland(宝兰)公司於1995年开发在Windows平台下的快速应用程式开发工具(Rapid Application Development,简称RAD),它的前身是在DOS下的产品Borland Turbo Pascal。(非开源...

红薯 ⋅ 2009/12/11 ⋅ 7

如何处理后缀为.WinmendSp( )的文件

下载如下三个文件: Delphi7完整汉化注册破解版.7z.WinmendSp0 Delphi7完整汉化注册破解版.7z.WinmendSp1 Delphi7完整汉化注册破解版.7z.WinmendSp2 (如果有同时下载了bat文件,双击该文件就...

实习州长 ⋅ 2016/03/13 ⋅ 0

dll内存释放

最近用delphi编程,发现delphi的库函数非常少,我需要用到md5算法,然而delphi却没有这个库,找了个第三方的库,是cnpack的cnvcl。用600M的文件来测试,发现速度比C++的大概慢30%,delphi需要...

L5257 ⋅ 2013/08/26 ⋅ 0

SQLite for Delphi的网友评论

SQLite的一个Delphi的开源封装库,全面支持Delphi 4, 5, 6, 7, 2005 和 2006。对于Delphi 4和Delphi 5请使用带有D4、D5后缀的文件。解压缩下载回来的文件包到Delphi的子目录下,安装该组件,...

红薯 ⋅ 2009/12/11 ⋅ 2

没有更多内容

加载失败,请刷新页面

加载更多

下一页

容器之重命名镜像

使用docker tag命令来重命名镜像名称,先执行help,查看如何使用如下 mjduan@mjduandeMacBook-Pro:~/Docker % docker tag --helpUsage:docker tag SOURCE_IMAGE[:TAG] TARGET_IMAGE[:TA...

汉斯-冯-拉特 ⋅ 17分钟前 ⋅ 0

with 的高级用法

那么 上下文管理器 又是什么呢? 上下文管理器协议包含 __enter__ 和 __exit__ 两个方法。with 语句开始运行时,会在上下文管理器对象上调用 __enter__ 方法。with 语句运行结束后,会在上下...

阿豪boy ⋅ 36分钟前 ⋅ 0

使用 jsoup 模拟登录 urp 教务系统

需要的 jsoup 相关 jar包:https://www.lanzous.com/i1abckj 1、首先打开教务系统的登录页面,F12 开启浏览器调试,注意一下 Request Headers 一栏的 Cookie 选项,我们一会需要拿这个 Cook...

大灰狼时间 ⋅ 36分钟前 ⋅ 0

关于线程的创建

转自自己的笔记: http://note.youdao.com/noteshare?id=87584d4874acdeaf4aa027bdc9cb7324&sub=B49E8956E145476191C3FD1E4AB40DFA 1.创建线程的方法 Java使用Thread类代表线程,所有的线程对......

MarinJ_Shao ⋅ 47分钟前 ⋅ 0

工厂模式学习

1. 参考资料 工厂模式-伯乐在线 三种工厂-思否 深入理解工厂模式 2. 知识点理解 2.1 java三种工厂 简单工厂 工厂模式 抽象工厂 2.2 异同点 逐级复杂 简单工厂通过构造时传入的标识来生产产品...

liuyan_lc ⋅ 59分钟前 ⋅ 0

Java NIO

1.目录 Java IO的历史 Java NIO之Channel Java NIO之Buffer Java NIO之Selector Java NIO之文件处理 Java NIO之Charset Java 可扩展IO 2.简介 “IO的历史”讲述了Java IO API从开始到现在的发...

士别三日 ⋅ 今天 ⋅ 0

[Err] ORA-24344: success with compilation error

从txt文本复制出创建function的脚本,直接执行,然后报错:[Err] ORA-24344: success with compilation error。 突然发现脚本的关键字,居然不是高亮显示。 然后我把脚本前面的空格去掉,执行...

wenzhizhon ⋅ 今天 ⋅ 0

Spring Security授权过程

前言 本文是接上一章Spring Security认证过程进一步分析Spring Security用户名密码登录授权是如何实现得; 类图 调试过程 使用debug方式启动https://github.com/longfeizheng/logback该项目,...

hutaishi ⋅ 今天 ⋅ 0

HAProxy基于KeepAlived实现Web高可用及动静分离

前言 软件负载均衡一般通过两种方式来实现: 基于操作系统的软负载实现 基于第三方应用的软负载实现 LVS是基于Linux操作系统实现的一种软负载,而HAProxy则是基于第三方应用实现的软负载。 ...

寰宇01 ⋅ 今天 ⋅ 0

微软自研处理器的小动作:已经开始移植其他平台的工具链

微软将 Windows 10 、Linux 以及工具链如 C/C++ 和 .NET Core 运行时库、Visual C++ 2017 命令行工具、RyuJIT 编辑器等移植到其自主研发的处理器架构 E2。微软还移植了广泛使用的 LLVM C/C++...

linux-tao ⋅ 今天 ⋅ 0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

返回顶部
顶部