Последние записи
- Как запустить программу указанную в Edit.Text
- Скачать файл с использованием потока
- Поиск слова в Memo
- Распаковщик формата .img из GTA San Andreas
- Подсчет количества повторяющихся букв в файле
- Простейший скрипт загрузки картинки с помощью php
- Рассылка. Выпуск 154
- Получение картинки с веб-камеры
- Скопировать определённый кусок image
- Сделать printscreen экрана и сохранить
1st
Мар
Как получить все цвета пикселей в Timage?
Posted by Chas under Пост-обзор
вот не понимаю как получить все цвета, ведь сначала проходить нужно будет с [1 и до ...]; а это до тоже может меняться. Может кто ни будь подсказать, если в [1,и до ...] дальше пиксели не идут как сместится на [2 и до ...]
for i := 0 to Image1.Width-1 do
for j := 0 to Image1.Height-1 do
begin
Color:=Image1.Canvas.Pixels;
end;