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

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

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

Работа с палитрой [D6, Win95/98]

jel © (2003-04-09 10:06:00)
Как правильно работать с палитрой nBitmap?

Есть отдельно растр и отдельно его палитра. Если я собираю из них файл bmp все нормально, но когда пытаюсь собрать их в кучу в экземпляре tBitmap цвета сильно искажены. Делаю примерно так:

устанваливаю размеры битмапа и формат пиксела, копирую растр в ScanLines, и bmp.Palette := CreatePalette(...); После этого не выводя битмап на экран - пишу в файл. Результат совсем не похож на собранный ручками файл.

Может быть нужно сделать что-то еще для правильного отображения цветов?

MBo (2003-04-09 13:01:00) [1]
работает вроде нормально.

procedure TForm1.Button4Click(Sender: TObject);
var ab:array[word] of byte;
ct:array[byte] of TRGBQuad;
b:tbitmap;
i:integer;
begin
b:=tbitmap.create;
b.pixelformat:=pf8bit;
b.Width := 256;
b.Height := 256;
for i:=0 to 255 do begin
ct[i].rgbRed:=i;
ct[i].rgbBlue:=i;
ct[i].rgbGreen:=i;
ct[i].rgbReserved:=0;
end;
for i:=0 to 65535 do
ab[i]:=i shr 8;
SetDIBColorTable(b.canvas.Handle,0,$100,ct);
SetBitmapBits(b.Handle, sizeof(ab),@ab);
Image1.picture.assign(b);
b.SaveToFile("e:\256.bmp");
b.free;
end;

jel (2003-04-09 10:40:00) [2]
То есть иными словами даже в консольном приложении, где битмап не будет отображаться на экране, полностью 256 цветов использовать не даст система?

MBo (2003-04-09 10:38:00) [3]
20 цветов - системная палитра (ButtonFaceColor и т.п.)
Если установлено режим экрана с 256 цветами, RealizePalette обязательно придется делать, но могут возникнуть искжения цветов в остальных окнах

jel (2003-04-09 10:32:00) [4]
LOGPALETTE сделана вроде ровно, а вот не резервирует ли система какое-либо количество цветов под собственные нужды? При внимательном рассмотрении оказываются сильно искаженными только несколько позиций палитры, стоящих первыми, остальные искажаются не так сильно.

И не нужно ли делать RealizePalette()?

MBo (2003-04-09 10:16:00) [5]
возможно, LOGPALETTE некорректно сделана
SetDIBColorTable не пробовал?

Наверх

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