TIEColorPalette.SelectedColor

Declaration

property SelectedColor: TColor;

Description

Specifies the color that is currently selected (down).

Note:
- Setting SelectedColor to a color will only succeed if the color exists in the palette. To find the nearest color, use SelectNearestColor
- TIEColorPalette does not support multiple selection

Example

// Show the selected color
pnlSelectedColor.ParentBackground := False;
pnlSelectedColor.Color := ColorPalette1.SelectedColor;

// Allow the selected color to be changed
procedure TForm1.pnlSelectedColorClick(Sender: TObject);
Var
  palDlg: TImageEnPaletteDialog;
Begin
  palDlg := TImageEnPaletteDialog.Create(self);
  palDlg.SetPalette( ColorPalette1.Palette, ColorPalette1.ColorCount);
  if palDlg.Execute then
    ColorPalette1.SelectedColor := PDialog.SelCol;
  palDlg.free;
End;

TIEColorPalette.SelectedColor