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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 20.12.2008, 22:14   #11
mutabor
Телепат с дипломом
Старожил
 
Аватар для mutabor
 
Регистрация: 10.06.2007
Сообщений: 4,929
По умолчанию

У вас dx это скорость, при касании стенок меняйте ее знак и всё
dx := 0 - dx;

Вставлять вот сюда
Код:
...
//zrachki
Form1.Canvas.brush.Color:=Form1.Color;
Form1.Canvas.Ellipse(x-58,y-137,x-62,y-133);

Form1.Canvas.Ellipse(x-42,y-137,x-38,y-133);

if (стенка слева) или (стенка справа) then dx:=0 - dx;
x:=x+dx;

Form1.Canvas.pen.Color:=clBlack;
//telo
Form1.Canvas.Brush.Color:=clGray;
...
The future is not a tablet with a 9" screen no more than the future was a 9" black & white screen in a box. It’s the paradigm that survives. (Kroc Camen)
Проверь себя! Онлайн тестирование | Мой блог

Последний раз редактировалось mutabor; 20.12.2008 в 22:16.
mutabor вне форума Ответить с цитированием
Старый 20.12.2008, 22:14   #12
Terran
Участник клуба
 
Аватар для Terran
 
Регистрация: 28.11.2007
Сообщений: 1,521
По умолчанию

Цитата:
он у меня стукается об стенку, как только дотрагивается до правово бока кота.. как это изменить?
Поясните пожалуйста по подробней, как нужно что бы было?
Цитата:
И вы не ответили, есть ли вы в аське/агенте?
В агенте бываю.
И ещё у вас в коде есть ошибка. Что бы правое ухо кота не оставляло след, исправьте код:
Код:
//ushki
Form1.Canvas.MoveTo(x-85,y-165);
Form1.Canvas.LineTo(x-75,y-145);
Form1.Canvas.MoveTo(x-85,y-165);
Form1.Canvas.LineTo(x-65,y-155);
Form1.Canvas.MoveTo(x-15,y-165);
Form1.Canvas.LineTo(x-25,y-145);
Form1.Canvas.MoveTo(x-15,y-165);
Form1.Canvas.LineTo(x-35,y-155);
В обоих случаях.
Всегда рад помочь!
Terran вне форума Ответить с цитированием
Старый 20.12.2008, 23:00   #13
Надежда..
Пользователь
 
Регистрация: 13.12.2008
Сообщений: 12
По умолчанию

а вы не могли бы мне дать свою почту?
Надежда.. вне форума Ответить с цитированием
Старый 20.12.2008, 23:10   #14
Terran
Участник клуба
 
Аватар для Terran
 
Регистрация: 28.11.2007
Сообщений: 1,521
По умолчанию

Цитата:
а вы не могли бы мне дать свою почту?
Я скинул вам в личку.
Всегда рад помочь!
Terran вне форума Ответить с цитированием
Старый 20.12.2008, 23:24   #15
Надежда..
Пользователь
 
Регистрация: 13.12.2008
Сообщений: 12
По умолчанию

все)))) У меня работает)))))
А как мне сделать так, чтоб теперь рисунок масштабировался- увеличивался и уменьшался до полного исчезновения.. как?(((

найдите меня в агенте.. я вас найти не могу.. dnadegda@mail.ru

или аська-497795036
Надежда.. вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Вывод рисунка на печать -=<[Evklidd]>=- Мультимедиа в Delphi 10 09.07.2010 18:38
WinApp на C++, замазывание рисунка mat90x Помощь студентам 1 18.06.2008 21:48
Помогите с настройкой рисунка GrEFon HTML и CSS 4 13.12.2007 18:52
Разгупировка рисунка asale Microsoft Office Excel 1 23.10.2007 22:30
движение изображения с зеркальным отображением от стенок nev Помощь студентам 6 11.06.2007 21:38