SL: PByteArray;
begin
with Image1.Picture.Bitmap do
for I := 0 to Height - 1 do
begin
SL := ScanLine[I];
for J := 0 to Width - 1 do
begin
SL^[J*3] := 0;
SL^[J*3+1] := 0;
SL^[J*3+2] := 0;
end;
begin
with Image1.Picture.Bitmap do
for I := 0 to Height - 1 do
begin
SL := ScanLine[I];
for J := 0 to Width - 1 do
begin
SL^[J*3] := 0;
SL^[J*3+1] := 0;
SL^[J*3+2] := 0;
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货