Creates grayscale palette where each color channel has the same value.

procedure FillGrayscalePalette(Pal: PPalette32; 
                               Entries: LongInt);

Imaging (at line 271)

Pal must have at least Entries color entries.