var
P:array[0..100] of PByteArray;//像素数组
x,y:Integer;
begin
for y:=0 to Bmp.Height-1 do
begin
P[y]:=Bmp.ScanLine[y];//将图片所有像素值存入P
end;
y:=0;//第一行
x:=1;//第二列
P[y][x*3]:=255;//像素的第一字节
P[y][x*3+1]:=255;//像素的第二字节
P[y][x*3+2]:=255;//像素的第三字节
end;
scanline扫描.rar （30个子文件） 
scanline扫描 
3.bmp 240KB __history 
Unit1.pas.~58~ 8KB Unit1.pas.~63~ 8KB Unit1.dfm.~7~ 542KB Unit1.dfm.~8~ 543KB Unit1.dfm.~10~ 543KB Unit1.pas.~61~ 8KB Unit1.pas.~64~ 8KB Unit1.pas.~65~ 8KB Unit1.pas.~60~ 8KB Unit1.dfm.~9~ 543KB Unit1.dfm.~11~ 543KB Unit1.dfm.~12~ 543KB Unit1.pas.~59~ 8KB Unit1.dfm.~6~ 542KB Unit1.pas.~67~ 7KB Unit1.pas.~62~ 8KB Unit1.pas.~66~ 8KB Unit1.dfm.~5~ 542KB Unit1.dfm.~13~ 543KB Unit1.dfm.~14~ 543KB Project1.res 58KB Unit1.dfm 543KB __recovery Unit1.pas 7KB 2.bmp 240KB Project1.identcache 143B Project1.dpr 234B Project1.dproj.local 1KB
文档.txt 314B Project1.dproj 29KB
评论0
最新资源