Delphi颜色的表示(一共5种表示法)

//全以红色举例:

//1. RGB 模式:
Self.Color := $0000ff; 
//不过和HTML、PhotoShop、FireWorks中的 #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://blog.csdn.net/dropme/article/details/4504546

时间: 2024-10-06 10:48:13

Delphi颜色的表示(一共5种表示法)的相关文章

19:用两种颜色去染排成一个圈的6个棋子,如果通过旋转得到则只算一种,一共有多少种染色:

A: 10 B:11 C:14: D:15 答案:C 解释:应该有14种方案,设只有黑白两色,默认白色,那么,用p(n)表示有n个黑棋的种类 p(0)=p(6)=1 p(1)=p(5)=1 p(2)=p(4)=3 //相邻的一种,隔一个的一种,两个的一种 p(3)=4 //都相邻的一种,BB0B的一种,BB00B的一种,B0B0B的一种,一共4种 24:假设函数rand_k会随机返回一个[1,k]之间的随机数(k>=2),并且每个证书出现的概率相等.目前有rand_7,通过调用rand_7()和

递归计算战士打靶S次打了N环一共有多少种可能的问题

问题描述 一个战士打了10次靶,一共打了90环,问一共有多少种可能,并输出这些可能的组合. 思路 首先,嵌套10层循环进行穷举是不可取的,一是因为速度太慢,二是如果改成打20次靶就完蛋了. 其实这就是一个树的搜索问题. 1. 设第一次打了0环,那么第二次可能打0 ~ 10环这些可能 2. 以第一次打的0环为root,将第二次所有可能的环数都做为root的子结点 3. 重复1, 2步 这样就构成了一棵树,表示当第一次打了0环时所有的可能性.我们要做的就是从上到下遍历这棵树,当经过的结点之和等于90

递归解决战士打靶N坏一共有多少种可能的问题

问题描述 一个战士打了10次靶,一共打了90环,问一共有多少种可能,并输出这些可能的组合. 思路 首先,嵌套10层循环进行穷举是不可取的,一是因为速度太慢,二是如果改成打20次靶就完蛋了. 其实这就是一个树的搜索问题. 1. 设第一次打了0环,那么第二次可能打0 ~ 10环这些可能 2. 以第一次打的0环为root,将第二次所有可能的环数都做为root的子结点 3. 重复1, 2步 这样就构成了一棵树,表示当第一次打了0环时所有的可能性.我们要做的就是从上到下遍历这棵树,当经过的结点之和等于90

Delphi调用Dll的的2种写法

unit Unit1; interface uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls;//定义类型要与原函数一样function GetUserDefaultUILanguage():Integer;external 'Kernel32.DLL'; type  TForm1 = class(TForm)    Button1: TButto

用1到9这九个数字变成三位数加三位数等于三位数的加法,例如:173+295 =468,一共有多少种情况?

#include "stdafx.h" #include <stdio.h> #include <vector> #include <algorithm> using namespace std; void FindCount(vector<int> &vect,int iPos,int &Count) { if (iPos>8) { int i1 = vect[0] * 100 + vect[1] * 10 + v

历数依赖注入的N种玩法

历数依赖注入的N种玩法 在对ASP.NET Core管道中关于依赖注入的两个核心对象(ServiceCollection和ServiceProvider)有了足够的认识之后,我们将关注的目光转移到编程层面.在ASP.NET Core应用中基于依赖注入的编程主要涉及到两个方面,它们分别是将服务注册到ServiceCollection中,和采用注入的方式利用ServiceProvider提供我们所需的服务.我们先来讨论ASP.NET Core应用中如何进行服务注册.[本文已经同步到<ASP.NET

c语言:一只青蛙一次可以跳上1级台阶,也可以跳上2级。求该青蛙跳上一个n级的台阶总共有多少种跳法?

一只青蛙一次可以跳上1级台阶,也可以跳上2级.求该青蛙跳上一个n级的台阶总共有多少种跳法? 解:把n级台阶时的跳法记为f(n),当n>2时,第一次跳的时候有两种不同的选择:一是第一次只跳1级,此时跳法数目等于后面剩下的n-1级台阶的跳法数目,即为f(n-1);另外一种是第一次跳2级,此时跳法数目等于后面剩下的n-2级台阶的跳法数目,即为f(n-2);因此n级台阶时的跳法为f(n)=f(n-1)+f(n-2).不难看出这实际是斐波拉契数列的变形应用,把斐波拉契数列的每一项向前移动了1位. 程序:

百钱买百鸡:公鸡5元一只,母鸡3元一只,小鸡1元3只,问100元买100只鸡,问有多少种买法,输出每种买法的结果!

/** * 百钱买百鸡:公鸡5元一只,母鸡3元一只,小鸡1元3只,问100元买100只鸡,问有多少种买法,输出每种买法的结果! * */ public class Test3 { public static void main(String[] args) { int c = 0; for (int a = 0; a < 100; a++) { for (int b = 0; b < 100; b++) { if ((7 * a + 4 * b) == 100) { c++; System.o

执?行?o?r?a?c?l?e?函?数?的?四?种?方?法

1.在定义函数时:如果有参数,则参数可有类型但是不加长度. 2.在执行函数: var/variable var_name var_type(如果数据类型是number则没有长度,如果数据类型是varchar2,则可以写长度)                      call(此处不能用exec) 函数名(参数) into :var_name;                举例:         SQL>var dd varchar2          SQL>call get_sal(77