| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
А вы не могли бы мне подсказать как сравнить по пикселам два ч/б [D5, D6, D7]
DoktorX © (2006-11-14 23:13:00)А вы не могли бы мне подсказать как сравнить по пикселам два ч/б битмапа
рамерностью 30Х30 пикселов?
Anatoly Podgoretsky (2006-11-14 23:24:00) [21]
> С чего ты взял?
По вопросу работает, а по приведеным им коду не работает, поскольку вопрос к коду отношения не имеет, в коде он считает количество совпадающих черныхточек
Johnmen (2006-11-14 23:23:00) [22]
> а как с imagelist перебрать бм и сравнить?
Здесь дело такое, что на вопросы типа "дайте сырцов" отвечать не принято.
MikePetrichenko (2006-11-14 23:20:00) [23]
> Я чото сделал но оно не работает!
Сначала определись ЧТО сделал.
DoktorX (2006-11-14 23:18:00) [24]а как с imagelist перебрать бм и сравнить?
Johnmen (2006-11-14 23:17:00) [25]
> но оно не работает!
С чего ты взял?
Johnmen (2006-11-14 23:16:00) [26]ImageX.Canvas.Pixels[X,Y] <> ImageY.Canvas.Pixels[X,Y]
Это последний раз. Учи матчасть.
DoktorX (2006-11-14 23:15:00) [27]Я чото сделал но оно не работает!
procedure TForm1.Button3Click(Sender: TObject);
var
Count,x,y,i,Result,chislo:integer;
bm:TBitmap;
begin
for i:=0 to 5 do
begin
bm:=TBitmap.Create;
ImageList1.GetBitmap(i,bm);
Image4.Picture.Bitmap:=bm;
Count := 0;
for x := 0 to Width-1 do
for y := 0 to Height-1 do
if (Image3.Canvas.Pixels[x,y] = clblack) and (Image4.Canvas.Pixels[x,y] = clblack)
then Inc(Count);
Result:=(Count div 10);
if (Result >20)
then
chislo:= i;
label4.Caption:= inttostr(chislo);
end;
bm.Free;
end;
Джо (2006-11-14 23:13:00) [28]Думаю, могли бы. А в чем загвоздка?
| |
Страницы: 