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◼ TRGB2TColor◼ TColor2TRGB