Bonjour,
Dans le cadre d'un logiciel de simulation pour écran TFT, je souhaite modifier la palette d'un composant TImage qui contient un bitmap 4bits (16 couleurs)

Voici ce que j'ai fait mais ça ne marche pas !
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
void __fastcall TFormSimulation::Button2Click(TObject *Sender)
{
  int i;
  WORD bh,bl,color16;
  DWORD color24;
  PALETTEENTRY Colors[256];
 GetPaletteEntries(Image1->Picture->Bitmap->Palette, 0, 256, Colors); 
 for (i=0;i<256;i++)
 {
   Colors[i].peRed  = 0;
   Colors[i].peGreen= 0;
   Colors[i].peBlue=  0;
 }
 SetPaletteEntries(Image1->Picture->Bitmap->Palette, 0, 256, Colors);
 RealizePalette(Image1->Picture->Bitmap->Handle);
 Image1->Repaint();
}