Скачать: CL | DM;

Мастера подскажите как получить палитру bmp файла?   Найти похожие ветки 

← →
XobBIT ©   (2003-07-04 12:35) [0]

Необходимо получить палитру 256 цветной bmp"ки.
В help"е нашел код:

...
type
LogPal = record
lpal: TLogPalette;
dummy: Array[0..255] of TPaletteEntry;
end;
var
SysPal: LogPal;
begin
SysPal.lPal.palVersion := $300;
SysPal.lPal.palNumEntries := 256;
GetSystemPaletteEntries(bitmap.Canvas.Handle,0,256,SysPal.lpal.palPalEntry);
...


После чего делаю
RGB(SysPal.dummy[i].peRed,SysPal.dummy[i].peGreen,SysPal.dummy[i].peBlue);

А цвета получаю черные...

---

← →
MBo ©   (2003-07-04 12:41) [1]

SystemPalette-то зачем получать для битмапа?

http://www.delphimaster.ru/articles/pixels/index.html
там есть пример.

---

← →
Юрий Федоров ©   (2003-07-04 12:47) [2]

попробуй так :

var pal: TMaxLogPalette;

GetSystemPaletteEntries(bitmap.Canvas.Handle,0,256,Pal.palPalEntry[0]);

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.01 c