DELPHI盒子
!实时搜索: 盒子论坛 | 注册用户 | 修改信息 | 退出
检举帖 | 全文检索 | 关闭广告 | 捐赠
技术论坛
 用户名
 密  码
自动登陆(30天有效)
忘了密码
≡技术区≡
DELPHI技术
lazarus/fpc/Free Pascal
移动应用开发
Web应用开发
数据库专区
报表专区
网络通讯
开源项目
论坛精华贴
≡发布区≡
发布代码
发布控件
文档资料
经典工具
≡事务区≡
网站意见
盒子之家
招聘应聘
信息交换
论坛信息
最新加入: shz0000
今日帖子: 0
在线用户: 1
导航: 论坛 -> DELPHI技术 斑竹:liumazi,sephil  
作者:
男 bios (阿贡) ★☆☆☆☆ -
盒子中级会员
2003/8/6 16:05:42
标题:
怎么旋转一幅图象,比如,旋转180度,让它倒过来,或90度这样的 浏览:2467
加入我的收藏
楼主: 怎么旋转一幅图象,比如,旋转180度,让它倒过来,或90度这样的
----------------------------------------------
按此在新窗口浏览图片
按此在新窗口浏览图片
作者:
男 bios (阿贡) ★☆☆☆☆ -
盒子中级会员
2003/8/6 20:34:00
1楼: 没人回答吗?
----------------------------------------------
按此在新窗口浏览图片
按此在新窗口浏览图片
作者:
男 boy (阿門) ★☆☆☆☆ -
盒子活跃会员
2003/8/6 21:13:26
2楼: 我找找看資料
----------------------------------------------
Delphi開發◆伺服器架設◆免安裝APACHE,PHP,CGI Perl, MYSQL ★
作者:
男 boy (阿門) ★☆☆☆☆ -
盒子活跃会员
2003/8/6 21:24:17
3楼: var
x,y:Integer;
Jpeg1:TJpegImage;
bmp1,tmpbmp:TBitmap;
begin
Jpeg1 :=TJpegImage.Create;
Jpeg1.LoadFromFile('H:\Avi_圖_Wav\跳.Jpg ');
bmp1 :=TBitmap.Create;
bmp1.Assign(Jpeg1);
tmpbmp:=TBitmap.Create;
tmpbmp.Width:=bmp1.Height;
tmpbmp.Height:=bmp1.Width;
for x:=0 to bmp1.Width do
for y:=0 to bmp1.Height do
tmpbmp.Canvas.Pixels[y,bmp1.Width-1-x]:=bmp1.Canvas.Pixels[x,y];
Image1.Picture.Bitmap:=tmpbmp;
Jpeg1.Assign(tmpbmp);

Jpeg1.SaveToFile('H:\Avi_圖_Wav\跳.Jpg ');
Jpeg1.Free;
bmp1.Free;
tmpbmp.Free;
end;
----------------------------------------------
Delphi開發◆伺服器架設◆免安裝APACHE,PHP,CGI Perl, MYSQL ★
作者:
男 bios (阿贡) ★☆☆☆☆ -
盒子中级会员
2003/8/6 21:28:07
4楼: 谢谢!
----------------------------------------------
按此在新窗口浏览图片
按此在新窗口浏览图片
作者:
男 bios (阿贡) ★☆☆☆☆ -
盒子中级会员
2003/8/6 22:30:56
5楼: 非常感谢
----------------------------------------------
按此在新窗口浏览图片
按此在新窗口浏览图片
信息
登陆以后才能回复
Copyright © 2CCC.Com 盒子论坛 v3.0.1 版权所有 页面执行67.13867毫秒 RSS