Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Мультимедиа в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 10.03.2010, 10:42   #31
koshel
Пользователь
 
Аватар для koshel
 
Регистрация: 03.02.2010
Сообщений: 38
По умолчанию

У меня получалось сохранить только последний построенный эллипс!!
как мне паралельно из нахождением Х и У копировать их?
koshel вне форума Ответить с цитированием
Старый 10.03.2010, 17:16   #32
x128
Форумчанин
 
Регистрация: 03.02.2010
Сообщений: 178
По умолчанию

rects[номер] где номер=от 0 до length(rects)-1, возвращаемая структура TRect

Последний раз редактировалось x128; 10.03.2010 в 17:19.
x128 вне форума Ответить с цитированием
Старый 28.04.2010, 17:15   #33
BassPlayer
Новичок
Джуниор
 
Регистрация: 28.04.2010
Сообщений: 1
По умолчанию

Цитата:
Сообщение от koshel Посмотреть сообщение
спасибо работает!!!!
Только теперь надо диапазон более удачный подобрать))) а то отобрало бред какой то!!
Напомню про людей с разным цветом кожи (красный, коричневый, желтый, черный, лиловый... - практически весь спектр кроме зеленого) :-) Или в вашем хоре только "бледнолицые"?
BassPlayer вне форума Ответить с цитированием
Старый 29.04.2010, 02:20   #34
koshel
Пользователь
 
Аватар для koshel
 
Регистрация: 03.02.2010
Сообщений: 38
По умолчанию

мне не нужно углубляться с разными цветами я делал для "бледнолицых"
koshel вне форума Ответить с цитированием
Старый 29.04.2010, 14:55   #35
artemavd
Старожил
 
Аватар для artemavd
 
Регистрация: 05.06.2008
Сообщений: 4,194
По умолчанию

JTG, у меня в этом коде:
Код:
procedure Median(Bitmap: tbitmap; XOrigin, YOrigin,  XFinal, YFinal: Integer);
var Memo,x,y: Integer;
    p0,p1,p2:pbytearray;
begin
   if XFinal<XOrigin then begin Memo:=XOrigin; XOrigin:=XFinal; XFinal:=Memo; end;
   if YFinal<YOrigin then begin Memo:=YOrigin; YOrigin:=YFinal; YFinal:=Memo; end;
   XOrigin:=max(1,XOrigin);
   YOrigin:=max(1,YOrigin);
   XFinal:=min(Bitmap.width-2,XFinal);
   YFinal:=min(Bitmap.height-2,YFinal);
   Bitmap.PixelFormat :=pf24bit;
   for y:=YOrigin to YFinal do begin
    p0:=Bitmap.ScanLine [y-1];
    p1:=Bitmap.scanline [y];
    p2:=Bitmap.ScanLine [y+1];
    for x:=XOrigin to XFinal do begin
      p1[x*3]:=(p0[x*3]+p2[x*3]+p1[(x-1)*3]+p1[(x+1)*3])div 4;
      p1[x*3+1]:=(p0[x*3+1]+p2[x*3+1]+p1[(x-1)*3+1]+p1[(x+1)*3+1])div 4;
      p1[x*3+2]:=(p0[x*3+2]+p2[x*3+2]+p1[(x-1)*3+2]+p1[(x+1)*3+2])div 4;
      end;
   end;
end;
компилятор ругается на max. Как объявить ее?
Не стоит смеяться над человеком делающим шаг назад, возможно он делает разбег.
artemavd вне форума Ответить с цитированием
Старый 30.04.2010, 00:05   #36
koshel
Пользователь
 
Аватар для koshel
 
Регистрация: 03.02.2010
Сообщений: 38
По умолчанию

у меня тоже ругался. нужно в uses добавить math.
koshel вне форума Ответить с цитированием
Старый 30.04.2010, 09:28   #37
Virtson
Владимир М.
Участник клуба
 
Аватар для Virtson
 
Регистрация: 30.10.2006
Сообщений: 1,289
По умолчанию

Зачем браться за такие задачи, не зная синтаксис ЯП ?
Берегите друг друга!
Virtson вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Выявление повторяющихся лиц из таблицы Ferrari-51 Помощь студентам 5 26.10.2009 18:49
Распознание формул в Delphi mud girl Компоненты Delphi 5 29.05.2009 09:27
Распознавание(обнаружение) лиц на фотографии Бзик Мультимедиа в Delphi 4 18.02.2009 23:15
Распознание цифр на изображении slashy Помощь студентам 4 29.04.2008 16:14
Распознание текста DOLBY Общие вопросы Delphi 13 14.02.2008 13:31