Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.06.13;
Скачать: 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 вся ветка

Текущий архив: 2004.06.13;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.022 c
1-1086183727
first_may
2004-06-02 17:42
2004.06.13
TRegistry


14-1085495783
13-Drakosha
2004-05-25 18:36
2004.06.13
BrainBench.com


11-1074259099
dolp
2004-01-16 16:18
2004.06.13
Как преобразовать Float в String


4-1084133388
RyDmi
2004-05-10 00:09
2004.06.13
Имя текущего пользователя


1-1085733678
Zheka
2004-05-28 12:41
2004.06.13
InputQuery и шрифт