Вниз
Скачать: CL | DM;

Работа с палитрой   Найти похожие ветки 

 
login2 ©   (2002-07-30 11:18) [0]

Подскажите, почему вот этот кусок кода по фильтрации изображения

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;


 
MBo ©   (2002-07-30 11:28) [1]

в чем выражается неправильная работа?
приведенный кусок успешно выполняет заданные действия. Что дальше?


 
login2 ©   (2002-07-30 11:46) [2]

по каким-то причинам не изменяется само изображение,
хотя палитра изменяется, я смотрел в ACDSee.
Оба куска кода изменяют палитру, но изображение только фильтруется(темные в черное, светлое в белое) и все.


 
MBo ©   (2002-07-30 11:51) [3]

>темные в черное, светлое в белое
а что нужно-то?


 
login2 ©   (2002-07-30 12:01) [4]

нужно сделать инвертирование, или ты хочешь сказать что оно у тебя работает?



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

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



Память: 0.46 MB
Время: 0.011 c
7-59466
Sergey V. Shadrin
2002-09-16 09:17
2002.11.18
eventlog


3-59015
VikOss
2002-10-29 14:09
2002.11.18
InterBase


14-59430
Wonder
2002-10-25 13:54
2002.11.18
Задачка :)


1-59118
NaZGHUL
2002-11-08 12:15
2002.11.18
Помогите!!!!!


3-59009
AlexLumpov
2002-10-28 23:19
2002.11.18
Как передать в IB через SQLQuery параметр NULL




   Наверх