TIEBaseBitmap.Palette

Declaration

property Palette[index: integer]: TRGB;

Description

Returns the color of the palette entry index, e.g. for an ie8p image.

Note: Inherited from TIEBaseBitmap

Example

const
  Width = 600;
  Height = 400;
var
  colorMap: TIEArrayOfTRGB;
  bmp: TIEBitmap;
  row, col: Integer;
  pixel: PByte;
begin
  bmp := TIEBitmap.Create( Width, Height, ie8p );
  try
    colorMap := GenerateHuePalette();
    CopyMemory( bmp.PaletteBuffer, colorMap, 256 * sizeof(TRGB) );

    for row := 0 to Height - 1 do
    begin
      pixel := bmp.GetRow(row);
      for col := 0 to Width - 1 do
      begin
        pixel^ := Round( row * col / Width / Height * MaxByte );
        inc( pixel );
      end;
    end;

    Form1.ImageEnView1.Assign( bmp );
  finally
    bmp.Free();
  end;
end;

TIEBaseBitmap.Palette