1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
| //Au cas où ce *.bmp est dans le dossier de l'application :
Filepath = ExtractFilePath(Application->ExeName);
//Chargement du bitmap
GrayLevels->LoadFromFile(Filepath + "Bitmap8Bits.bmp");
//Modification des entrées de la palette du bitmap
PALETTEENTRY E;
HPALETTE hgray = GrayLevels->Palette;
for(int j = 0; j < 256; j++)
{
E.peRed = (Byte)j;
E.peGreen = (Byte)j;
E.peBlue = (Byte)j;
E.peFlags = 0;
SetPaletteEntries(hgray, j, 1, &E);
}
//Eventuellement le sauvegarder
//GrayLevels->SaveToFile(Filepath + "RefGris.bmp"); |
Partager