1,183
社区成员
发帖
与我相关
我的任务
分享用ScanLine改变不了TImage.Picture.Bitmap的颜色？
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;
...全文
请发表友善的回复…
发表回复
shadowstar 2007-04-11
- 打赏
- 举报
UP
shadowstar 2007-04-11
- 打赏
- 举报
原来是24bit
分给楼上的吧
分给楼上的吧
halfdream 2007-04-11
- 打赏
- 举报
补上这句
Image1.Refresh;
Image1.Refresh;
