Discussion :

[franckcl]

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();
}

[franckcl]

En fait j'ai contourné le problème en utilisant une image 24 bits et en calculant moi même la correspondance des couleurs.
merci pour ceux qui ont eu le temps de plancher sur le problème.