pixels???????救急

wbcl 2003-01-05 05:28:57

bmp:tbitmap;
for i:=0 to bmp.Width do
for j:=0 to bmp.Height do
begin
Bmp.Canvas.Pixels[i,j]:=clgreen;
end;图片没反应??错愕
waiting on line
...全文
26 5 打赏 收藏 转发到动态 举报
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
HOOK_TTG 2003-01-12
  • 打赏
  • 举报
回复
看来大家已经大重点说出来了,我想这个问题应该是很普遍的。
变量没初始化就用。你的bmp就是没有Create啊!!还没分配内存空间呢!!
huangrenguang 2003-01-10
  • 打赏
  • 举报
回复
哈哈,全是绿色的啦。
huangrenguang 2003-01-10
  • 打赏
  • 举报
回复
procedure TForm1.FormShow(Sender: TObject);
var
bmp:tbitmap;
i,j:Integer;
begin
bmp := TBitmap.create;
bmp := image1.picture.Bitmap;
for i:=0 to bmp.Width do
for j:=0 to bmp.Height do
begin
bmp.Canvas.Pixels[i,j]:=clgreen;
end;//图片有反应
end;
weibz0525 2003-01-06
  • 打赏
  • 举报
回复
Image1.Update();
clGreen?
ghbh 2003-01-06
  • 打赏
  • 举报
回复
bmp:=TBitmap.create;
把你的完整代码贴出来,
试一下加上一句image1.picture.bitmap.assign(bmp);

1,183

社区成员

发帖
与我相关
我的任务
社区描述
Delphi GAME,图形处理/多媒体
社区管理员
  • GAME,图形处理/多媒体社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧