RAD Studio VCL Reference
|
Displays the color-selection dialog.
function Execute(ParentWnd: HWND): Boolean; override;
virtual __fastcall Boolean Execute(HWND ParentWnd);
Execute opens the color-selection dialog, returning true when the user selects a color and clicks OK, or false when the user cancels.
if ColorDialog1.Execute then Shape1.Brush.Color := ColorDialog1.Color else Shape1.Brush.Color := clGray;
C++ Examples:
/* The following code changes the color of a shape control using the Color dialog box. The example displays the Color dialog box when the Button1 button is clicked, allowing the user to select a color with the dialog box. When a color value is selected with the dialog box, it is assigned to the shape control. */ void __fastcall TForm1::Button1Click(TObject *Sender) { if (ColorDialog1->Execute()) Shape1->Brush->Color = ColorDialog1->Color; }
Delphi Examples:
{ The following code changes the color of a shape control using the Color dialog box. The example displays the Color dialog box when the Button1 button is clicked, allowing the user to select a color with the dialog box. When a color value is selected with the dialog box, it is assigned to the shape control. } procedure TForm1.Button1Click(Sender: TObject); begin if ColorDialog1.Execute then Shape1.Brush.Color := ColorDialog1.Color; end;
Copyright(C) 2008 CodeGear(TM). All Rights Reserved.
|
What do you think about this topic? Send feedback!
|