lBmp.Width - 1 do
begin
for j := 0 to lBmp.Height - 1 do
begin
При таком цикле бежит снизу-вверх, слева-направо по пикселям?
lBmp - tbitmap.
вроде сверху вниз
А слева-направо?
Быстрее будет через scanline, но вложенность циклов менять надо
Обсуждают сегодня