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

Как узнать что рисунок имеет белый фон   Найти похожие ветки 

← →
__yur__   (2004-03-23 19:45) [0]

Мастера подскажите,
у меня есть к примеру 10 рисунков (jpg)
несколько из них пустые(просто белый фон)
как мне программно определить их и удалить

---

← →
yur ©   (2004-03-24 18:29) [1]

Мастера помогите плизз
очень надо

---

← →
zeqfreed ©   (2004-03-24 22:01) [2]

Проходишься в цикле... если цвет не белый инкрементируешь переменную (или в true ставишь, если 100% белый надо)... Потом сравниваешь, доаустим > 90% белого => Удаляем...

---

← →
yur ©   (2004-03-24 22:41) [3]

а в коде можно
так наглядней получается:))

---

← →
yur ©   (2004-03-25 15:58) [4]

вот типа прохожу в цикле

with image1.Picture.Bitmap do
for x:=0 to Width do
for y:=0 to Height do
t:=Canvas.Pixels[x,y];
если цвет не белый инкрементируешь переменную (или в true ставишь, если 100% белый надо)... Потом сравниваешь, доаустим > 90% белого => Удаляем...
а как это записать все?????

---

← →
yur ©   (2004-03-25 16:00) [5]

плиз помогите

---

← →
Dmyk   (2004-03-25 21:35) [6]

Просто. Что-то вроде такого:

// ...
var
// ...
 Whites, X, Y: Cardinal;
// ...
begin
// ...
 with image1.Picture.Bitmap do begin
   for X := 0 to Width-1 {!} do
     for Y := 0 to Height-1 {!} do
       if Canvas.Pixels[x,y] = clWhite then
         Inc(Whites);
   if (100 * Whites) / (Width * Height) >= 90 then
     Result := true; //ну или что тебе там надо
 end;
// ...
end;


---

← →
__yur___   (2004-03-26 14:43) [7]

Пасибо большое!!!

---

← →
ИЛЕЙ ©   (2004-04-01 12:19) [8]

if image1.picture.bitmap.canvas.pixel(1,1).color=clwhite then .....................

---

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

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



Память: 0.46 MB
Время: 0.02 c