ImageEn, unit iexColorPalette |
|
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
// 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