Форум: "Потрепаться";
Текущий архив: 2003.07.21;
Скачать: [xml.tar.bz2];

Вниз

Мастера подскажите как получить палитру 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 вся ветка

Форум: "Потрепаться";
Текущий архив: 2003.07.21;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.007 c