TImageEnPaletteDialog.SetPalette

Declaration

procedure SetPalette(var Palette: array of TRGB; NumCol: Integer);

Description

Sets palette to show in the dialog.

Example

var
  palDlg: TImageEnPaletteDialog;
begin
  palDlg := TImageEnPaletteDialog.Create( Self );
  palDlg.SetPalette(ImageEnView1.IO.Params.ColorMap^, ImageEnView1.IO.Params.ColorMapCount);
  if palDlg.Execute then
    Panel1.Color := palDlg.SelCol;
  palDlg.Free();
end;

See Also

◼CreateRGB
◼IERGBToColor
◼IEColorToRGB

---