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

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

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

Как узнать что рисунок имеет белый фон [D6, D7, Win2k]

__yur__ © (2004-03-23 19:45:00)
Мастера подскажите,
у меня есть к примеру 10 рисунков (jpg)
несколько из них пустые(просто белый фон)
как мне программно определить их и удалить

ИЛЕЙ (2004-04-01 12:19:00) [1]
if image1.picture.bitmap.canvas.pixel(1,1).color=clwhite then .....................

__yur___ (2004-03-26 14:43:00) [2]
Пасибо большое!!!

Dmyk (2004-03-25 21:35:00) [3]
Просто. Что-то вроде такого:
// ... 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-25 16:00:00) [4]
плиз помогите

yur (2004-03-25 15:58:00) [5]
вот типа прохожу в цикле

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-24 22:41:00) [6]
а в коде можно
так наглядней получается:))

zeqfreed (2004-03-24 22:01:00) [7]
Проходишься в цикле... если цвет не белый инкрементируешь переменную (или в true ставишь, если 100% белый надо)... Потом сравниваешь, доаустим > 90% белого => Удаляем...

yur (2004-03-24 18:29:00) [8]
Мастера помогите плизз
очень надо

Наверх

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