- Charte de CodeS-SourceS - Principes de modération
- Charte d'utilisation de CodeS-sourceS-- Respect d'autrui
- Charte de Codes-SourceS -- Neutralité
- Charte d'utilisation de Codes-Sources -- Gestion de communauté
- Charte d'utilisation de CodeS-SourceS - Aspects légaux
- Charte de CommentCaMarche.net - Conseils d'écriture
Comment modifier la palette d'un Bitmap 256 couleurs ? [Résolu]
Toya78
- Messages postés
- 49
- Date d'inscription
- vendredi 1 septembre 2006
- Dernière intervention
- 23 août 2008
- Messages postés
- 49
- Date d'inscription
- vendredi 1 septembre 2006
- Dernière intervention
- 23 août 2008
A voir également:
- Hpalette
- Setdibcolortable - Meilleures réponses
- Bmp palette - Meilleures réponses
- Afficher bitmap 256 couleurs ✓ - Forum - ASM
- Visual Basic / VB.NET : Classe cpalette pour gerer les palettes de couleurs 8 bits (256 couleurs) - - Guide
- Modifier la résolution d'un bitmap sans toucher aux pixels ✓ - Forum - VB.NET
- Afficher 256 couleurs sous dos devc++4 - Codes sources - C / C++ / C++.NET (Astuces)
- Dessiner des pixels mode graphique 320x200 en 256 couleurs - Codes sources - ASM (68xxx)
3 réponses
Meilleure réponse
- Messages postés
- 759
- Date d'inscription
- vendredi 21 mars 2003
- Dernière intervention
- 1 octobre 2009
Salut,
Il faut (je crois) utiliser les fonctions GetDIBColorTable et SetDIBColorTable, soit par exemple dans ton cas :
var
i : integer;
TabColor : Array[0..255] of RGBQUAD;
begin
Image1.Picture.LoadFromFile('MonImage.bmp'); // chargement image
If Image1.Picture.Bitmap.PixelFormat <> pf8bit then
// vérif du format 256 couleurs
exit;
GetDIBColorTable(Image1.Picture.Bitmap.Canvas.Handle,0,256,TabColor); // récup des 256 couleurs
// de la palette
for i := 0 to 255 do
with TabColor[i] do
begin if (rgbRed 255) <gras>and (rgbGreen</gras> 255) and (rgbBlue = 255) then //recherche du blanc
begin
rgbGreen : = 0; // on ne laisse que le rouge
rgbBlue := 0;
end ;
end;
SetDIBColorTable(Image1.Picture.Bitmap.Canvas.Handle,0,256,TabColor); // On remplace la table
Image1.Invalidate; // et on redessine
Image1.Picture.SaveToFile('MonImageModifiee.bmp'); // on sauve
end;
Je pense qu'avec ça tu devrait pouvoir obtenir ce que tu cherches
Ken@vo
<hr size ="2" width="100%" />
Code, Code, Codec !
[%3C/body
]
Il faut (je crois) utiliser les fonctions GetDIBColorTable et SetDIBColorTable, soit par exemple dans ton cas :
var
i : integer;
TabColor : Array[0..255] of RGBQUAD;
begin
Image1.Picture.LoadFromFile('MonImage.bmp'); // chargement image
If Image1.Picture.Bitmap.PixelFormat <> pf8bit then
// vérif du format 256 couleurs
exit;
GetDIBColorTable(Image1.Picture.Bitmap.Canvas.Handle,0,256,TabColor); // récup des 256 couleurs
// de la palette
for i := 0 to 255 do
with TabColor[i] do
begin if (rgbRed 255) <gras>and (rgbGreen</gras> 255) and (rgbBlue = 255) then //recherche du blanc
begin
rgbGreen : = 0; // on ne laisse que le rouge
rgbBlue := 0;
end ;
end;
SetDIBColorTable(Image1.Picture.Bitmap.Canvas.Handle,0,256,TabColor); // On remplace la table
Image1.Invalidate; // et on redessine
Image1.Picture.SaveToFile('MonImageModifiee.bmp'); // on sauve
end;
Je pense qu'avec ça tu devrait pouvoir obtenir ce que tu cherches
Ken@vo
<hr size ="2" width="100%" />
Code, Code, Codec !
[%3C/body
]
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
a aidé 98 internautes ce mois-ci
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.