Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Media";
Текущий архив: 2004.07.25;
Скачать: [xml.tar.bz2];

Вниз

Проверить какого цвета точка   Найти похожие ветки 

 
Женя   (2004-05-07 16:58) [0]

Добрый день.
У меня лабораторная по ООП. Задача сделать пародию на аквариум в котором "плавают" кружочки и квадратики, т.е. рыбки. Нужно чтобы они огибали друг друга, а для этого есть процедура Look, которая проверяет несколько точек по ходу движения "рыбы" и если этот цвет отличается от цвета аквариума, то рыба огибает препятствие.

Т.о. вопрос как проверить цвет точки и сравнить с другим цветом


 
Маг Гыр ©   (2004-05-07 17:24) [1]

Если работаешь с канвой, то у нее есть свойство
Pixels[X, Y: Integer]: TColor;
Используется так:
var
col: TColor;
...
col:=Form1.Canvas.Pixels(100,200); // col-цвет пикселя (100,200)


 
Женя   (2004-05-09 14:06) [2]

Очень благодарен


 
тихий вовочка ©   (2004-05-09 16:47) [3]

Только Pixels ужасно тормозят и тебе лучше просто иметь координаты всех препятствий и других рыб. Спрайты тебя спасут



Страницы: 1 вся ветка

Форум: "Media";
Текущий архив: 2004.07.25;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.44 MB
Время: 0.042 c
4-1086109696
lena19
2004-06-01 21:08
2004.07.25
перехват скролинга компонента


8-1084179857
Клавдия
2004-05-10 13:04
2004.07.25
как склеить в один wav файл последовательно несколько файлов?


3-1088759983
polygris
2004-07-02 13:19
2004.07.25
Проблема с ZEOS компонентами


14-1088847875
Иксик
2004-07-03 13:44
2004.07.25
rsh: shell/tcp: unknown service


1-1089729567
Homyak_Max
2004-07-13 18:39
2004.07.25
Проблемы с потоками





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский