Последние записи
- Прозрачность тайлсета в TPNGImage
- Как сделать VBA макрос в excel
- Поиск по столбцу 1-ого не нулевого значения (формулой в Microsoft Office Excel)
- Простановка единиц в ячейки под объектами (Microsoft Office Excel)
- Расчет затраченного времени между определенным рабочим временем (формулой в Microsoft Office Excel)
- Мигающий экран на Assembler
- VBA-макрос по копированию 10 строчек в выбранном диапазоне в Microsoft Office Excel
- Копирование только нужного диапазона в Microsoft Office Excel
- Перенос диапазона стоки в Microsoft Office Excel на другой лист по условию
- Мелодия в Pascal.ABC.Net с помощью System.Console.Beep — задержка воспроизведения звука
20th
Окт
Как свойством BitMap.ScanLine проверить изображение (200х200 пкс) на наличие черных пикселей?
Posted by Chas under Delphi, Пост-обзор
Результат вывести в двумерный массив 200х200 ячеек.
Asinkrit
type
_RGB = record
b,
g,
r: byte;
end;
ARGB = array[0..1] of _RGB;
PARGB = ^ARGB;
TBuffer = array[0..199,0..199] of boolean;
...
var
p: PARGB;
x, y: Integer;
FBuffer:TBuffer;
begin
for y:=0 to 199 do
begin
p:=aBitMap.ScanLine[y];
for x:=0 to 199 do
FBuffer[x,y]:=((p[x].b = 0) and (p[x].g = 0) and (p[x].r = 0));
end;
end;
