关于 TApplication 详解 六 ---- TColorDialog

六、TColorDialog                                                                                                                                                                                                    

TCommonDialog--TColorDialog

Color属性
对应对象：TColorDialog
声明：property   Color:TColor   default   clBlack;
功能：Color属性用来确定在颜色对话框中选择哪一个颜色。当用户选择了一个新的颜色时，Color属性将被设置为新颜色的值。

例子：
//Change   the   color   of   the   selected   text   when   the   user   choose   a
//color   from   the   Color   dialog   box
procedure   TForm1.sbColorClick(Sender:   TObject);
begin
    Colordialog1.Execute;
    RichEdit1.SelAttributes.Color:=Colordialog1.Color;
End;

CustomColors属性  
对应对象：TColorDialog
声明：property   CustomColors:TStrings;
功能：CustomColors属性确定在颜色对话框中可以获得的一种自定义的颜色。CustomColors属性保存了一个字符串的列表，每一个字符串的格式是：ColorX=HexValue，其中ColorX是16个自定义的颜色中的一个，是从ColorA到ColorP，HexValue参数是一个十六进制的数值，它说明了构成颜色的所对应的RGB值。所以，对应于纯白色这个值是FFFFFF，000000是纯黑，使用Color0＝000000说明了把纯黑色传递给颜色选择。当颜色对话框被关闭时，保存了对话框颜色的列表，以便用户可以在下一次使用对话框时使用自定义颜色。

例子：
procedure   TForm1.sbColorClick(Sender:   TObject);
var   X:Integer;
begin
        Colordialog1.CustomColers:=   StrCustomColors;
Colordialog1.Execute;
RichEdit1.SelAttributes.Color:=Colordialog1.Color;
        StrCustomColors:=Colordialog1.CustomColors;
      //Save   StrCustomColors   to   the   registry   or   an   INI   file
    //when   the   program   exits…
end;

Options属性
对应对象：TColorDialog
声明：   TColorDialogOption   =   (cdFullOpen,   cdPreventFullOpen,   cdShowHelp,   cdSolidColor,
  cdAnyColor);
    TColorDialogOptions   =   set   of   TColorDialogOption;
property   Options:   TcolorDialogOptions     default[];
功能：Options属性说明了颜色对话框的显示形式和选项。
  以下列举了有效的选项值。

值                                                             意     义
 
cdFullOpen                   当颜色对话框被打开时显示了定制颜色的选项。
cdPreventFullOpen     使在对话框中的定义定制的颜色成为不可用，所以便用者不能定义新的颜色。
cdShowHelp                   在对话框之中添加一个帮助按钮。
cdSolidColor               指引系统使用最近的纯颜色的选择。
cdAnyColor                   允许使用者选择非纯的颜色(可以被近似的抖动)

缺省时所有的选项是被关闭的。

例子：
procedure   TForm1.FormCreate(Sender:   TObject);
begin
ColorDialog1.Options:=[   cdFullOpen,   cdShowHelp];
end;

OnClose事件  
对应对象：TColorDialog
声明：property   OnClose:TNotifyEvent;
功能：当一个对话框被关闭时，OnClose事件被引发。当对话框关闭时写入一个OnClose事件的句柄来完成指定的操作。