【求助】动态载入一图片,如果按原样打印出来...?

suihu 2005-04-28 02:52:01

  我做了一个在TImage上绘制曲线的小软件,得到曲线后想按TImage的大小打印出来
  请问各位大哥大姐们怎么做?


……………………………………………………………………………………


停车把内裤留下\!快点要不打爆你的轮胎\!哈哈\!
    ●        ╭══╮
    █┳     ╭╯ΘΘ║
    ┛┗     ╰⊙═⊙╯。oо○

……………………………………………………………………………………
...全文
74 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
pilicat 2005-06-12
  • 打赏
  • 举报
回复
procedure TForm1.Button1Click(Sender:TObject);
Var
aBitmap:TBitmap;//声明一个TBitmap类型的变量
begin
aBitmap:=TBitmap.Create(Self);
aBitmap.Width:=Image1.Width;
aBitmap.Height:=Image1.Height;
aBitmap.Assign(Image1.Picture);//将Image1的图片赋值给Bitmap
//进行处理。。。。
aBitmap.Free;
end;
suihu 2005-04-28
  • 打赏
  • 举报
回复
Sorry~!
俺的资质太浅了,没能理解您的意思,能否详细说明一下。
XINGXIMU 2005-04-28
  • 打赏
  • 举报
回复
呵呵
新建一个位图
将image的图存进位图出再进行处理就好了

829

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 非技术区
社区管理员
  • 非技术区社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

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