T>При работе с Canvas из thread-а надо его "лочить"
T> bmp.Canvas.Lock; T> try T> for i:=0 to bmp.Width-1 do T> for j:=0 to bmp.Height-1 do T> begin T> if bmp.Canvas.Pixels[i,j]<>clBlack then T> PByte(Integer(mem)+j*bmp.Width+i)^:=1 T> else T> PByte(Integer(mem)+j*bmp.Width+i)^:=0; T> end; T> finally T> bmp.Canvas.Unlock; T> end;
T> работает медленнее, но тут уж надо оптимизировать...
