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

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

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

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

login2 © (2002-07-30 11:18:00)
Подскажите, почему вот этот кусок кода по фильтрации изображения

for i:= 0 to PaletteSize-1 do
if palPalEntry[i].peRed <125 then
begin
palPalEntry[i].peRed:=0;
palPalEntry[i].peGreen:=0;
palPalEntry[i].peBlue:=0;
end
else
begin
palPalEntry[i].peRed:=255;
palPalEntry[i].peGreen:=255;
palPalEntry[i].peBlue:=255;
end;

работает также как и инверсия, вернее сказать неправильно работает инвертирование:

for i:= 0 to PaletteSize-1 do
if palPalEntry[i].peRed > 125 then
begin
palPalEntry[i].peRed:=0;
palPalEntry[i].peGreen:=0;
palPalEntry[i].peBlue:=0;
end
else
begin
palPalEntry[i].peRed:=255;
palPalEntry[i].peGreen:=255;
palPalEntry[i].peBlue:=255;
end;

login2 (2002-07-30 12:01:00) [1]
нужно сделать инвертирование, или ты хочешь сказать что оно у тебя работает?

MBo (2002-07-30 11:51:00) [2]
>темные в черное, светлое в белое
а что нужно-то?

login2 (2002-07-30 11:46:00) [3]
по каким-то причинам не изменяется само изображение,
хотя палитра изменяется, я смотрел в ACDSee.
Оба куска кода изменяют палитру, но изображение только фильтруется(темные в черное, светлое в белое) и все.

MBo (2002-07-30 11:28:00) [4]
в чем выражается неправильная работа?
приведенный кусок успешно выполняет заданные действия. Что дальше?

Наверх

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