Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Работа с палитрой в Delphi

Efir © (2006-05-20 21:10:00)
Народ, может кто знает, почему при замене палитры у Bitmap'а изменяется сама битовая карта этого Bitmap'а?

MBo (2006-05-22 12:34:00) [1]
Одно другому не помеха ;)
TBitmap является оберткой над DIBsection или DDB, так что изменять ему не нужно, а просто использовать низкоуровневые возможности

Efir (2006-05-22 12:21:00) [2]
Просто я работаю с TBitmap. Но, пожалуй ты прав, лучше использовать SetDIBColorTable и работать напрямую с DIB.
Спасибо за совет.

MBo (2006-05-22 11:46:00) [3]
>У меня DIB.
Тогда нет проблем.

Efir (2006-05-22 11:30:00) [4]
У меня DIB.

MBo (2006-05-21 22:24:00) [5]
Битмап может быть двух типов - DIB или DDB. У тебя какой?

Efir (2006-05-21 22:06:00) [6]
Тогда придётся создать DIB, изменить таблицу цветов и снова перевести в Bitmap?

MBo (2006-05-21 21:06:00) [7]
Хм...
Я не пользовался Bitmap.Palette, а метод SetPalette работает сложным образом и, видимо, все-таки преобразует DIB.

Я обычно использую SetDIBColorTable - попробуй.

Efir (2006-05-21 20:48:00) [8]
Да BitmapPixelFormat:=pf8bit;
Вот кусок кода:

var
pal:PLogPalette;
i:integer;
begin
pal:=nil;
GetMem(pal,sizeof(TLogPalette)+sizeof(TPaletteEntry)*High(ColorTable));
pal.palVersion:=$300;
pal.palNumEntries:=High(ColorTable)+1;
DeleteObject(Bitmap.Palette);
for i:=0 to High(ColorTable) do begin
pal.palPalEntry[i].peRed :=ColorTable[i].Red;
pal.palPalEntry[i].peGreen:=ColorTable[i].Green;
pal.palPalEntry[i].peBlue :=ColorTable[i].Blue;
pal.palPalEntry[i].peFlags:=ColorTable[i].Flags;
end;
Bitmap.Palette:=CreatePalette(pal^);
mas:=nil;
FreeMem(pal);

ColorTable - это уже изменённая таблица цветов.
Вот в результате такого кода и изменяются ссылки в битовой карте на цвета
в палитре. Конечно, можно сначала сохранить битовую карту например в массив, а после изменения палитры снова восстановить Bitmap. Но это лишний расход ресурсов. Вот я и ищу другой способ справиться с этой проблемой.

MBo (2006-05-21 20:21:00) [9]
>antonn © (21.05.06 20:14) [2]
Вот и я подобное заподозревал...

antonn (2006-05-21 20:14:00) [10]
bitmap.pixelformat:=pf8bit?
:)

MBo (2006-05-21 20:04:00) [11]
Покажи пример кода (или псевдокода), при выполнении которого это происходит

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »