|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#16
|
||||
|
||||
Тут нечего больше объяснять. X и Y - аналоги вашего "f" и "i'. X - позиция пиксела по горизонтали, Y - по вертикали. Проходя в цикле Y от 0 до высоты Bitmap'a (или 500 в вашем случае, главное, чтобы высота картинки была не меньше), сканируем строку битмапа (заносим в память последовательность байт, которые и составляют одну строку). Теперь, проходя во втором цикле X, уже работаем со строкой, по-горизонтали. Здесь Rows[X] - это позиция [X] пиксела в строке[Y]. rgbtRed, rgbtGreen, rgbtBlue - красная, зеленая и синяя составляющие цвета. Их можно получить системными ф-циями
GetRValue(цвет) - красная составляющая, GetGValue - зеленая. GetBValue - синяя. RGB(красная составляющая, зел. сост, син. сост) - получаем цвет TColor из его составляющих. Bitmap - в вашем случае Form1.image1.Picture.Bitmap. Чтобы этот код работал, желательно при создании формы (в OnCreate формы) прописать Код:
Form1.image1.Picture.Bitmap.PixelFormat:=pf24bits; Последний раз редактировалось YVitaliy, 03.06.2013 в 17:38. |
Этот пользователь сказал Спасибо YVitaliy за это полезное сообщение: | ||
RobinStone (04.06.2013)
|
#17
|
|||
|
|||
Я не програмер, я ОЛЕНЬ !
ВСЁ НАСТОЛЬКО ДОСТУПНО объяснил, что даже я ПОНЯЛ. Всё ПОЛУЧИЛОСЬ. СТОЛЬКО РАДОСТИ БЫЛО !!! Даже жене позвонил, сказал, что люблю! И ЕЩЁ РАЗ - ГРОМАДНЕЙШЕЕ ВАМ ЧЕЛОВЕЧЕСКОЕ СПАСИБО !!! |
#18
|
|||
|
|||
Цитата:
А результат-то где? Дайте поиграть?!)) |