ImageEn, unit iexColorPalette

TIEColorPalette.SelectedColor

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;


See Also

SelectedIndex