Changer la palette d'un TImage ?
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:
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();
} |
