请问我想把一个16色的BMP LOAD 到 TIMAGE 后，如何改变调色板使图象颜色发生变化，80分，谢谢！(80分)

  • 主题发起人 白河愁
  • 开始时间
白

白河愁

Unregistered / Unconfirmed
GUEST, unregistred user!
我试了用 SetPaletteEntries 来改变颜色结果颜色显示不正确，何解？
 
我没试过，改变调色板后有否重画，或者用timage就不行。
 
画了，但没用。
 
代码？
 
var lplogpal:pLogPalette;
i:integer;
begin

GetMem(lpLogPal,sizeof(TLOGPALETTE) + ((16) * sizeof(TPALETTEENTRY)));
// lpLogPal.palVersion := $300;
lpLogPal.palNumEntries := 16;
for i:=0 to 15 do
Begin
lpLogpal.palPalEntry.peRed:=GetRValue(pans.Color);
lpLogpal.palPalEntry.peGreen:=GetGValue(pans.Color);
lpLogpal.palPalEntry.peBlue:=GetBValue(pans.Color);
lpLogpal.palPalEntry.peFlags:=PC_RESERVED;
End;

Bmp.Palette := CreatePalette(lpLogpal^);
// Image1.Picture.Bitmap.Palette := CreatePalette(lpLogpal^);
FreeMem(lpLogPal);
RealizePalette(Bmp.Canvas.Handle);
// RealizePalette(Image1.Picture.Bitmap.Canvas.Handle);
Image1.Canvas.draw(0,0,bmp);
// Image1.Picture.Bitmap:=bmp;

end;
 
没人会？？
 
up
 
1. 检查你的图象
2. pans.Color 是什么东西？
 
图象是一个 16 色的BMP，pans.color 是储存了那16种颜色的记录
 
// lpLogPal.palVersion := $300;

这一句不要注释！
 
对了，还有
Image1.Picture.Bitmap.PixelFormat := pf4bit;
 
之前有的，但是也一样没用。
 
up
 
改成这样也不行........但是如果把GetRValue(pans.Color)换成RANDOM(255)之类的颜色
居然可以改变，pans.color是定义的颜色代码。
GetPaletteEntries(Image1.Picture.Bitmap.Palette,0,16,pal);
for i:=0 to 15 do
begin
pal.peFlags:=PC_RESERVED;
pal.peRed:=GetRValue(pans.Color);
pal.peGreen:=GetGValue(pans.Color);
pal.peBlue:=GetBValue(pans.Color);
end;
SetPaletteEntries(Image1.Picture.Bitmap.Palette,0,16,pal);
RealizePalette(Image1.Picture.Bitmap.Canvas.Handle);
Image1.Repaint;
 
查以前的资料
 
查得到就不用问了。
 
问题已被我解决，请斑竹帮助把分收回。
 
您必须登录或注册才可回复。

Similar threads

W
请问高手，我用Pen.Mode:=pmCopy;这样定义，在白底的时候线条颜色都是正确的，但我用image调入了位图后，画出的线都不是正确的颜色了(偏色），为什
回复
2
查看
144
wxnm
W
I
Delphi显示BMP图片的问题：如何通过读取文件头，信息头，调色板，位图数据显示BMP图片，而不是使用如image.picture:=等的方法？(100分)
回复
6
查看
141
ISY
I
W
显示器16增强色，怎样分解处R G B分色！！(200分)
回复
8
查看
122
wukw
W
B
yuki2003请进，请问能否将Gr32剥离出来？如何改变Gr32中图像的R、G、B值？(200分)
回复
3
查看
88
billjohn1999
B
S
如何改变image的调色板并立刻显示改变的效果(100分)
回复
10
查看
131
sw7309
S
顶部