如何实现gif图片旋转
解决方案 »
- 请教:winrunner调用dll函数报应用程序错误和RPC错误,怎么解决?
- 关于ActiveX中添加的owc控件的使用问题
- 一个关于grid的问题,急,在线等
- 如何让程序最小化到系统栏中而不在任务栏中显示啊
- delphi 7中的quickreport 在那
- 菜鸟问题,弹出窗口响应、关闭问题,单选分组框默认项问题,在线求教!
- Tmainmenu的文字的大小问题,额外加分100
- 中国编程论坛
- ****100分求助****:在应用程序服务器增加了方法,实现代码在哪里写???
- 我又来送分了!(只是小问题而已^^)
- 点击Table1的Tablename属性是出现要求输入密码???
- 招聘delphi程序员-深圳或广州
var x,y : Integer;
TmpBitMap : TBitmap;
begin
TmpBitMap := TBitmap.Create;
try
TmpBitMap.Assign(ImageCert.Picture.Graphic);
with ImageCert do begin
Picture.Bitmap.Height := TmpBitMap.Width;
Picture.Bitmap.Width := TmpBitMap.Height;
for x:=0 to Height do
for y:=0 to Width do
Canvas.Pixels[TmpBitMap.Height-x,y] := TmpBitMap.Canvas.Pixels[y,x];
Height := TmpBitMap.Width;
Width := TmpBitMap.Height;
end;
finally
TmpBitMap.Free;
end;
end;