Главная страница
    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.041 c
14-1088781511
OSokin
2004-07-02 19:18
2004.07.25
В чем измерять глюки и баги?


14-1089125494
Тимохов
2004-07-06 18:51
2004.07.25
Стартовая функция exe файла, созданного дельфи.


1-1089382208
MadGhost
2004-07-09 18:10
2004.07.25
Как сделать PREVIEW у TPrinter???


14-1089199366
Nein
2004-07-07 15:22
2004.07.25
как догнать двух зайцев?


10-1023374714
Алексей Черменов
2002-06-06 18:45
2004.07.25
Построение КИС на основе технологии EJB





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский