Главная страница
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.048 c
1-1086179010
ZHK
2004-06-02 16:23
2004.06.13
Печему нельзя присвоить TControl.OnMouseMove?


14-1085578506
Kiloper
2004-05-26 17:35
2004.06.13
Дайте, пожалуйста, ссылку, где можно скачать


6-1082526541
atruhin
2004-04-21 09:49
2004.06.13
Перехват на контроллере домена. События входа пользователя.


4-1084053583
Мыш
2004-05-09 01:59
2004.06.13
получение иконки не работает


14-1085636152
Соловьев
2004-05-27 09:35
2004.06.13
Сколько 1-ых битов в байте? :)